Не получается активировать окно для ввода пароля, расположенное поверх основного окна программы

Dim objShell
set objShell = Wscript.CreateObject("WScript.Shell")
 
'Пароль который надо вставить
PassWord = "PaSSw0rd1234"
 
'запуск программы с ключом
objShell.Run """c:\Progra~1\x2goclient\x2goclient.exe"" --session=internet"""
'После запуска программы отрывается основное окно программы с заголовком X2Go Client
 
Do Until Success = True
'После успешного соединения с сервером поверх основного окна отрывается окошко с именем user@192.168.100.101:22
'Надо активировать это окншко, (на случай, если будет поверх открыт блокнот для перехвата пароля) и вставить пароль в нужное окошко
    Success = objShell.AppActivate("user@192.168.100.101:22")
Loop
objShell.Sendkeys PassWord & "{ENTER}"
 
Wscript.Quit

Dim objShell
set objShell = Wscript.CreateObject("WScript.Shell")
PassWord = "PaSSw0rd1234"
 
objShell.Run """c:\Progra~1\x2goclient\x2goclient.exe"" --session=internet --no-menu --no-session-edit"""
 
Do Until Success = True
    Success = objShell.AppActivate(+ "@192.168.100.101:22")
Loop
 
If Activated = 0 Then
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.AppActivate ("X2Go Client") , true 
    WshShell.Sendkeys PassWord & "{ENTER}"
End If
 
Wscript.Quit