18 lines
755 B
Plaintext
18 lines
755 B
Plaintext
'***************************************************************************
|
|
'This script tests the execution of a query using XML/HTTP
|
|
'***************************************************************************
|
|
On Error Resume Next
|
|
|
|
Dim objLocator
|
|
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
|
|
|
|
' Replace the first argument to this function with the URL of your WMI XML/HTTP server
|
|
' For the local machine, use the URL as below
|
|
Dim objService
|
|
Set objService = objLocator.ConnectServer("[http://localhost/cimom]", "root\cimv2")
|
|
|
|
' Now enumerate the processors on your machine
|
|
for each process in objService.ExecQuery ("select ExecutablePath,__PATH from Win32_process")
|
|
WScript.Echo "Process:", process.ExecutablePath
|
|
next
|