Download Web Page to MHT with w/ Disk Cache

Downloads a web page into a .mht web archive. Embedded images and style sheets are loaded and/or saved to a disk cache.

Download Chilkat MHT ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set mht = CreateObject("Chilkat.Mht")

success = mht.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "Mht component unlock failed"
    WScript.Quit
End If

'  Use a single directory to hold cached files.
mht.NumCacheLevels = 0
mht.AddCacheRoot "c:/temp/mhtCache/"

'  Tell the MHT component to save files to cache,
'  and to retrieve from cache if possible:
mht.FetchFromCache = 1
mht.UpdateCache = 1

'  The 1st time this is run, the parts (image files,
'  style sheets, etc.) will be saved to the disk cache.
'  The 2nd time this is run, the parts will load from cache.
'  Note: The main content (i.e. the HTML page)
'  is not saved to cache, nor is it retrieved from cache.
'  It is only the sub-parts (embedded images, style sheets)
'  that are saved to and loaded from cache.
success = mht.GetAndSaveMHT("http://www.intel.com/","intel.mht")

outFile.WriteLine(mht.LastErrorText)

If (success <> 1) Then
    MsgBox "MHT Failed!"
Else
    MsgBox "MHT Created!"
End If

outFile.Close