'========================================================================== ' ' ' NAME: ' ' AUTHOR: Ed Wilson , MS ' DATE : 10/28/2003 ' ' COMMENT: ' '========================================================================== Option Explicit On Error Resume Next Dim strComputer Dim wmiNS Dim wmiQuery Dim objWMIService Dim colItems Dim objItem strComputer = "." wmiNS = "\root\MicrosoftExchangeV2" wmiQuery = "Select * from Exchange_QueueSMTPVirtualServer" Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS) Set colItems = objWMIService.ExecQuery(wmiQuery) For Each objItem in colItems WScript.Echo "Caption: " & objItem.Caption WScript.Echo "Description: " & objItem.Description WScript.Echo "GlobalActionsSupported: " & objItem.GlobalActionsSupported WScript.Echo "GlobalStop: " & objItem.GlobalStop WScript.Echo "InstallDate: " & objItem.InstallDate WScript.Echo "Name: " & objItem.Name WScript.Echo "ProtocolName: " & objItem.ProtocolName WScript.Echo "Status: " & objItem.Status WScript.Echo "VirtualMachine: " & objItem.VirtualMachine WScript.Echo "VirtualServerName: " & objItem.VirtualServerName WScript.Echo "-=-" Next