ServiceIdentity object
The ServiceIdentity object can be used to manage an AD RMS service account. Services, like users, are provided with accounts that can be authenticated. When you provision AD RMS on a server, you must define a service account and specify the account credentials. If the SQL server is shared by more than one AD RMS installation, the service account must be a domain account but not the same domain account that you used to install AD RMS. The service account is made a member of the RMS Service Group and is granted the permissions of that group.
You can retrieve the object by calling the ServiceIdentity property on the ConfigurationManager object. You can use the ServiceIdentity object to change the service account. Doing so replaces the account previously contained in the RMS Service Group with the new account. This object does not support remote access.
Members
The ServiceIdentity object has these types of members:
Methods
The ServiceIdentity object has these methods.
Method | Description |
---|---|
Update | Updates a new service account to the server. |
Properties
The ServiceIdentity object has these properties.
Property | Description |
---|---|
CurrentServiceAccount |
Retrieves the current service account from the server. |
NewServiceAccount |
Retrieves a new service account object that can be populated and set on the server. |
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 current account and change it.
SUB ChangeServiceAccount()
DIM chngMgr
DIM oldAcct
DIM newAcct
' Create a ServiceIdentity that can be used to change the
' service account.
SET chngMgr = config_manager.ServiceIdentity
CheckError()
' Retrieve the current service account.
SET oldAcct = chngMgr.CurrentServiceAccount
CheckError()
' Create a new account.
SET newAcct = chngMgr.NewServiceAccount
CheckError()
newAcct.Domain = "domain_name"
newAcct.UserId = "User_id"
newAcct.Password = "password"
' Update service account with the new account information.
chngMgr.Update()
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 |
|