msisaserver.vbs - vbscript script by ActiveXperts Software
msisaserver.vbs checks if MS ISA Server is running; it checks services, processes and performance counters.
Use msisaserver.vbs directly from ActiveXperts Network Monitor; in the Manager's 'Monitor' menu, select 'New Check (Script)' and select msisaserver.vbs. Configure the required parameter, or press 'Load a working sample'.
In ActiveXperts Network Monitor, Administrators can use three different scripting languages: Powershell, VBScript and SSH.
msisaserver.vbs script code
' /////////////////////////////////////////////////////////////////////////////// ' // ActiveXperts Network Monitor - VBScript based checks ' // For more information about ActiveXperts Network Monitor and VBScript, visit ' // http://www.activexperts.com/support/network-monitor/online/vbscript/ ' /////////////////////////////////////////////////////////////////////////////// Option Explicit ' Declaration of global variables Dim SYSDATA, SYSEXPLANATION ' SYSDATA is displayed in the 'Data' column in the Manager; SYSEXPLANATION in the 'LastResponse' column ' Constants - return values Const retvalUnknown = 1 ' ActiveXperts Network Monitor functions should always return True (-1, Success), False (0, Error) or retvalUnknown (1, Uncertain) ' Constants - indexes used in arrays Const idxServiceShortname = 0 ' Const idxServiceLongname = 1 Const idxPerfObject = 0 Const idxPerfContext = 1 Const idxPerfItem = 2 Const idxPerfCondition = 3 ' // To test a function outside Network Monitor (e.g. using CSCRIPT from the ' // command line), remove the comment character (') in the following lines: ' Dim bResult ' bResult = CheckIsaServer( "localhost", "", "IIS7" ) ' WScript.Echo "Return value: [" & bResult & "]" ' WScript.Echo "SYSDATA: [" & SYSDATA & "]" ' WScript.Echo "SYSEXPLANATION: [" & SYSEXPLANATION & "]" Function CheckIsaServer( strHost, strAltCredentials, strVersion ) ' Description: ' Checks if MS ISA Server is running; it checks the ISA services, ISA processes and ISA performance counters ' Parameters: ' 1) strHost As String - Hostname or IP address of the server you want to check ' 2) strAltCredentials As String - Specify an empty string to use Network Monitor service credentials. ' To use alternate credentials, enter a server that is defined in Server Credentials table. ' (To define Server Credentials, choose Tools->Options->Server Credentials) ' 3) strVersion As String - ISA Server version (either 2006C, 2006F, 2006CF, 2004C, 2004F, 2004CF, 2000C, 2000F, 2000CF), ' where 'C' means: Caching Only, 'F' means: Firewall Only, and 'CF' means: Caching and Firewall ' Usage: ' CheckIsaServer( "<Hostname | IP>", "<Empty String | Server>", "<ISA-version>" ) ' Sample: ' CheckIsaServer( "localhost", "", "IIS8" ) Dim strAltLogin, strAltPassword Dim objWMIService Dim lstServices, lstProcesses, lstPerfCounters Dim numResult CheckIsaServer = retvalUnknown ' Default return value, and will be shown as a yellow (uncertain) icon in the Manager SYSDATA = "" ' SYSDATA displayed in the 'Data' column in the Manager SYSEXPLANATION = "" ' SYSEXPLANATION displayed in the 'LastResponse' column in the Manager strAltLogin = "" strAltPassword = "" ' Retrieve product processes/services/performance-counters list If( Not getSoftwareInfo( strVersion, lstServices, lstProcesses, lstPerfCounters, SYSEXPLANATION ) ) Then Exit Function End If ' If alternate credentials are specified, retrieve the alternate login and password from the ActiveXperts global settings If( strAltCredentials <> "" ) Then If( Not getCredentials( strHost, strAltCredentials, strAltLogin, strAltPassword, SYSEXPLANATION )) Then Exit Function End If End If ' WMI Connect If( Not wmiConnect( strHost, strAltLogin, strAltPassword, objWMIService, SYSEXPLANATION ) ) Then Exit Function End If ' Check services numResult = checkServices( objWMIService, strHost, lstServices, SYSEXPLANATION ) If( numResult <> True ) Then CheckIsaServer = numResult Exit Function End If ' Check processes numResult = checkProcesses( objWMIService, strHost, lstProcesses, SYSEXPLANATION ) If( numResult <> True ) Then CheckIsaServer = numResult Exit Function End If ' Check performance counters numResult = checkPerfCounters( strHost, strAltLogin, strAltPassword, lstPerfCounters, SYSEXPLANATION ) If( numResult <> True ) Then CheckIsaServer = numResult Exit Function End If CheckIsaServer = True SYSEXPLANATION = "All services, processes and counters successfully checked" End Function ' ////////////////////////////////////////////////////////////////////////////// ' // --- Private Functions section --- ' // Private functions names should start with a lower case character, so they ' // will not be listed in the Network Monitor's function browser. ' ////////////////////////////////////////////////////////////////////////////// Function getSoftwareInfo( strVersion, BYREF lstServices, BYREF lstProcesses, BYREF lstPerfCounters, BYREF strSysExplanation ) ' // Retrieve services, processes and counters associated to the specific version of the software. Entries that start ' // with '!' are optional services/processes/counters and are not checked by deault. Remove '!' mark to enable monitoring those items. getSoftwareInfo = True Select Case strVersion Case "2006C" lstServices = array( array( "isactrl", "Microsoft ISA Server Control" ), array( "isasched", "Microsoft ISA Server Job Scheduler" ), array( "ISASTG", "Microsoft ISA Server Storage" ) ) lstProcesses = array( "mspadmin.exe", "W3Prefch.exe", "isastg.exe" ) lstPerfCounters = array( array( "Memory", "", "Available Bytes", ">104857600" ), array( "Processor", "_TOTAL", "% Processor Time", "<90" ) ) Case "2006F" lstServices = array( array( "isactrl", "Microsoft ISA Server Control" ), array( "isasched", "Microsoft ISA Server Job Scheduler" ), array( "ISASTG", "Microsoft ISA Server Storage" ), array( "fwsrv", "Microsoft Firewall" ) ) lstProcesses = array( "mspadmin.exe", "W3Prefch.exe", "isastg.exe", "wspsrv.exe" ) lstPerfCounters = array( array( "Memory", "", "Available Bytes", ">104857600" ), array( "Processor", "_TOTAL", "% Processor Time", "<90" ) ) Case "2006CF" lstServices = array( array( "isactrl", "Microsoft ISA Server Control" ), array( "isasched", "Microsoft ISA Server Job Scheduler" ), array( "ISASTG", "Microsoft ISA Server Storage" ), array( "fwsrv", "Microsoft Firewall" ) ) lstProcesses = array( "mspadmin.exe", "W3Prefch.exe", "isastg.exe", "wspsrv.exe" ) lstPerfCounters = array(array( "Memory", "", "Available Bytes", ">104857600" ), array( "Processor", "_TOTAL", "% Processor Time", "<90" ) ) Case "2004C" lstServices = array( array( "isactrl", "Microsoft ISA Server Control" ) ) lstProcesses = array( "mspadmin.exe" ) lstPerfCounters = array( array( "", "", "", "" ) ) Case "2004F" lstServices = array( array( "isactrl", "Microsoft ISA Server Control" ) ) lstProcesses = array( "mspadmin.exe", "wspsrv.exe" ) lstPerfCounters = array( array( "", "", "", "" ) ) Case "2004CF" lstServices = array( array( "isactrl", "Microsoft ISA Server Control" ), array( "fwsrv", "Microsoft Firewall" ) ) lstProcesses = array( "mspadmin.exe", "wspsrv.exe" ) lstPerfCounters = array( array( "", "", "", "" ) ) Case "2000C" lstServices = array( array( "isactrl", "Microsoft ISA Server Control" ), array( "w3proxy", "Microsoft Web Proxy" ), array( "w3schdwn", "Microsoft Scheduled Cache Content Download" ), array( "!Gksvc", "Microsoft Gatekeeper" ) ) lstProcesses = array( "mspadmin.exe", "w3proxy.exe", "w3prefch.exe" ) lstPerfCounters = array( array( "", "", "", "" ) ) Case "2000F" lstServices = array( array( "isactrl", "Microsoft ISA Server Control" ), array( "w3proxy", "Microsoft Web Proxy" ), array( "w3schdwn", "Microsoft Scheduled Cache Content Download" ), array( "Fwsrv", "Microsoft Firewall" ), array( "!Gksvc", "Microsoft Gatekeeper" ) ) lstProcesses = array( "mspadmin.exe", "w3proxy.exe", "w3prefch.exe", "wspsrv.exe" ) lstPerfCounters = array( array( "", "", "", "" ) ) Case "2000CF" lstServices = array( array( "isactrl", "Microsoft ISA Server Control" ), array( "w3proxy", "Microsoft Web Proxy" ), array( "w3schdwn", "Microsoft Scheduled Cache Content Download" ), array( "Fwsrv", "Microsoft Firewall" ), array( "!Gksvc", "Microsoft Gatekeeper" ) ) lstProcesses = array( "mspadmin.exe", "w3proxy.exe", "w3prefch.exe", "wspsrv.exe" ) lstPerfCounters = array( array( "", "", "", "" ) ) Case Else SYSEXPLANATION = "Version [" + strVersion + "] is not supported." lstServices = array( array( "", "" ) ) lstProcesses = array( "" ) lstPerfCounters = array( array( "", "", "", "" ) ) getSoftwareInfo = False End Select End Function ' ////////////////////////////////////////////////////////////////////////////// Function checkServices( objWMIService, strHost, lstCheckServices, BYREF strExplanation ) Dim lstAllServices, arrCheckService checkServices = retvalUnknown ' Default return value strExplanation = "Unable to check for services on this machine" ' Get the services list If( Not retrieveServicesList( objWMIService, strHost, lstAllServices, strExplanation ) ) Then Exit Function End If ' Check services - only those that are not disabled by a leading '!' For Each arrCheckService in lstCheckServices If( arrCheckService( idxServiceShortname) <> "" And Left( arrCheckService( idxServiceShortname ), 1 ) <> "!" ) Then If( Not isServiceRunning( lstAllServices, arrCheckService(idxServiceShortname), arrCheckService(idxServiceLongname), strExplanation ) ) Then checkServices = False Exit Function End If End If Next checkServices = True strExplanation = "Services are running" End Function ' ////////////////////////////////////////////////////////////////////////////// Function checkProcesses( objWMIService, strHost, lstCheckProcesses, BYREF strExplanation ) Dim lstAllProcesses, strCheckProcess checkProcesses = retvalUnknown ' Default return value strExplanation = "Unable to check for processes on this machine" ' Get the processes list If( Not retrieveProcessesList( objWMIService, strHost, lstAllProcesses, strExplanation ) ) Then Exit Function End If ' Check processes - only those that are not disabled by a leading '!' For Each strCheckProcess in lstCheckProcesses If( strCheckProcess <> "" And Left( strCheckProcess, 1 ) <> "!" ) Then If( Not isProcessRunning( lstAllProcesses, strCheckProcess, strExplanation ) ) Then checkProcesses = False Exit Function End If End If Next checkProcesses = True strExplanation = "Processes are running" End Function ' ////////////////////////////////////////////////////////////////////////////// Function checkPerfCounters( strHost, strAltUserName, strAltPassword, lstCheckPerfCounters, BYREF strExplanation ) Dim objPerf, strPerfPath, numPerfValue Dim lstAllServices, arrCheckPerfCounter Dim strEval, bCompareResult checkPerfCounters = retvalUnknown ' Default return value strExplanation = "Unable to check for performance counters on this machine" ' Load the ActiveXperts Network Monitor Perfomance object Set objPerf = CreateObject( "ActiveXperts.NMPerf" ) ' Initialze Performance object. Optional parameter: a log file, for debugging purposes objPerf.Initialize( "" ) If( objPerf.LastError <> 0 ) Then checkPerfCounters = retvalUnknown SYSDATA = "" SYSEXPLANATION = "Failed to initialize performance object." Exit Function End If ' Connect. If strAltUserName is empty, the service credentials will be used objPerf.Connect strHost, strAltUserName, strAltPassword If( objPerf.LastError <> 0 ) Then checkPerfCounters = retvalUnknown SYSDATA = "" SYSEXPLANATION = "Failed to check performance counters (connect failed)." objPerf.Shutdown() Exit Function End If ' Check performance counters - only those that are not disabled by a leading '!' For Each arrCheckPerfCounter in lstCheckPerfCounters If( arrCheckPerfCounter( idxPerfObject ) <> "" And Left( arrCheckPerfCounter( idxPerfObject ), 1 ) <> "!" ) Then ' Build the Peformance path strPerfPath = objPerf.BuildPath( strHost, arrCheckPerfCounter(idxPerfObject), arrCheckPerfCounter(idxPerfContext), arrCheckPerfCounter(idxPerfItem) ) ' Get integer value. If floating point is expected, use GetDoubleValue instead numPerfValue = objPerf.GetIntegerValue( strPerfPath ) If( objPerf.LastError <> 0 ) Then checkPerfCounters = False SYSDATA = "" SYSEXPLANATION = "Performance Counter [" & strPerfPath & "] is not installed" Exit Function End If strEval = numPerfValue & " " & arrCheckPerfCounter(idxPerfCondition) bCompareResult = Eval( strEval ) If( Not bCompareResult ) Then checkPerfCounters = False SYSDATA = numPerfValue SYSEXPLANATION = "Performance Counter [" & strPerfPath & "], Condition[" & arrCheckPerfCounter(idxPerfItem) & arrCheckPerfCounter(idxPerfCondition) & "] failed, Current Value=[" & numPerfValue & "]" Exit Function End If End If Next objPerf.Shutdown() checkPerfCounters = True strExplanation = "Performance counters checked" End Function ' ////////////////////////////////////////////////////////////////////////////// Function retrieveServicesList( objWMIService, strHost, BYREF lstServices, BYREF strSysExplanation ) ' Retrieve the list of running services retrieveServicesList = False Set lstServices = Nothing On Error Resume Next Set lstServices = objWMIService.ExecQuery( "Select * from Win32_Service" ) If( Err.Number <> 0 ) Then strSysExplanation = "Unable to query WMI class on computer [" & strHost & "]" Exit Function End If On Error Goto 0 If( lstServices.Count <= 0 ) Then strSysExplanation = "Win32_Service class does not exist on computer [" & strHost & "]" Exit Function End If retrieveServicesList = True End Function ' ////////////////////////////////////////////////////////////////////////////// Function retrieveProcessesList( objWMIService, strHost, BYREF lstProcesses, BYREF strSysExplanation ) ' Retrieve the list of running services retrieveProcessesList = False Set lstProcesses = Nothing On Error Resume Next Set lstProcesses = objWMIService.ExecQuery( "Select * from Win32_Process" ) If( Err.Number <> 0 ) Then strSysExplanation = "Unable to query WMI class on computer [" & strHost & "]" Exit Function End If On Error Goto 0 If( lstProcesses.Count <= 0 ) Then strSysExplanation = "Win32_Process class does not exist on computer [" & strHost & "]" Exit Function End If retrieveProcessesList = True End Function ' ////////////////////////////////////////////////////////////////////////////// Function isServiceRunning( BYREF lstServices, strServiceName, strServiceDescription, BYREF strExplanation ) ' Check if a given service exists as running service in the services list Dim objService For Each objService in lstServices ' Check If this is the service we are looking for If( LCase( objService.Name ) = LCase( strServiceName ) ) Then If( objService.State = "Running" ) Then isServiceRunning = True Else strExplanation = "Service [" & strServiceDescription & "] service is not running" isServiceRunning = False End If Exit Function End If Next ' The service was not found, show an error message strExplanation = "Service [" & strServiceDescription & "] is not installed" isServiceRunning = False End Function ' ////////////////////////////////////////////////////////////////////////////// Function isProcessRunning( BYREF lstProcesses, strProcess, BYREF strExplanation ) ' Check if a given process exists as running process in the processes list Dim objProcess For Each objProcess in lstProcesses If( Err.Number <> 0 ) Then isProcessRunning = retvalUnknown strExplanation = "Unable to list processes" Exit Function End If ' Check If this is the service we are looking for If( LCase( objProcess.Name ) = LCase( strProcess ) ) Then isProcessRunning = True Exit Function End If Next ' The process was not found, show an error message strExplanation = "Process [" & strProcess & "] is not running" isProcessRunning = False End Function ' ////////////////////////////////////////////////////////////////////////////// Function getCredentials( strHost, strAltCredentials, BYREF strAltLogin, BYREF strAltPassword, BYREF strSysExplanation ) Dim objNMServerCredentials strAltLogin = "" strAltPassword = "" strSysExplanation = "" getCredentials = False If( strAltCredentials = "" ) Then ' No alternate credentials specified, so login and password are empty and service credentials will be used getCredentials = True Exit Function End If Set objNMServerCredentials = CreateObject( "ActiveXperts.NMServerCredentials" ) strAltLogin = objNMServerCredentials.GetLogin( strAltCredentials ) strAltPassword = objNMServerCredentials.GetPassword( strAltCredentials ) If( strAltLogin = "" ) Then getCredentials = False strSysExplanation = "No alternate credentials defined for [" & strAltCredentials & "]. In the Manager application, select 'Options' from the 'Tools' menu and select the 'Server Credentials' tab to enter alternate credentials" Exit Function End If getCredentials = True End Function ' ////////////////////////////////////////////////////////////////////////////// Function wmiConnect( strHost, strAltLogin, strAltPassword, BYREF objWMIService, BYREF strSysExplanation ) Dim objSWbemLocator, colItems Dim bConnectResult wmiConnect = False Set objWMIService = Nothing If( strAltLogin = "" ) Then ' Connect to remote host on same domain using same security context On Error Resume Next Set objWMIService = GetObject( "winmgmts:{impersonationLevel=Impersonate}!\\" & strHost &"\root\cimv2" ) If( Err.Number <> 0 ) Then bConnectResult = False Else bConnectResult = True End If On Error Goto 0 Else ' Connect to remote host using different security context and/or different domain On Error Resume Next Set objSWbemLocator = CreateObject( "WbemScripting.SWbemLocator" ) Set objWMIService = objSWbemLocator.ConnectServer( strHost, "root\cimv2", strAltLogin, strAltPassword ) If( Err.Number <> 0 ) Then bConnectResult = False Else bConnectResult = True End If objWMIService.Security_.ImpersonationLevel = 3 On Error Goto 0 End If If( Not bConnectResult ) Then Set objWMIService = Nothing wmiConnect = False strSysExplanation = "Unable to connect to [" & strHost & "]. Possible reasons: no WMI installed on the remote server, firewall blocking WMI calls, login failure, or remote server down" Exit Function End If wmiConnect = True End Function