[Numufar]

Нет. С «.SendKeys()» — нет. »

Оказывается, можно.

Код:

Dim timeout  
timeout = 13  
set WshShell = WScript.CreateObject("WScript.Shell")  
Set WshExec = WshShell.Exec ("""C:\Program Files (x86)\Radmin Viewer 3\Radmin.exe"" /connect:192.168.1.100:4899")  
Do  
    If WshShell.AppActivate("Система безопасности Radmin: 192.168.1.100") Then  
  
        WshShell.SendKeys "admin"   
        WshShell.SendKeys "{TAB}"   
        WshShell.SendKeys "admin"   
        WshShell.SendKeys "{ENTER}"   
  
        Exit Do  
    End If  
  
    If timeout = 0 Then  
        WScript.Echo "Прости, но Радмин на этом компе не фурычит "  
        Exit Do  
    End If  
  
    WScript.Sleep 1000  
    timeout = timeout - 1  
Loop

Скрипт в течении 13 секунд каждую секунду проверяет, не запустилось ли окно Радмина, и, если запустилось, передаёт ему параметры из SendKeys().