Zoeken…


Invoering

VBScript kan Windows Management Instrumentation (WMI) opvragen voor verschillende essentiële informatie met betrekking tot lokale en externe pc. We kunnen WMI-zoekopdrachten gebruiken om verschillende taken uit te voeren, zoals het extraheren van de naam van de pc, het verkrijgen van schermresolutie, het verkrijgen van informatie over de gebruiker en gebruikersnaam, het ophalen van essentiële informatie over elk proces, het wijzigen van de kernsysteeminstellingen, enz.

Hieronder vindt u enkele voorbeelden die WMI-query's gebruiken om specifieke taken uit te voeren.

Naam van de lokale pc extraheren

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSettings = objWMIService.ExecQuery _("Select * from Win32_ComputerSystem")

For Each objComputer in colSettings
wscript.echo objComputer.Name
Next

Deze code geeft de naam van de pc weer waarin deze is uitgevoerd.

Aantal exemplaren van een proces ophalen

strComputer = "."
instances = 0
processName = "chrome.exe"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process")

For Each objProcess in colProcess
If objProcess.Name = processName Then instances = instances + 1
Next

wscript.echo "Process - "&processName&" has "&instances&" instances running."

De schermresolutie van Active Monitor verkrijgen

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor",,48)

For Each objItem in colItems
WScript.Echo "ScreenHeight: " & objItem.ScreenHeight
WScript.Echo "ScreenWidth: " & objItem.ScreenWidth
Next


Modified text is an extract of the original Stack Overflow Documentation
Licentie onder CC BY-SA 3.0
Niet aangesloten bij Stack Overflow