Solved Help editing a VBS Command line

CreateObject("InternetExplorer.Application").Visible=true

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://xxx.xxx.xx.xx/Pages/login.htm"

Option Explicit
Dim IE, timeoutSeconds, startTime
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://xxx.xxx.xx.xx/Pages/login.htm"

timeoutSeconds = 30 ' maximum seconds to wait for page load
startTime = Timer
Do While IE.Busy Or IE.ReadyState <> 4
    WScript.Sleep 500
    If (Timer - startTime) > timeoutSeconds Then
        WScript.Echo "Timeout waiting for IE to load"
        WScript.Quit 1
    End If
Loop

' extra short wait
WScript.Sleep 1000

Function WaitForElem(id, maxSeconds)
    Dim t, el
    t = Timer
    Do
        On Error Resume Next
        Set el = IE.document.getElementById(id)
        On Error Goto 0
        If Not el Is Nothing Then
            Set WaitForElem = el
            Exit Function
        End If
        WScript.Sleep 500
        If (Timer - t) > maxSeconds Then Exit Do
    Loop
    Set WaitForElem = Nothing
End Function

Dim u, p, btn
Set u = WaitForElem("username", 10)
If u Is Nothing Then
    WScript.Echo "Username field not found"
    WScript.Quit 1
End If
u.Value = "username"

Set p = WaitForElem("password", 10)
If p Is Nothing Then
    WScript.Echo "Password field not found"
    WScript.Quit 1
End If
p.Value = "password"

' --- FIXED LOGIN BUTTON SECTION ---
Set btn = WaitForElem("btnLogin", 10) ' updated ID
If Not btn Is Nothing Then
    btn.Click
Else
    ' Try to find any <button type=submit>
    Dim buttons, i, found
    found = False
    Set buttons = IE.document.getElementsByTagName("button")
    For i = 0 To buttons.length - 1
        If LCase(buttons(i).type) = "submit" Then
            buttons(i).Click
            found = True
            Exit For
        End If
    Next

    If Not found Then
        ' Fallback: submit the first form
        If Not IE.document.forms Is Nothing And IE.document.forms.length > 0 Then
            IE.document.forms(0).submit
        Else
            WScript.Echo "No login button, submit input, or form found"
            WScript.Quit 1
        End If
    End If
End If
' --- END FIX ---

' Clean up
Set u = Nothing
Set p = Nothing
Set btn = Nothing
Set IE = Nothing