<html>
<head>
<meta
http-equiv="Content-Type" content="text/html;
charset=gb2312">
<title>新建网页
1</title>
</head>
<body>
<object
classid="clsid:9059F30F-4EB1-4BD2-9FDC-36F43A218F4A" id="MsRdpClient21"
CODEBASE="/tsweb/msrdp.cab" WIDTH="350" HEIGHT="200"
>
<param
name="Server" value="127.0.0.1">
<param name="FullScreen"
value="0">
<param
name="StartConnected" value="1">
</object>
</body>
</html>
我们把上面的MsRdpClient21改名为MsTsc，把带param 的三行删除，因为我们要用脚本实现自动登录。另外CODEBASE="/tsweb/msrdp.cab"这个你自己填正确的地址，比如我的服务器giftRen.com/tsweb/msrdp.cab（只是假设，我并不提供这个下载）。在windows2003系统目录下有这个安装包。
然后我们在head段内添加如下代码（注意这里的赋值要根据你服务器的配置自己改）：
Sub window_onLoad()
Document.all.MsTsc.Server = "myName"
Document.all.MsTsc.UserName = "administrator"
Document.all.MsTsc.AdvancedSettings.ClearTextPassword = "mypassword"
Document.all.MsTsc.Domain = "myDomain"
Document.all.MsTsc.Connect()
End Sub
</script>
<html>
<head>
<meta
http-equiv="Content-Type" content="text/html;
charset=gb2312">
<title>新建网页 1</title>
<script
language="VBScript">
Sub window_onLoad()
Document.all.MsTsc.Server
= "127.0.0.1" '远程服务器地址
Document.all.MsTsc.UserName = "administrator"
'登录账号
Document.all.MsTsc.AdvancedSettings.ClearTextPassword =
"SinaBlogShanHaiJing" '登录密码
Document.all.MsTsc.Domain = "GongAnMis"
'要登录的域
Document.all.MsTsc.Connect()
End
Sub
</script>
</head>
<body>
<object classid="clsid:9059F30F-4EB1-4BD2-9FDC-36F43A218F4A" id="MsTsc" CODEBASE="www.giftRen.com/tsweb/msrdp.cab" WIDTH="600" HEIGHT="500">
</object>
</body>
</html>