• Home
 · 
• Registry
 · 
• Network Monitoring task: check if process is running. ActiveXperts Network Monitor has lots of VBSc

Network Monitoring task: check if process is running. ActiveXperts Network Monitor has lots of VBSc

Network Monitoring task: check if process is running. ActiveXperts Network Monitor has lots of VBScript functions available to check various

Rate Network Monitoring task: check if process is running. ActiveXperts Network Monitor has lots of VBSc

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

' This function checks if the process, specified by strProcess, is running on 
' the machine specified by strComputer. It only works for Windows 2000 or higher.

On Error Resume Next

    Dim objWmi, objProcess, collProcesses
    Dim strQuery

    set objWmi = GetObject("winmgmts://" & strComputer )
    If( Err.Number <> 0 ) Then
        CheckProcess = retvalUnknown
	EXPLANATION = "Unable to access '" & strComputer & "'. Possible reasons: no WMI installed on the remote server, no rights to access remote WMI service, or remote server down"
        Exit Function 
    End If

    strQuery = "select * from win32_process"
    set collProcesses = objWmi.ExecQuery( strQuery ) 
    If( collProcesses.Count = 0 ) Then
        CheckProcess = retvalUnknown
        EXPLANATION = "Unable to list processes on computer '" & strComputer & "'"
        Exit Function			    
    End If

    For Each objProcess in collProcesses
        If( Err.Number <> 0 ) Then
            CheckProcess = retvalUnknown
            EXPLANATION = "Unable to list processes on computer '" & strComputer & "'"
            Exit Function 
        End If
	If UCase( objProcess.Name ) = UCase( strProcess ) Then
            CheckProcess = True
    	    EXPLANATION = "Process '" & strProcess & "' is running on computer '" & strComputer & "'"
            Exit Function
        End If
    Next

    CheckProcess = False
    EXPLANATION = "Process '" & strProcess & "' is not running on computer '" & strComputer & "'"

End Function