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
    Wscript.Echo "Server state : " & _
        objItem.ServerStateString
Next