''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 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