''Created by:MAK
''Date: March 30, 2005
''Usage:  cscript monitorprocess.vbs c:\process.log Servername
''Usage:  monitorprocess.vbs c:\process.log Servername
Set objArgs = WScript.Arguments
LogFile=objArgs(0)
ServerName=objArgs(1)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSOA = FSO.openTextFile(LogFile,2,True) 
Set objWMIService = GetObject("winmgmts:\\" & ServerName & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
''x= "GetObject(winmgmts:\\" & ServerName & "\root\cimv2)"
''FSOA.Writeline x
count=1
For Each objItem in colItems

FSOA.Writeline cstr(Count) & " ,Process Name= " & objItem.Name & ",Process ID=" & objItem.ProcessId & ",Path=" & objItem.ExecutablePath

count=count+1
Next