<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段内添加如下代码(注意这里的赋值要根据你服务器的配置自己改):
<script language="VBScript">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>
最后保存网页,用IE打开,看看我们的惊奇成果!另外还可以在一个网页上嵌套多个不同主机的远程桌面界面。利用这个手段,你可以做一套基于B/S(浏览器/服务器)模式的网管系统,把公司员工的计算机都创建一个管理账号,把他们所有IP地址和密码、账号保存到数据库中,然后通过统一的WEB界面来管理,我想对网管员比较管用,不过可不要用于黑客的目的啊。
转载于:https://www.cnblogs.com/CielWater/p/3714279.html