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