'创建InternetExplorer.Application对象
Set ie = CreateObject("internetexplorer.application")
ie.Visible = 1'设置网页的可见性
ie.navigate "http://passport.csdn.net/UserLogin.aspx" '打开时间管理登录页
Wscript.Sleep 4000 '等待4秒,确保网页已打开完毕
ie.document.getElementById("ctl00$CPH_Content$tb_LoginNameOrLoginEmail").Value = "xue_zhenhua"'将id为login的表单填为username
ie.document.getElementById("ctl00$CPH_Content$tb_Password").Value = ""
set WshShell=createobject("Wscript.shell")
'WshShell.sendkeys "{ENTER}"
Set ie = Nothing '释放对象占用的内存