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

See also

Constants

ProxySchemeBasic

ProxySchemeDigest