EnterpriseUrls object
The EnterpriseUrls object contains enterprise service URLs. Currently URLs can be retrieved for the AD RMS Licensing web service and the AD RMS Account Certification web service.
Members
The EnterpriseUrls object has these types of members:
Properties
The EnterpriseUrls object has these properties.
| Property | Description |
|---|---|
| Certification |
Retrieves the intranet or extranet AD RMS Account Certification URL. |
| Licensing |
Retrieves the intranet or extranet AD RMS Licensing URL. |
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 URL of the intranet RMS Account Certification service.
SUB GetServiceUrl()
DIM cluster_info
SET cluster_info = config_manager.ClusterInformation
CheckError()
CALL WScript.Echo("The Certification service URL is " _
& cluster_info.Urls.Intranets.Certification)
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 |
|