Constants.ProxySchemeWindowsIntegrated property
The ProxySchemeWindowsIntegrated property retrieves a value that specifies Windows Integrated authentication for a proxy server.
This property is read-only.
Syntax
Constants.ProxySchemeWindowsIntegrated
Property value
This property returns an integer value (0x3).
Remarks
Windows Integrated authentication was previously known as NTLM authentication. You can use this property value with the Scheme property on the ProxyAuthentication object.
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 proxy authentication scheme.
SUB GetProxyScheme()
DIM proxySettings
DIM constant
DIM scheme
' Retrieve the Constants object.
SET constant = config_manager.Constants
' Retrieve the ProxySettings object.
SET proxySettings = config_manager.Enterprise.ProxySettings
CheckError()
' Retrieve the scheme.
scheme = proxySettings.Authentication.Scheme
IF scheme = constant.ProxySchemeBasic THEN
CALL WScript.Echo("Proxy scheme is Basic authentication.")
ELSEIF scheme = constant.ProxySchemeDigest THEN
CALL WScript.Echo("Proxy scheme is Digest authentication.")
ELSEIF scheme = constant.ProxySchemeWindowsIntegrated THEN
CALL WScript.Echo("Proxy scheme is Windows Integrated.")
ELSE
CALL WScript.Echo("Authentication.Scheme error.")
END IF
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 |
|