''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Const's and Var's
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Cons for return val's
Const intOK = 0
Const intWarning = 1
Const intCritical = 2
Const intUnknown = 3
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2\Applications\Exchange")
Set colItems = objWMIService.ExecQuery _
("Select * from ExchangeServerState")
For Each objItem in colItems
if objItem.Unreachable = "False" then
Wscript.Echo "Server is reachable"
Wscript.Quit(intOK) 'Quit with OK
Else
Wscript.Echo "Server is Unreachable: " & objItem.Unreachable
Wscript.Quit(intCritical) 'Quit with Critical
End if
Next