Suche…


Einführung

VBScript kann WMI (Windows Management Instrumentation) nach verschiedenen wichtigen Informationen abfragen, die sich auf lokale und Remote-PCs beziehen. Wir können WMI-Abfragen verwenden, um verschiedene Aufgaben auszuführen, z. B. das Extrahieren des PC-Namens, das Abrufen der Bildschirmauflösung, das Abrufen von Informationen zu Benutzer und Benutzernamen, das Abrufen wichtiger Informationen zu jedem Prozess, das Ändern der Kernsystemeinstellungen usw.

Nachfolgend einige Beispiele, die WMI-Abfragen verwenden, um bestimmte Aufgaben auszuführen.

Name des lokalen PCs extrahieren

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

Dieser Code gibt den Namen des PCs an, in dem er ausgeführt wird.

Anzahl der Instanzen eines Prozesses abrufen

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."

Erhalten der Bildschirmauflösung des Active Monitors

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
Lizenziert unter CC BY-SA 3.0
Nicht angeschlossen an Stack Overflow