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

Question

У меня есть несколько сеансов удаленного рабочего стола на одном компьютере (с разными именем пользователя и паролем для каждого сеанса), и я хочу подключаться к ним последовательно и запускать макрос в каждом сеансе, я использую приведенный ниже код для подключения к каждому сеансу, но он всегда открыт последний сеанс, который я открыл, я сохранил 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