Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
The ServiceConnectionPoint property retrieves an object that can be used to manage a service connection point (SCP).
This property is read-only.
Syntax
Enterprise.ServiceConnectionPoint
Property value
This property returns a ServiceConnectionPoint object.
Remarks
A valid SCP enables clients to discover an AD RMS service so that they can request use licenses, publishing licenses, or rights account certificates.
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
' *******************************************************************
' Manage the service connection point.
SUB ManageSCP()
DIM SCP
DIM scpURL
DIM scpDomain
' Retrieve the ServiceConnectionPoint object.
SET SCP = config_manager.Enterprise.ServiceConnectionPoint
CheckError()
' Retrieve the current SCP URL.
scpURL = SCP.URL
' Unregister the SCP URL.
SCP.Clear()
CheckError()
' Retrieve the domain name.
scpDomain = SCP.MachineDomainName
' Register a new SCP URL.
SCP.URL = "http://www.widgets.microsoft.com/"
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
Requirements
| Minimum supported client |
None supported |
| Minimum supported server |
Windows Server 2008 |
| Assembly |
|