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.

See Also

PassportUserDomain