Disk drive info
Set objWMIService = GetObject(”winmgmts:”)
Set objLogicalDisk = objWMIService.Get(”Win32_LogicalDisk.DeviceID=’c:’”)
Wscript.Echo “Total Size ” & objLogicalDisk.sIZE & ” bytes” & vbCrLF & _
“Free space is ” & objLogicalDisk.FreeSpace & ” bytes” & vbCrLF & _
“FileSystem is ” & objLogicalDisk.FileSystem
Mp3 search
searches a location for mp3 files and then displays them in a word document
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objWord.Visible = True
objSelection.TypeText "MP3 lister"
objSelection.TypeParagraph()
objSelection.TypeText "" & Now
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objWord.FileSearch.FileName = "*.mp3"
objWord.FileSearch.LookIn = "D:\"
objWord.FileSearch.SearchSubfolders = True
objWord.FileSearch.Execute
For Each objFile in objWord.FileSearch.FoundFiles
objSelection.TypeText objFile
objSelection.TypeParagraph()
Next
Get disk info using VBScript and the FSO
Get disk info using VBScript and the FSO
Set objFso = CreateObject("Scripting.FileSystemObject")
Set drive = objFso.GetDrive("C")
With drive
Wscript.Echo "Available Space:", .AvailableSpace & vbCrLF & _
"Drive Letter:", .DriveLetter & vbCrLF & _
"Drive Type:", .DriveType & vbCrLF & _
"File System:", .FileSystem & vbCrLF & _
"Free Space:", .FreeSpace & vbCrLF & _
"Is Ready:", .IsReady & vbCrLF & _
"Path:", .Path & vbCrLF & _
"Root Folder:", .RootFolder & vbCrLF & _
"Serial Number:", .SerialNumber & vbCrLF & _
"Share Name:", .ShareName & vbCrLF & _
"Total Size:", .TotalSize & vbCrLF & _
"Volume Label:", .VolumeName
End With
display serial port configuration
display serial port configuration using VBScript
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
x = 1
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objApps = objWMIService.ExecQuery("Select * from Win32_SerialPortConfiguration")
objExcel.Cells(1, 1) = "Description"
objExcel.Cells(1, 2) = "Baud Rate"
objExcel.Cells(1, 3) = "Parity"
objExcel.Cells(1, 4) = "Stop Bits"
For Each objService in objApps
x = x + 1
objExcel.Cells(x, 1) = objService.Description
objExcel.Cells(x, 2) = objService.BaudRate
objExcel.Cells(x, 3) = objService.Parity
objExcel.Cells(x, 4) = objService.StopBits
Next
display the service pack version installed
display the service pack version installed using VBScript
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Wscript.Echo objOperatingSystem.ServicePackMajorVersion _
& "." & objOperatingSystem.ServicePackMinorVersion
Next
