Option Explicit
Const ForReading = 1
Dim WshShell,objReadTextFile,remoteDesktopName,addCredential
set WshShell=CreateObject(“WScript.Shell”)
remoteDesktopName = InputBox(“1 : ISM” & chr(10) & “2 : AUD” & chr(10) & “3 : SBM/SPI” & chr(10) & “4 : LSM” & chr(10) & “5 : STVM” & chr(10) & “6 : GRCF” & chr(10) & “7 : MET” & chr(10) & “8 : RSK” & chr(10) & “9 : SURVEYS” & chr(10) & “10 : EMN/BIA/BCM” & chr(10) & “11 : CIM” & chr(10) & “12 : CMS” & chr(10) & “13 : CMP” & chr(10) & “14 : TRG” & chr(10) & “15 : GRCI” & chr(10) & “16 : CITAP” & chr(10) & “17 : DMS” & chr(10) & “18 : RI VM” , “REMOTE DESKTOP CONNECTION”)
Select Case remoteDesktopName
Case 1
call RemoteDesktop(“msi-vmdevautmnism”)
Case 2
call RemoteDesktop(“msi-vmdevrsmautmn”)
Case 3
call RemoteDesktop(“msi-vmpqaautmnsp”)
Case 4
call RemoteDesktop(“vmipqarndautomet”)
Case 5
call RemoteDesktop(“vmipqaitgrcautmet”)
Case 6
call RemoteDesktop(“msi-vmdevautgrcf”)
Case 7
call RemoteDesktop(“Vmidevrndautomet”)
Case 8
call RemoteDesktop(“msi-vmdevautrsk”)
Case 9
call RemoteDesktop(“msi-vmdevautmnsurys”)
Case 10
call RemoteDesktop(“vmipqabcmautomet”)
Case 11
call RemoteDesktop(“vmipqacimautm”)
Case 12
call RemoteDesktop(“msi-vmdevautmncms”)
Case 13
call RemoteDesktop(“vmipqacmpautm”)
Case 14
call RemoteDesktop(“vmipqatrgautm”)
Case 15
call RemoteDesktop(“vmipqagrciautm”)
Case 16
call RemoteDesktop(“msi-vmdevcitap”)
Case 17
call RemoteDesktop(“msi-vmdevautmndms”)
Case 18
call RemoteDesktop(“vmipqariautoap”)
End Select
Function RemoteDesktop(remoteDesktopName)
addCredential = “cmdkey /generic:” & chr(34) & remoteDesktopName & chr(34) & ” /user:SYSTEMI\automation.team” & ” /pass:welcome*123″
WshShell.run addCredential
WshShell.run “mstsc /v: ” & chr(34) & remoteDesktopName & chr(34) & ” ” & “/f”
End Function
Automation 