'/*=========================================================================
' * 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