Windows Dev Center

Urls interface

The Urls object can be used to retrieve internal and external web service URLs contained in an EnterpriseUrls object. Currently, URLs can be retrieved for the AD RMS Licensing service and the AD RMS Account Certification service. You can retrieve the object by calling the Urls property on the ClusterInformation object.

Members

The Urls interface has these types of members:

Properties

The Urls interface has these properties.

PropertyDescription

Extranets

Retrieves the external service URLs for enterprise.

Intranets

Retrieves the internal service URLs for the enterprise.

 

Examples


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 the Urls object.

SUB GetUrls()

  DIM cluster_info
  DIM urls

  SET cluster_info = config_manager.ClusterInformation
  CheckError()

  SET urls = cluster_info.Urls
  CheckError()

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

Minimum supported client

None supported

Minimum supported server

Windows Server 2008

Assembly

Microsoft.RightsManagementServices.Admin.dll

See also

Active Directory Rights Management Services Scripting API Reference

 

 

Show:
© 2015 Microsoft