vbscript
Requêtes WMI
Recherche…
Introduction
VBScript peut interroger Windows Management Instrumentation (WMI) pour obtenir des informations vitales sur le PC local et distant. Nous pouvons utiliser les requêtes WMI pour effectuer diverses tâches telles que l'extraction du nom du PC, l'obtention de la résolution de l'écran, l'obtention d'informations sur l'utilisateur et le nom d'utilisateur, l'extraction d'informations essentielles sur un processus, la modification des paramètres système de base, etc.
Vous trouverez ci-dessous des exemples d'utilisation de requêtes WMI pour effectuer des tâches spécifiques.
Extraire le nom du PC local
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
Ce code fera écho au nom du PC dans lequel il est exécuté.
Obtenir le nombre d'instances de n'importe quel processus
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."
Obtenir la résolution d'écran du moniteur actif
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
Sous licence CC BY-SA 3.0
Non affilié à Stack Overflow