vbscript
Consultas WMI
Buscar..
Introducción
VBScript puede consultar el Instrumental de administración de Windows (WMI) para obtener información vital relacionada con la PC local y remota. Podemos utilizar las consultas de WMI para realizar diversas tareas, como extraer el nombre de la PC, obtener la resolución de la pantalla, obtener información sobre el usuario y el nombre de usuario, extraer información vital sobre cualquier proceso, modificar la configuración del sistema central, etc.
A continuación se muestran algunos ejemplos que utilizan consultas de WMI para llevar a cabo tareas específicas.
Extraer el nombre del 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
Este código hará eco del nombre de la PC en el que se ejecuta.
Obtención de número de instancias de cualquier proceso.
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."
Obtención de la resolución de pantalla del monitor activo
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
Licenciado bajo CC BY-SA 3.0
No afiliado a Stack Overflow