On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Keyboard",,48) For Each objItem in colItems
Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Layout: " & objItem.Layout
Next
Bookmark It
Hide Sites
$$(‘div.d206′).each( [...]
This example gets some basic operating system information and saves in a file, shows FSO and some basic WMI usage.
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("F:\vbscript\os.txt") strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from [...]
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
Bookmark It
Hide Sites
$$(‘div.d131′).each( function(e) { e.visualEffect(’slide_up’,{duration:0.5}) });
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 [...]
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 [...]