How to create a script in QTP to get all the processes in a system

[NeemaNamia]

I tried to fetch all the processess in a system using WMI and QTP is not recognising the object.Can anyone help me in getting the code to fetch the list of all the processes running in a system?

[elango87]

Below is code,

if you use "." for strComputer, it will fetch the details of the local machine.
If you want to fetch the list of process running in a remote machine, use the machine id in place of ".".
E.g.:

Code:

strComputer = "REMOTE-MACHINE100"
--
Dim Process, strComputer
Process = ""
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
    ("Select * from Win32_Process")

count = 0
For Each objProcess in colProcess
    Process = Process + vbnewline + objProcess.Name
    count = count + 1
Next

Print Process

Set objWMIService = Nothing
Set colProcess = Nothing

Hope this helps...

Thanks,
Elango

[Rashmi Vishwanath]

HI for getting process of remotr machine its not fetching process... In case if its not fetching becuase of authentication issue.. let me know the code pls...

[NeemaNamia]

Thanks for the reply

[elango87]

If you are in a network, you should have access to the machine from which you are trying to fetch the processes. It wont work otherwise.

Thanks,
Elango

[Rashmi Vishwanath]

Thank U