![]() Loading |
VBScript |
JavaScript |
Powershell |
Search Options: List Exchange Virtual Server Queue Information
|
||
' Description: Lists information about the virtual server queues on a computer running Microsoft Exchange Server 2003.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\ROOT\MicrosoftExchangeV2") Set colItems = objWMIService.ExecQuery _ ("Select * from Exchange_QueueVirtualServer") For Each objItem in colItems Wscript.Echo "Global actions supported: " & _ objItem.GlobalActionsSupported Wscript.Echo "Global stop: " & objItem.GlobalStop Wscript.Echo "Protocol name: " & objItem.ProtocolName Wscript.Echo "Virtual machine: " & objItem.VirtualMachine Wscript.Echo "Virtual server name: " & _ objItem.VirtualServerName Wscript.Echo Next | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: |