PassportUserDomain.Id
[This documentation is preliminary and is subject to change.]
The Id property retrieves a unique integer ID for the PassportUserDomain object.
Property Id
Property Value
This property returns an integer value.
Remarks
This property value is available only after the PassportUserDomain object has been enabled. For more information, see Enabled. You can use this value to compare two domain objects to determine if they are equivalent.
Example Code
DIM config_manager
DIM admin_role
' *******************************************************************
' Create and initialize a ConfigurationManager object.
SUB InitObject()
CALL WScript.Echo( "Create ConfigurationManager object...")
SET config_manager = CreateObject _
("Microsoft.RightsManagementServices.Admin.ConfigurationManager")
CheckError()
CALL WScript.Echo( "Initialize...")
admin_role=config_manager.Initialize(false,"localhost",80,"","","")
CheckError()
END SUB
' *******************************************************************
' Retrieve Windows Live user domain information.
SUB GetPassportInfo()
DIM trustPolicy
DIM passportDomain
' Retrieve the trust policy object.
SET trustPolicy = config_manager.Enterprise.TrustPolicy
CheckError()
' Retrieve the Windows Live user domain object.
SET passportDomain = trustPolicy.PassportUserDomain
CheckError()
' Enable Windows Live user domains.
passportDomain.Enabled = TRUE
CheckError()
IF IsNull(passportDomain.Id) OR LEN(passportDomain.Id) = 0 THEN
CALL RaiseError(-601, "Enable Passport user domain failed.")
END IF
CALL WScript.Echo("PassportUserDomain.Enabled: Id = " _
& passportDomain.Id _
& " Certification Name = " _
& passportDomain.CertificationName _
& " Certificate Expiration = " _
& passportDomain.CertificateExpirationTime)
' Add excluded users to the domain.
passportDomain.ExcludedUsers.Clear()
passportDomain.ExcludedUsers.Add("passport1@example.com")
passportDomain.ExcludedUsers.Add("passport2@example.com")
passportDomain.ExcludedUsers.Update()
CheckError()
CALL WScript.Echo("PassportUserDomain: excluded count=" & _
passportDomain.ExcludedUsers.Count)
END SUB
' *******************************************************************
' Error checking function.
FUNCTION CheckError()
CheckError = Err.number
IF Err.number <> 0 THEN
CALL WScript.Echo( vbTab & "*****Error Number: " _
& Err.number _
& " Desc:" _
& Err.Description _
& "*****")
WScript.StdErr.Write(Err.Description)
WScript.Quit( Err.number )
END IF
END FUNCTION
' *******************************************************************
' Generate a runtime error.
SUB RaiseError(errId, desc)
CALL Err.Raise( errId, "", desc )
CheckError()
END SUB
Requirements
| Product | Requires Windows ServerĀ "Longhorn". |
| Library | Use Microsoft.RightsManagementServices.Admin.dll registered as a custom type library. |