在 VBScript 中使用 NTLM 身份验证发送请求

Question

我正在尝试使用以下 VBScript 发送获取请求：

   dim user, pass,url,Req
   url = "url"
   user = "DOMAIN\USER"
   pass = "mypassword"
   Set Req = CreateObject("Msxml2.ServerXMLHTTP.6.0")  
   Req.Open "GET", url, False
   Req.setRequestHeader "Authorization", "NTLM" + Base64Encode(user + ":" + pass)
   Req.send
   Req.getAllResponseHeaders

此代码导致“未定义变量：Base64Encode”错误。删除 Base64Encode 也不起作用。

我已尝试从 SOAPUI 中成功的原始请求复制身份验证标头，但仍然出现 401 错误。

另一方面，我使用 SOAPUI 和 Python 发送了相同的 get 请求。所以授权信息没有问题。

总结：我需要一个 VBScript 来发送带有 NTLM 身份验证的 get 请求，而不使用 Base64Encode