VBScriptによる自動ログイン方法（name,id不明でその他の情報からログインボタンを特定し選択する方法）

Question

vbsよりサイトに自動でログインする以下のプログラムを作成しているのですが、

'IEオブジェクトを作成する
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

'指定URLでIEを開く
objIE.navigate "URL"
    
'ページが読み込まれるまで待つ
Do While objIE.Busy = True Or objIE.readyState <> 4
    WScript.Sleep 100        
Loop 
    
'IDとパスワードを入力する
With objIE.document      
    .getElementsByName("fUName")(0).value = "ID"   
    .getElementsByName("fPassword")(0).value = "PW"        
End With   

'これ以降がうまく動作しない
Dim objbutton
     
'input要素をコレクションとして取得
Set objbutton = objIE.document.getElementsByTagName("input")   
msgbox objbutton

'input要素にログインがあったらクリックする
Dim el
For each el In objbutton
    if el.value = "ログイン" then
        el.click
        exit for
    end if         
next 

IDPW入力後のログインボタンのクリックがうまく動作されません。
nameまたはIDがない為、その他の情報から特定する必要があることは分かるのですが、
いまいちその方法が調べても分かりませんでした。
ちなみにログインボタンの要素は以下の通りです。

<input tabindex="3" class="btn-login-theme btn-login" onclick="return loginWithCookie();" ondblclick="return false;" type="submit" value="ログイン">

初歩的な質問になり申し訳ないのですが、何が間違えているのか、どのように書けばうまくログインされるのかご教授頂けないでしょうか。

Answer 1

以下の何れかでうまくいかないでしょうか？

1.ログインボタンのエレメントを取得し、Clickする。

objIE.document.GetElementsByClassName("btn-login-theme btn-login").click

2.ログインボタンのClickイベントに割り当てられたJSを実行する。

objIE.document.Script.setTimeout "javascript:loginWithCookie();", %適切なタイムアウト値%