'Internet Explorer instanzieren
Set oIE = CreateObject("InternetExplorer.Application")
 
'Größe vom IE festlegen
oIE.height = 800
oIE.width = 1000
 
'Warten bis der IE einsatzbereit ist 
Do While oIE.Busy
Loop
 
'Explorer sichtbar machen und URL ansurfen
oIE.Visible = 1
oIE.Navigate sURL
 
 
'Warten bis die Seite komplett geladen wurde
Do While oIE.ReadyState <> 4
Loop
 
'Objekt instanzieren
Set oDoc = oIE.Document
 
'Zugriff auf Webformular
oDoc.All.name.Value = sUser
oDoc.All.password.Value = sPass
 
'Formular abschicken
oDoc.All.Login.submit
 
'Warten bis die Seite komplett geladen wurde
Do While oIE.ReadyState <> 4 
Loop
 
'Kurzer Timer
WScript.Sleep 1000
 
'Ausloggen
oIE.Navigate lURL