Dim i
i = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Process",,48)
For Each objItem in colItems
' Wscript.Echo "-----------------------------------"
' Wscript.Echo "Win32_Process"
' Wscript.Echo "-----------------------------------"
Wscript.Echo "Name: " & objItem.Description
i = i + 1
Next
Wscript.Echo i