Help In IE Automation

PHP Code: 

Sub DemoIE()
    With CreateObject("InternetExplorer.Application")
        .Navigate "https://www.mysein.schneider-electric.com/mysedv/login.do"
        .Visible = True
        While .Busy Or .ReadyState < 4:  DoEvents:  Wend
        With .Document.all
                .login.value = "user1"
             .password.value = "1111"
             .Item(114).onclick
        End With
'        .Quit
    End With
End Sub 


Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !