VBScript で Internet Explorer を 制御

gistfile1.vb

Option Explicit

'IE起動
Dim ie: Set ie  = CreateObject("InternetExplorer.Application")
ie.Visible      = True
ie.Toolbar      = True
ie.MenuBar      = True
ie.AddressBar   = True
ie.StatusBar    = True

'ログオン画面
ie.Navigate "http://192.168.1.1/zzzz.asp"
Do While ie.Busy Or ie.readystate <> 4
    WScript.Sleep 1000
Loop

'ユーザＩＤ
ie.Document.getElementById("txtUserID").Value = "xxxxx"
'パスワード
ie.Document.getElementById("txtPassWD").Value = "yyyyy"
'ログオン
ie.Document.forms(0).submit()