MSXML2.ServerXMLHTTP 如何传递域名账号和密码

[wxcnl1]

两个网站A和B，都是asp，用的都是相同的域名和密码，是window authentication验证模式
现在A要通过MSXML2.ServerXMLHTTP 去调用B的一个页面，这时候B要求账户和密码验证
但是ASP中好像只能获取到域名账号不能获取密码， 所以xmlHttp.open("POST", strUrl, false, username, password);这段代码就无法写入密码了，有没有其他办法把域名账户带到B网站呢？

[wcwtitxu]

自行发个 Authorization 头过去

Function base64(str, cSet)	
	With CreateObject("ADODB.Stream")
		.Mode = 3
		.Type = 2
		.Open
		.Charset = cSet
		.WriteText str
		.Position = 0
		.Type = 1
		base64 = .Read(-1)
		.Close
	End With
	
	With CreateObject("Microsoft.XMLDOM").createElement("TXT")  
		.dataType = "bin.base64"  
		.nodeTypedValue = base64  
		base64 = .text  
	End With
End Function


Dim x
Set x = CreateObject("MSXML2.ServerXMLHTTP.4.0")
x.open "GET", "http://bbs.csdn.net/topics/392328741", False
x.setRequestHeader "Authorization", base64("username:password", "gbk")
x.send