Set ie = WScript.CreateObject("InternetExplorer.Application", "IE_")

ie.Visible =  1 
Wscript.Sleep  1000 

ie.navigate "www.sql.ru"

While ie.readyState<> 4 
    Wscript.Sleep  200 
Wend

Sub IE_BeforeNavigate2(ByVal pDisp, ByRef url, ByRef Flags, ByRef TargetFrameName, _
                       ByRef PostData, ByRef Headers, ByRef Cancel)
    Wscript.Echo "Will Navigate to URL <" & URL & ">"
End Sub

Sub IE_NavigateComplete2(ByVal pDisp, ByVal URL)
    Wscript.Echo "Navigation to URL: <"  & URL & "> Complete"
End Sub

Sub IE_DocumentComplete(ByVal pDisp, ByVal URL)
    Wscript.Echo "Document Complete URL: <" & URL & ">"
End Sub