Set objIE = CreateObject("InternetExplorer.Application") 
objIE.Navigate "http://yandex.ru" 
objIE.Navigate2 "http://yahoo.com", &h800 
objIE.Navigate2 "http://mail.ru" , &h800 
objIE.Visible = true 
WScript.Sleep 2000 
Set objForm = objIE.Document.forms(0) 
objForm.elements("Login").value = "name" 
objForm.elements("Domain").value = "mail.ru" 
objForm.elements("Password").value = "pass" 
objForm.submit() 
objIE.Visible = True