‘requries pslist.exe from sysinternals (http://technet.microsoft.com/en-us/sysinternals/bb545021)
 Set wshShell = Wscript.CreateObject (“WScript.shell”)      
 strProfile =     inputbox(“Enter Computer Name”,”Enter Computer Name”)
        wshshell.run “cmd.exe /c pslist.exe -s 30 -r 1 \” & strprofile
        set wshshell = nothing