@Echo off
Echo LPR Service > C:\Services.txt
sc query pplpr6 | find /i /c "state" >> C:Services.txt
Echo Telnet Service >> C:\Services.txt
sc query pptelnet6 | find /i /c "state" >> C:Services.txt

LPR Service
        STATE              : 1  STOPPED
Telnet Service 
        STATE              : 4  RUNNING

 

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