windows远程连接工具及批量添加tsmmc主机

'/*=========================================================================

' * Intro 解决win2003远程桌面连接多台服务器时，重做系统后还得一个一个得加半天。效率非常低的问题

' * FileName 批量添加远程桌面.vbs

' * Version v1.0

' * MadeTime 2007-11-29 00:46:30

' * LastModify 2007-11-29 00:46:30

' *==========================================================================*/



Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.run("%SystemRoot%\system32\tsmmc.msc /s")

WScript.Sleep 3000

Dim ip(100)

''ip(0)=Array("服务器远程桌面IP","服务器远程桌面用户名","服务器远程桌面密码")

'ip(0)=Array("192.110.111.111","服务器1","UserName0","PassWord0")

'ip(1)=Array("192.110.111.113:3389","服务器2","UserName1","PassWord1")

'ip(2)=Array("192.110.111.115","服务器3","UserName2","PassWord2")

'ip(3)=Array("192.110.111.116","服务器5","UserName3","PassWord3")

For i=1 To 34

WshShell.SendKeys "+{F10}"

WshShell.SendKeys "A"

WshShell.SendKeys ip(i)(0)

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "{TAB}"

name=ip(i)(1)+"("+ip(i)(0)+")" '中文只能这种方法，来复制，， 这个

WshShell.Run "cmd.exe /c echo " & name & "| clip.exe", vbHide

WScript.Sleep 1000

WshShell.SendKeys "^{V}"

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "{TAB}"

WshShell.SendKeys ip(i)(2)

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "JStest" & Chr(33) & "{(}" & Chr(33) & Chr(64)

WshShell.SendKeys "%V"

WshShell.SendKeys "{ENTER}"

Next