[sov44]

Поскольку тема http://forum.oszone.net/thread-267462.html закрыта, задам вопрос здесь.
Имеется портабельная версия браузера Iron (Iron_Portable.exe) и собственно ярлык на рабочем столе. Нужно сделать автологин на сайт http://www.pgz.ako.kirov.ru/website/Menu/Page/170
Попробовал сделать по аналогии, не получилось. Как понял, не создался объект Iron_Portable

Скрытый текст

Код:

Option Explicit

Const READYSTATE_COMPLETE = 4

Dim objIE
Dim objForm

Set objIE = WScript.CreateObject("Iron_Portable.Application")

With objIE
    '.Visible = False
    .Visible = True
    
    .Navigate "http://www.pgz.ako.kirov.ru/website/Menu/Page/170"
    
    ' Ждём…
    Do 
        WScript.Sleep 100
    Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
    
    ' Заполняем форму #0
    Set objForm = .Document.forms(0)
    
    With objForm
        .elements("uls_name").value = "MyLogin"
        .elements("uls_pswd").value = "MyPassword"
        
        ' Отправляем форму на сервер
        .submit()
    End With
    
    ' Ждём…
    Do
        WScript.Sleep 100
    Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
    
    'Тут прочие действия, для чего, собственно и затевались…
End With

Set objIE = Nothing

WScript.Quit 0

п.с. Win7x64