Auto Login in web application by single click

Hi ,

I have designed a small Vba script to get auto login a web application.

Set wshShell = WScript.CreateObject ("WSCript.shell")

Set objexplorer = CreateObject("internetexplorer.application")

objexplorer.Navigate "http://sse2.huawei.com"

'objexplorer.Navigate "http://app.huawei.com/times/claim/TimeCardAction.do"
objexplorer.Visible = True



Do While objexplorer.busy
   
   WScript.Sleep 2000 
Loop

Do Until objexplorer.busy



i = 1

'objexplorer.Document.getElementsByName("user").Item(0).Value = ("XXXX")
objexplorer.Document.getElementsByName("password").Item(0).Value = ("YYYY")

'Call objexplorer.forms.form_submit()

forms.SubmitBtn.Click()


WScript.Sleep 4000 

'On Error Resume Next

 Loop

This script is able to browse my Url and filled username and password successfully but it can't click on submit button.

can somebody please help me to correct it.


Thank you so much.............