Phillipe,

I was thinking about it and wrote this small script to use inside of PlanetPress Watch.


Code:
 

Option explicit
Dim objFSO
Dim objOutputFile
Dim strTempName, strTempPath, strLine
Dim objHeaderFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
strTempPath = objFSO.GetFile(PW_GetJobFilename).ParentFolder.Path
strTempName = objFSO.GetTempName
Set objOutputFile = objFSO.GetFolder(strTempPath).CreateTextFile(strTempName)
'********************************************************************
' Variable declaration for Process Gathering
'********************************************************************
Dim objWMIService, objProcess, colProcess Dim strComputer, strList

strComputer = "."

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

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

'********************************************************************
' Main Loop
'********************************************************************

For Each objProcess in colProcess
    if objProcess.Name = "TelnetService.exe" then
       strList = strList & vbCrlf & objProcess.Name & " is running = TRUE"
    end if
Next

objOutputFile.WriteLine(strList)

'********************************************************************
' Finalize
'********************************************************************
objOutputFile.Close
objFSO.DeleteFile PW_GetJobFilename, true objFSO.MoveFile strTempPath & "\" & strTempName, PW_GetJobFileName

 
This works, but it still would be nice to have it built into a future version.

Thanks
_________________________
Uomo Del Ghiaccio
--------------------