服务器状态表,列表中 Exchange 服务器状态信息

返回有关运行 Microsoft Exchange Server 2003 的计算机的当前状态的信息。

Visual Basic

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 “Cluster state: ” & objItem.ClusterState

Wscript.Echo “Cluster state string: ” & _

objItem.ClusterStateString

Wscript.Echo “CPU state: ” & objItem.CPUState

Wscript.Echo “CPU state string: ” & objItem.CPUStateString

Wscript.Echo “Disks state: ” & objItem.DisksState

Wscript.Echo “Diskss state string: ” & objItem.DisksStateString

Wscript.Echo “Distinguished name: ” & objItem.DN

Wscript.Echo “Group dsitinguihsed name: ” & objItem.GroupDN

Wscript.Echo “Group GUID: ” & objItem.GroupGUID

Wscript.Echo “GUID: ” & objItem.GUID

Wscript.Echo “Memory state: ” & objItem.MemoryState

Wscript.Echo “Memory state string: ” & _

objItem.MemoryStateString

Wscript.Echo “Name: ” & objItem.Name

Wscript.Echo “Queues state: ” & objItem.QueuesState

Wscript.Echo “Queues state string: ” & _

objItem.QueuesStateString

Wscript.Echo “Server maintenance: ” & _

objItem.ServerMaintenance

Wscript.Echo “Server state: ” & objItem.ServerState

Wscript.Echo “Server state string: ” & _

objItem.ServerStateString

Wscript.Echo “Services state: ” & objItem.ServicesState

Wscript.Echo “Services state string: ” & _

objItem.ServicesStateString

Wscript.Echo “Unreachable: ” & objItem.Unreachable

Wscript.Echo “Version: ” & objItem.Version

Wscript.Echo

Next

发布于：2015年6月4日

浏览：2594 次