Sub IE_DownloadBegin()
    On Error Resume Next
    IE.Application.Document.parentWindow.execScript "this.setInterval = function () {};", "JScript"
    On Error Goto 0
End Sub

dim IE
Set IE = New IEClass
IE.Application.Visible = True
IE.Application.Navigate "page.php"

Sub IE_BeforeNavigate2(pDisp, url, Flags, TargetFrameName, PostData, Headers, Cancel)
End Sub

Sub IE_DownloadBegin()
End Sub

Sub IE_DownloadComplete()
End Sub

Sub IE_NavigateComplete2(pDisp, URL)
    set a=pDisp.Document
    set b=a.parentWindow
    set c=b.document.all.tags("body")(0)
    d=c.innerHTML
    'тут с помощью строковых функций "вырезаю" ненужный кусок кода
    c.innerHTML=d
End Sub

Sub IE_DocumentComplete(pDisp, URL)
End Sub

Sub IE_OnQuit()
    Wscript.Quit
End Sub

Class IEClass
    Public Application
    Private Sub Class_Initialize
        Set Application = WScript.CreateObject("InternetExplorer.Application", "IE_")
    End Sub
    Sub Class_Terminate
        Do
            WScript.Sleep 10
        Loop Until Application = ""
    End Sub
End Class