On Error Resume Next
Set objIE = CreateObject("InternetExplorer.Application")
ssilka = "http://vipavia.ru/links?add"
      objIE.Visible = True     'Если не надо ничего видеть, то поставить False
      objIE.Navigate ssilka
      While objIE.Busy
         WScript.Sleep 200
      Wend 
      Set objForm = objIE.Document.forms(0)
      objForm.elements("linkemail").value = "lala@lala.com"
      objForm.elements("linkbackhref").value = "http://antichat.ru"
      objForm.elements("linktext").value = "ахуительная тут защита, да"
      objForm.elements("linkhref").value = "http://google.ru"
      objForm.elements("desc").value = "описание"
      objForm.submit 
'objIE.Quit' закрываем браузер
'Set objIE = Nothing 
Wscript.Quit ' -выход