Yahoo Auto login

'^|Name: Yahoo_autologin.vbs
'^|--------------------------------------------------------------------------
'^|Script auto-logins to user email.
'^| adapted: 'http://itbloggertips.com/2013/07/how-to-auto-login-to-website-gmail-yahoo-using-vbs-vb-script/
'^| Jul 01, 2013
'^|  Syntax:  no cmd line syntax required
'^|--------------------------------------------------------------------------
'^|-:: -- Version History �-
'^|-(Major version).(Minor version).(Revision number).(Build number)
'^|-::          XX.XXX         YYYYMMDD Author Description
'^|Version: 1.0   -  20130701   Anil Kumar  initial release - BETA -by Anil Kumar on July 1, 2013
'^|Version: 1.1   -  20140213   C. Reyes        demo script
'^|Version: 1.2   -  20160109   C. Reyes        changed doc.all to new IE browser settings.
'^|Version: 1.4   -  20160109   C. Reyes        syntax cleanup
'^|Version: 1.5   -  20160109   C. Reyes        changed/added signed-in chkbx
'^|--------------------------------------------------------------------------
'
On Error Resume Next

Const PAGE_LOADED = 4
Set objIE = CreateObject("InternetExplorer.Application")
' alt direct: IE.navigate �https://login.yahoo.com/config/login_verify2?&.src=ym�
Call objIE.Navigate("http://www.yahoomail.com")
objIE.Visible = True

    Do Until objIE.ReadyState = PAGE_LOADED : Call WScript.Sleep(100) : Loop
        objIE.Document.getElementById("login-username").Value = "Username"
        objIE.Document.getElementById("login-passwd").Value = "password"
        objIE.Document.getElementById("persistent").checked=false
    If Err.Number <> 0 Then
        msgbox "Error: " & err.Description
    End If

    Call objIE.Document.getElementById("mbr-login-form").submit

Set objIE = Nothing