UserDomainAccount object
The UserDomainAccount object contains account credential information. This object is retrieved by calling the UserAccount property on the ProxyAuthentication object or the CurrentServiceAccount property on the ServiceIdentity object.
Members
The UserDomainAccount object has these types of members:
Properties
The UserDomainAccount object has these properties.
Property | Description |
---|---|
Domain |
Specifies or retrieves the account domain name. |
Password |
Specifies or retrieves the account password. |
UserId |
Specifies or retrieves the account user ID. |
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 and set proxy settings.
SUB Proxy()
DIM proxySettings
' Retrieve the ProxySettings object.
SET proxySettings = config_manager.Enterprise.ProxySettings
CheckError()
proxySettings.Authentication.Required = TRUE
proxySettings.Authentication.Scheme = 3
proxySettings.Authentication.UserAccount.Domain = "user_Domain"
proxySettings.Authentication.UserAccount.UserId = "user_ID"
proxySettings.Authentication.UserAccount.Password = "user_Psswd"
' Update the proxy settings on the server.
proxySettings.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
Requirements
Minimum supported client |
None supported |
Minimum supported server |
Windows Server 2008 |
Assembly |
|