(VBScript) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mht")
set mht = CreateObject("Chilkat.Mht")

' Use a single directory to hold cached files.
' (Make sure it is a directory your app has permission to create files.)
mht.NumCacheLevels = 0
mht.AddCacheRoot "/Users/chilkat/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")
If (success <> 1) Then
    outFile.WriteLine(mht.LastErrorText)
Else
    outFile.WriteLine("MHT Created!")
End If


outFile.Close