[Rampages]

Эх никто так и не помог, недавно снова встала эта тема и наконец-то решил её сам и не без помощи гугла:

работающий код выглядит следующим образом:

Код:

Option Explicit

Const READYSTATE_COMPLETE = 4

Dim objIE
Dim objForm

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

With objIE
    '.Visible = False
    .Visible = True
    
    .Navigate "http://piton/nonauth/login.php"
    
    ' Ждём…
    Do 
        WScript.Sleep 100
    Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
    
    ' Заполняем форму #0
    Set objForm = .Document.forms(0)
    
    With objForm
        .elements("username").value = "ЛОГИН"
        .elements("password").value = "ПАРОЛЬ"
        
        ' Отправляем форму на сервер
        .submit()
    End With
    
    ' Ждём…
    Do
        WScript.Sleep 100
    Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
    
    'Тут прочие действия, для чего, собственно и затевались…
End With

Set objIE = Nothing

WScript.Quit 0

после запуска остается открытым окно IE, пока не разобрался как его закрыть, но думаю не сложно.
да и по идее не очень то и надо.

P.S. Спс за не предоставленную помощь в очередной раз убедился в полезности форумов.