Set objIE = CreateObject("InternetExplorer.Application")
    
    objIE.Visible =  1 
    objIE.Navigate "http://my_url.com"

    While objIE.Busy
        Wscript.Sleep  200 
    Wend

Const sOutputFileName="c:\1.html"

    Dim objIE
    Dim frm
    
    Set objIE = CreateObject("InternetExplorer.Application")
    
    objIE.Visible =  1 
    objIE.Navigate "http://google.com"

    While objIE.Busy
        Wscript.Sleep  200 
    Wend

    Set frm = objIE.document.forms( 0 )

    rm.q.Value = "some text"
    frm.btnI.click
     
     Dim objFSO 
     Set objFSO = CreateObject("Scripting.FileSystemObject")
     if objFSO.FileExists(sOutputFileName) Then objFSO.DeleteFile sOutputFileName
     Dim objFile
     Set objFile = objFSO.CreateTextFile(sOutputFileName, bOverwrite)  
     objFile.Write objIE.Document.body.outerHTML 

     objFile.Close()  
    	
    Set objIE = Nothing
    Set objFile = Nothing
    Set objFSO = NOthing