getProcessInfo.vbs
Dim objService
Set objService = GetObject("winmgmts:")
Dim Processes
Set Processes = objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'explorer.exe'")
Dim proc
For Each proc in Processes
WScript.Echo proc.Name & vbTab & proc.ProcessId
Next