Возникла необходимость воспользовать VBScript...
надо запустить программу, и в ее окно ввести пароль, нашел в инете пример на эту тему, но он почемуто не работает:

Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' Запускает калькулятор.
AppActivate ReturnValue ' Активизирует калькулятор.
For I = 1 To 100 ' Организует цикл.
SendKeys I & "{+}", True ' Передает данные калькулятору
Next I ' для вычисления суммы.
SendKeys "=", True ' Окончательный результат.
SendKeys "%{F4}", True ' ALT+F4 закрывает калькулятор.

Что тут неправильно подскажите пожалуйста

| Сообщение посчитали полезным:

пробуй так:

Dim ReturnValue, i, scs
set scs = createobject("WScript.Shell")
scs.run("CALC.EXE")
For i = 1 To 100
scs.SendKeys i & "{+}", True
Next
scs.SendKeys "=", True
scs.SendKeys "%{F4}", True

| Сообщение посчитали полезным: