sos：当script运行到xmlhttp.send时提示语法错误！

[99guo]

代码如下
sub loginin()
dim Uid
dim PassWord
Dim strUrl
dim strIP
if document.Form1.txt_login.value ="" then
alert("请输入用户名！")
document.Form1.txt_login.focus()
exit sub
end if
set XmlH = createobject("msxml2.XMLHTTP.3.0")
Uid = document.Form1.txt_login.value
PassWord = document.Form1.txt_password.value
strIP = "10.1.128.114"
strUrl="http://" & strIP & "/exchange/" & Uid
value= XmlH.Open("GET",strUrl,false,uid,password)
XmlH.send
if XmlH.status=200 then
window.location ="LoginIn.aspx?loginname=" + uid
exit sub
else
alert ("登录失败！" & "status" & XmlH.status & XmlH.statustext)
document.Form1.txt_login.focus()
exit sub
end if

end sub


同样的代码在一些电脑上运行正常，在部分电脑却出现“语法错误”的错误提示。请问如何解决这个问题！是不是电脑的设置问题啊？？？

[99guo]

没人会只好给分！