'===============================================================
' Purpose:   Display each Exchange_Queue found for Exchange server,
'            and show all properties on the Exchange_Queue
'            objects
' Change:    cComputerName [string] the computer to access
' Output:    Displays the name of each Exchange_Queue and properties
'===============================================================

On Error Resume Next
Dim cComputerName
Const cWMINameSpace = "root/MicrosoftExchangeV2"
Const cWMIInstance = "Exchange_Queue"
cComputerName = "MyComputerNETBIOSName"

Dim strWinMgmts		' Connection string for WMI
Dim objWMIExchange	' Exchange Namespace WMI object
Dim listExchange_Queues	' ExchangeLogons collection
Dim objExchange_Queue		' A single ExchangeLogon WMI object

' Create the object string, indicating WMI (winmgmts), using the
' current user credentials (impersonationLevel=impersonate),
' on the computer specified in the constant cComputerName, and
' using the CIM namespace for the Exchange provider.
strWinMgmts = "winmgmts:{impersonationLevel=impersonate}!//"& _
cComputerName&"/"&cWMINameSpace
Set objWMIExchange =  GetObject(strWinMgmts)
' Verify we were able to correctly set the object.
If Err.Number <> 0 Then
  WScript.Echo "ERROR: Unable to connect to the WMI namespace."
Else
  '
  ' The Resources that currently exist appear as a list of
  ' Exchange_Queue instances in the Exchange namespace.
  Set listExchange_Queues = objWMIExchange.InstancesOf(cWMIInstance)
  '
  ' Were any Exchange_Queue Instances returned?
  If (listExchange_Queues.count > 0) Then
    ' If yes, do the following:
    ' Iterate through the list of Exchange_Queue objects.
    For Each objExchange_Queue in listExchange_Queues
   Wscript.Echo""
   Wscript.Echo""
       '
       ' Display the value of the CanEnumAll property.
       WScript.echo "CanEnumAll               = "& _
        " ["&TypeName(objExchange_Queue.CanEnumAll)&"] "& _
       objExchange_Queue.CanEnumAll
       '
       '
       ' Display the value of the GlobalStop property.
       WScript.echo "GlobalStop               = "& _
        " ["&TypeName(objExchange_Queue.GlobalStop)&"] "& _
       objExchange_Queue.GlobalStop
       '
       '
       ' Display the value of the LinkId property.
       WScript.echo "LinkId                   = "& _
        " ["&TypeName(objExchange_Queue.LinkId)&"] "& _
       objExchange_Queue.LinkId
       '
       '
       ' Display the value of the LinkName property.
       WScript.echo "LinkName                 = "& _
        " ["&TypeName(objExchange_Queue.LinkName)&"] "& _
       objExchange_Queue.LinkName
       '
       '
       ' Display the value of the MessageCount property.
       WScript.echo "MessageCount             = "& _
        " ["&TypeName(objExchange_Queue.MessageCount)&"] "& _
       objExchange_Queue.MessageCount
       '
       '
       ' Display the value of the MsgEnumFlagsSupported property.
       WScript.echo "MsgEnumFlagsSupported    = "& _
        " ["&TypeName(objExchange_Queue.MsgEnumFlagsSupported)&"] "& _
       objExchange_Queue.MsgEnumFlagsSupported
       '
       '
       ' Display the value of the ProtocolName property.
       WScript.echo "ProtocolName             = "& _
        " ["&TypeName(objExchange_Queue.ProtocolName)&"] "& _
       objExchange_Queue.ProtocolName
       '
       '
       ' Display the value of the QueueId property.
       WScript.echo "QueueId                  = "& _
        " ["&TypeName(objExchange_Queue.QueueId)&"] "& _
       objExchange_Queue.QueueId
       '
       '
       ' Display the value of the QueueName property.
       WScript.echo "QueueName                = "& _
        " ["&TypeName(objExchange_Queue.QueueName)&"] "& _
       objExchange_Queue.QueueName
       '
       '
       ' Display the value of the Size property.
       WScript.echo "Size                     = "& _
        " ["&TypeName(objExchange_Queue.Size)&"] "& _
       objExchange_Queue.Size
       '
       '
       ' Display the value of the Version property.
       WScript.echo "Version                  = "& _
        " ["&TypeName(objExchange_Queue.Version)&"] "& _
       objExchange_Queue.Version
       '
       '
       ' Display the value of the VirtualMachine property.
       WScript.echo "VirtualMachine           = "& _
        " ["&TypeName(objExchange_Queue.VirtualMachine)&"] "& _
       objExchange_Queue.VirtualMachine
       '
       '
       ' Display the value of the VirtualServerName property.
       WScript.echo "VirtualServerName        = "& _
        " ["&TypeName(objExchange_Queue.VirtualServerName)&"] "& _
       objExchange_Queue.VirtualServerName
       '
    Next
  Else
    ' If no Exchange_Queue instances were returned,
    ' display that.
    WScript.Echo "WARNING: No Exchange_Queue instances were returned."
  End If
End If