• Home
 · 
• Windows System Services
 · 
• Exchange 2000 monitor function - this code was copied from the ActiveXperts Network Monitor applica

Exchange 2000 monitor function - this code was copied from the ActiveXperts Network Monitor applica

Exchange 2000 monitor function - this code was copied from the ActiveXperts Network Monitor application. It uses vbscript to monitor Exchange

Rate Exchange 2000 monitor function - this code was copied from the ActiveXperts Network Monitor applica

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Function Check_Num_RPC_Requests( strComputer, numMaxRequests )
' This function checks if RPC requests currently being processed 
' by the store is not exceeding numMaxRequests.
' You should expect this figure to be fairly small, typically below 25. 
' If it is consistently higher than this, your server is overloaded.  
' NOTE: There's only 1 Information Store for each Exchange Server

On Error Resume Next

    Dim objWMIService, nMax, strComputerObject, colIS, o

    nMax = 0
    Set objWMIService = GetObject( "winmgmts://" & strComputer )
    If( Err.Number <> 0 ) Then
	Check_Num_RPC_Requests = 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

    Set colIS = objWMIService.InstancesOf( "Win32_PerfRawData_MSExchangeIS_MSExchangeIS" )

    For Each o in colIS
        If( Err.Number <> 0 ) Then
	    Check_Num_RPC_Requests = retvalUnknown
	    EXPLANATION = "Unable to list mailboxes"
	    Exit Function
        End If
        nMax = o.RPCRequests
    Next

    If( nMax > numMaxRequests ) Then
        EXPLANATION = "RPC requests exceed " & numMaxRequests
        Check_Num_RPC_Requests = False
    Else
        EXPLANATION = "RPC requests less or equal than " & numMaxRequests
        Check_Num_RPC_Requests = True      
    End If

End Function