ProxyAuthentication.Scheme property
The Scheme property specifies or retrieves an integer value that identifies the type of authentication required.
Syntax
ProxyAuthentication.Scheme
Property value
This property sets or returns one of the following values.
(0x0)
No authentication is specified.
ProxySchemeBasic (0x1)
Basic authentication.
ProxySchemeDigest (0x2)
Digest authentication.
Integrated Windows authentication.
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 |
|