Excel VBA-Makro zum Verbinden mehrerer Remote-Desktopsitzungen auf demselben PC

813
Omar Wd

Ich habe mehrere Remote-Desktop-Sitzungen auf demselben PC (mit unterschiedlichem Benutzernamen und Kennwort für jede Sitzung), und ich möchte eine Verbindung zu ihnen herstellen und ein Makro in jeder Sitzung ausführen. Ich verwende den folgenden Code, um eine Verbindung zu jeder Sitzung herzustellen, aber sie ist immer geöffnet Letzte Sitzung, die ich geöffnet habe, habe ich die Server-IP in Spalte B und den Benutzernamen der Sitzung in Spalte C und die Passwörter in Spalte D gespeichert

Sub open_RDP() Dim RetVal As Variant For a = 2 To 3 Target = Cells(a, 2) user = Cells(a, 4) pass = Cells(a, 5) RetVal = Shell("cmdkey /generic:""" & Target & """ /user:""" & user & """ /pass:""" & pass & """", 1) RetVal = Shell("c:\Windows\System32\mstsc.exe /admin /v:" & Target, 1) Next a
0

0 Antworten auf die Frage

Verwandte Probleme