» VBS и RAdmin

[more] Доброго времени суток.
Есть куча удалённых компов, к которым постоянно приходится коннектиться по RAdmin. На всех машинах логин и пароль одинаковые. Для того, чтобы постоянно не вводить одни и те же логин и пароль, написал скрипт:


Код: set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Exec ("""C:\Program Files (x86)\Radmin Viewer 3\Radmin.exe"" /connect:192.168.1.100:4899" )
WScript.Sleep 4000
WshShell.SendKeys "admin"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "admin"
WshShell.SendKeys "{ENTER}"

Numufar, а если проверять результат функции AppActivate? Тогда организовав цикл можно дожидаться нужного окна.


Добавлено:
еуые

NeoAnomaly а можно поподробнее, как это организовать?

Что-то вроде такого?


Код: Do While False
WshShell.AppActivate(WshExec.ProcessID)
WScript.Sleep 1000
Loop

Примерно так:


Код:
...

Dim timeout
timeout = 10

Do
If WshShell.AppActivate("Заголовок окна Radmin, которое ожидаем") Then

WshShell.SendKeys "admin"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "admin"
WshShell.SendKeys "{ENTER}"

Exit Do
End If

If timeout = 0 Then
WScript.Echo "Waiting for Radmin failed"
Exit Do
End If

WScript.Sleep 1000
timeout = timeout - 1
Loop

[more] NeoAnomaly, получилось, огромное спасибо!
Сделал так:


Код: 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