使用Windows Auth从VB脚本打开网页

Question

我有一个ASP应用程序。使用Windows身份验证进行设置，我可以从IE打开而不提示输入凭据，但是当我尝试打开相同的ASP应用程序时。从VB脚本我得到401 - 未经授权的错误。

如何在不提供凭据的情况下让VB脚本打开应用程序？

VB脚本：

Dim srvHTTP
set srvHTTP = CreateObject("MSXML2.ServerXMLHttp.3.0")
srvHTTP.open "GET", "http://myserver/sample.aspx", false
srvHTTP.send
WScript.Echo("Status: " & srvHTTP.status)

Answer 1

请尝试使用WinHttpRequest对象。它允许您指定登录策略。以下示例可能适合您。

Const AutoLogonPolicy_Always = 0

Dim objWinHttp
Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.SetAutoLogonPolicy AutoLogonPolicy_Always
objWinHttp.Open "GET", "http://myserver/sample.aspx", False
objWinHttp.Send

您可能还需要配置代理以启用“保持活动”连接，因为NTLM身份验证需要进行多次握手。