ProxyAuthentication
[This documentation is preliminary and is subject to change.]
The ProxyAuthentication object can be used to specify the type of proxy server authentication required, if any, and to set the authentication credentials. You can retrieve this object by calling the Authentication property on the ProxySettings object.
Methods
The ProxyAuthentication object does not define any methods.
Properties
The ProxyAuthentication object has the following properties.
| Property | Description |
|---|---|
| Required | Specifies or retrieves a Boolean value that identifies whether proxy authentication is required. |
| Scheme | Specifies or retrieves an integer value that identifies the type of authentication required. |
| UserAccount | Retrieves an object that can be used to set or return account credentials. |
Example Code [VBScript]
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
| Product | Requires Windows ServerĀ "Longhorn". |
| Library | Use Microsoft.RightsManagementServices.Admin.dll registered as a custom type library. |