Макрос Excel VBA для подключения нескольких сеансов удаленного рабочего стола на одном ПК

806
Omar Wd

У меня есть несколько сеансов удаленного рабочего стола на одном компьютере (с разными именем пользователя и паролем для каждого сеанса), и я хочу подключаться к ним последовательно и запускать макрос в каждом сеансе, я использую приведенный ниже код для подключения к каждому сеансу, но он всегда открыт последний сеанс, который я открыл, я сохранил IP-адрес сервера в столбце B и имя пользователя сеанса в столбце C и пароли в столбце D

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 ответов на вопрос

Похожие вопросы