VBSでIEの認証画面を実行するのに、オブジェクトでサポートされてないプロパティまたはメソッドです。:というエラーが出る

Question

VBSでIEに自動ログインしようとしています。ログインボタンが押せません。
もしかして、触るところを勘違いしているのか、
実はここか？と考えた箇所が該当していて、そこを動かす必要があるのか？
コードです

user = "ユーザ"
pass = "パスワード"
url = "入りたいURL"

Dim objIE

Set WSHShell=Wscript.CreateObject("Wscript.shell")
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Visible = True

Call Login(url, user, pass)

' この後処理を行う予定の為、あえてコメント
'objIE.Quit
'Set objIE = Nothing

Sub Login(url, user, pass)
    objIE.Navigate2 url
    'set f=objIE.document.forms(0)
    Call WaitIE(objIE)
    '//ログイン情報入力
    'objIE.document.getElementsByName("inuserid")(0).Value = user
    Set uname = objIE.Document.getElementsByName("inuserid")
    if uname.Length > 0 Then
        uname(0).Value = user
    'Else
     '   msgbox "IDを入れる場所間違い"
      '  WScript.Quit
    end if


    'objIE.document.getElementsByName("inpasswd")(0).Value = pass
    Set password = objIE.Document.getElementsByName("inpasswd")
    if password.Length > 0 Then
        password(0).Value = pass
    'Else
     '   msgbox "PWを入れる場所間違い"
      '  WScript.Quit
    end if
    Call WaitIE(objIE)
    '//ログインボタンクリック
    'objIE.Document.getElementsByTagName("login")(0).Submit
    set objButton = objIE.Document.getElementsByName("login")
    if objButton.length=0 Then
    'msgbox ("エラーです")
    objIE.quit()

    end if
    'objButton(0).click
    'objButton[WXPSubmitForLogin()].submit
    'objButton(f0).submit
    'objButton.f0.submit
    objButton.item(0).click()

    'With objIE.document
    '.f0.submit
    'End with

    Call WaitIE(objIE)
End Sub

'*********************
'* IEのページがロードされるまで待つ関数
'***********************
Sub WaitIE(objIE)
    Do While objIE.Busy Or objIE.ReadyState <> 4
      WScript.Sleep(10000)
    Loop   
End Sub

と書いてますが、
オブジェクトでサポートされてないプロパティまたはメソッドです。:'objButton.click'とエラーが出ます。

動かそうとしている個所は、
<input type="image" name="login" src="./images/login.gif" border="0" title="ログイン">
です。

ただし、気になる記載もあって、上の方に(少し改変して書きますが)、
function SubmitForLogin(){
if (ErrorCheck()){
document.f0.submit();
}
とあります。
実際に呼び出さなければならないのは、SubmitForLogin()の方でしょうか？
だとしたら、どうやって呼び出せばよいのでしょうか？

Answer 1

状況がよくわかりませんがobjButton[0]とかでは？

sample

sample.html

<form>
<input type="image" name="login" src="./images/login.gif" border="0" title="ログイン">
</form>

sample.vbs

main()
sub main()
URL="http://localhost/sample.html"

Set WSHShell=Wscript.CreateObject("Wscript.Shell")
set oIE=Wscript.CreateObject("InternetExplorer.application")
oIE.navigate2(URL)
oIE.visible=true

WScript.sleep 5000

set i=oIE.Document.getElementsByName("login")
if i.length=0 then
msgbox ("エラーです")
oIE.quit()
exit sub
end if

i.item(0).click()

end sub

※テスト用に修正

Comments

[tfulcrum]

ありがとうございます。objButton[0]や、ヒントを頂いてobjButton(0)を試しましたが、オブジェクトがありません、のエラーが返されました。前者では、オブジェクトがありません。:"0"、のエラーで、後者はオブジェクトがありません。:"objButton(..)"と出ました

[yambejp]

確認ですがwbsファイルからieオブジェクトをcreateObjectして
navigate2でページを呼んでるのですよね？
sleepでページが読み終わるの待っていますか？

[yambejp]

sampleあげておきました

[tfulcrum]

ありがとうございます、頂いたコードが私のコードとだいぶ違う為、これから試してみます。

[tfulcrum]

駄目でした。同じく、オブジェクトがありません、とエラーです。
<input type="image" name="login" src="./images/login.gif" border="0" title="ログイン">
少し省略してますが、ログインしようとしているページ、上記のかっこの中にtypeなどsubmitを指定する記述が無いのが気にはなっています。

[yambejp]

テスト用にsampel.htmlを追記しておきました
vbsも強制的に5秒またせています
これで実行するとどうなりますか？

[tfulcrum]

ありがとうございます、今度は、書き込みできません。: objButton.itemと出ました。
ただ、頂いたコードをほぼ再現したら、msgboxの行で、終了してない文字列型の定数です、のエラーが出ましたので、何か私が根本的に書き間違えてるのかもしれません。
アクセス先の都合上、これから週末アクセスできませんので、月曜日以降試してみます。
なお、私のコードに欠けてるところがありました。

[yambejp]

しつれいしました
if i.item.length=0 then
↓↓↓
if i.length=0 then
修正しておきます

[tfulcrum]

ありがとうございます、ただmsgbox ("エラーです")を有効にすると、終了していない文字列型の定数です、と出まして、無効にすると、i.item(0).click()で書き込みできません、と出ます、変数は少し変えてますが、変えているところは、最初のmain()を削った事と、ユーザ名パスワードの記載を加えている点です。

[tfulcrum]

すみません、UTF-8で保存してました、ShiftJISになおした所、msgbox "エラーです"が有効になり、そこで引っかかっている様です。もう少し調べてみます。

[tfulcrum]

すみません、その前にIDも入らなかった模様です。msgboxを有効にしたら、中が空だった模様で、根本で気に何か間違えている様です、自分でもっと調べてみます。

[tfulcrum]

function SubmitForLogin()の部分が、headerにあって、bodyに無い為に、inuseridを探せていない気がしてきました。