vbscript
Zapytania WMI
Szukaj…
Wprowadzenie
VBScript może wysyłać zapytania do Instrumentacji zarządzania Windows (WMI) w celu uzyskania różnych ważnych informacji związanych z lokalnym i zdalnym komputerem. Możemy używać zapytań WMI do wykonywania różnych zadań, takich jak wyodrębnianie nazwy komputera, uzyskiwanie rozdzielczości ekranu, uzyskiwanie informacji o użytkowniku i nazwie użytkownika, wydobywanie istotnych informacji o dowolnym procesie, modyfikowanie podstawowych ustawień systemowych itp.
Poniżej znajduje się kilka przykładów, które wykorzystują zapytania WMI do wykonywania określonych zadań.
Wyodrębnianie nazwy komputera lokalnego
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
Ten kod będzie odzwierciedlał nazwę komputera, w którym został wykonany.
Uzyskiwanie liczby wystąpień dowolnego procesu
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."
Uzyskiwanie rozdzielczości ekranu monitora aktywnego
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
Licencjonowany na podstawie CC BY-SA 3.0
Nie związany z Stack Overflow