dim ie
set ie=createobject("internetexplorer.application")
ie.navigate "http://my.chinahr.com/newaccount.aspx?clickbutton=1&jtr=41518621&prj=fa"
ie.visible=true
do while ie.busy
wscript.sleep 1000
loop
ie.document.forms("form1").elements("tbemail").value="asdfasdfasdfasdf2@sohu.com"
ie.document.forms("form1").elements("tbusername").value="asdfasdfasdfasdf2@sohu.com"
ie.document.forms("form1").elements("tbpassword").value="12341243143m"
ie.document.forms("form1").elements("tbpassword2").value="12341243143m"
ie.document.forms("form1").elements("btnnewuser").click