Set ie = CreateObject("internetexplorer.application")
set sh=WScript.CreateObject("WScript.Shell")
ie.Visible = True
ie.navigate "http://mail.sina.com.cn/"
While ie.busy Or ie.readystate <> 4
Wend
If ie.document.getElementById("userName") Is Nothing Then
Else
ie.document.getElementById("userName").Value = ""
ie.document.getElementById("password").Value = "***"
WScript.Sleep 3000
sh.SendKeys "{ENTER}"
End If