Exchange_QueueVirtualServer Class

Exchange_QueueVirtualServer Class

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

The Exchange_QueueVirtualServer Class is the Base class for the Exchange_QueueSMTPVirtualServer and Exchange_QueueX400VirtualServer classes.

Namespace

\\COMPUTERNAME\ROOT\MicrosoftExchangeV2:Exchange_QueueVirtualServer

Provider

The CIM_LogicalElement provider supplies instances of the Exchange_QueueVirtualServer class.

Origin

The Exchange_QueueVirtualServer class extends the CIM_LogicalElement class.

Qualifiers

Abstract

Properties

Property	Description
ProtocolName Property	[key, read] String ProtocolName; The ProtocolName property indicates the name of the protocol for the virtual server.
VirtualMachine Property	[key, read] String VirtualMachine; The VirtualMachine property indicates the name of the virtual machine that contains the virtual server.
VirtualServerName Property	[key, read] String VirtualServerName; The VirtualServerName property indicates the name of the virtual server.
GlobalActionsSupported Property	[read] Boolean GlobalActionsSupported; The GlobalActionsSupported property indicates whether all remote connections for the virtual server can be controlled.
GlobalStop Property	[read] Boolean GlobalStop; The GlobalStop property indicates whether the virtual server for the link is in disabled mode. If True, the virtual server is disabled.

Methods

This class has no methods.

Associations

This class has no associations.

VBScript Example

The following example shows how to retrieve a list of Exchange_QueueVirtualServer instances, and how to retrieve all the associated properties.

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

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

Dim strWinMgmts		' Connection string for WMI
Dim objWMIExchange	' Exchange Namespace WMI object
Dim listExchange_QueueVirtualServers	' ExchangeLogons collection
Dim objExchange_QueueVirtualServer		' 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_QueueVirtualServer instances in the Exchange namespace.
  Set listExchange_QueueVirtualServers = objWMIExchange.InstancesOf(cWMIInstance)
  '
  ' Were any Exchange_QueueVirtualServer Instances returned?
  If (listExchange_QueueVirtualServers.count > 0) Then
    ' If yes, do the following:
    ' Iterate through the list of Exchange_QueueVirtualServer objects.
    For Each objExchange_QueueVirtualServer in listExchange_QueueVirtualServers
   Wscript.Echo""
   Wscript.Echo""
       '
       ' Display the value of the GlobalActionsSupported property.
       WScript.echo "GlobalActionsSupported   = "& _
        " ["&TypeName(objExchange_QueueVirtualServer.GlobalActionsSupported)&"] "& _
       objExchange_QueueVirtualServer.GlobalActionsSupported
       '
       '
       ' Display the value of the GlobalStop property.
       WScript.echo "GlobalStop               = "& _
        " ["&TypeName(objExchange_QueueVirtualServer.GlobalStop)&"] "& _
       objExchange_QueueVirtualServer.GlobalStop
       '
       '
       ' Display the value of the ProtocolName property.
       WScript.echo "ProtocolName             = "& _
        " ["&TypeName(objExchange_QueueVirtualServer.ProtocolName)&"] "& _
       objExchange_QueueVirtualServer.ProtocolName
       '
       '
       ' Display the value of the VirtualMachine property.
       WScript.echo "VirtualMachine           = "& _
        " ["&TypeName(objExchange_QueueVirtualServer.VirtualMachine)&"] "& _
       objExchange_QueueVirtualServer.VirtualMachine
       '
       '
       ' Display the value of the VirtualServerName property.
       WScript.echo "VirtualServerName        = "& _
        " ["&TypeName(objExchange_QueueVirtualServer.VirtualServerName)&"] "& _
       objExchange_QueueVirtualServer.VirtualServerName
       '
    Next
  Else
    ' If no Exchange_QueueVirtualServer instances were returned,
    ' display that.
    WScript.Echo "WARNING: No Exchange_QueueVirtualServer instances were returned."
  End If
End If

Send us your feedback about the Microsoft Exchange Server 2003 SDK.

Build: June 2007 (2007.618.1)

© 2003-2006 Microsoft Corporation. All rights reserved. Terms of use.