Archive for the 'VBScript' Category
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
Bookmark It
Hide [...]
[ Back to top ]
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 [...]
[ Back to top ]
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 [...]
[ Back to top ]
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
Bookmark It
Hide Sites
[ Back to top ]
