LoggedOnUsersMailboxLegacyDN Property
Exchange Server 2003
The LoggedOnUsersMailboxLegacyDN property indicates the legacyDN of the user who is currently logged on. The LoggedOnUsersMailboxLegacyDN property is read-only.
Applies To
The LoggedOnUsersMailboxLegacyDN property is a member of the Exchange_Logon Class.
Instance Path
The LoggedOnUsersMailboxLegacyDN property appears on instances of the \\COMPUTERNAME\ROOT\MicrosoftExchangeV2:Exchange_Logon class.
MOF Syntax
[read] string LoggedOnUsersMailboxLegacyDN;
Qualifiers
This property has no qualifiers.
VBScript Example
The following example shows how to retrieve a list of Exchange_Logon instances, and how to retrieve the associated LoggedOnUsersMailboxLegacyDN properties.
'===============================================================
' Purpose: Display each Exchange_Logon found for Exchange server,
' and show the LoggedOnUsersMailboxLegacyDN property on the Exchange_Logon
' objects
' Change: cComputerName [string] the computer to access
' Output: Displays the name of each Exchange_Logon and LoggedOnUsersMailboxLegacyDN property
'===============================================================
On Error Resume Next
Dim cComputerName
Const cWMINameSpace = "root/MicrosoftExchangeV2"
Const cWMIInstance = "Exchange_Logon"
cComputerName = "MyComputerNETBIOSName"
Dim strWinMgmts ' Connection string for WMI
Dim objWMIExchange ' Exchange Namespace WMI object
Dim listExchange_Logons ' ExchangeLogons collection
Dim objExchange_Logon ' 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_Logon instances in the Exchange namespace.
Set listExchange_Logons = objWMIExchange.InstancesOf(cWMIInstance)
'
' Were any Exchange_Logon Instances returned?
If (listExchange_Logons.count > 0) Then
' If yes, do the following:
' Iterate through the list of Exchange_Logon objects.
For Each objExchange_Logon in listExchange_Logons
Wscript.Echo""
Wscript.Echo""
'
' Display the value of the LoggedOnUsersMailboxLegacyDN property.
WScript.echo "LoggedOnUsersMailboxLegacyDN= "& _
" ["&TypeName(objExchange_Logon.LoggedOnUsersMailboxLegacyDN)&"] "& _
objExchange_Logon.LoggedOnUsersMailboxLegacyDN
'
Next
Else
' If no Exchange_Logon instances were returned,
' display that.
WScript.Echo "WARNING: No Exchange_Logon instances were returned."
End If
End If
