'web2mht for Opera 9
'(c) Lambda Core Foundation 2006
'version 1.0
'
'usage: web2mht URL c:\storage

if Wscript.arguments.count <> 2 then
	MsgBox("Invalid arguments")
	Wscript.quit(1)
end if

Dim iMsg
Set iMsg = WScript.CreateObject("CDO.Message")
Dim iConf
Set iConf = WScript.CreateObject("CDO.Configuration")
Dim iStream

Dim Address
Address = Wscript.arguments.Item(0)
Dim Directory
Directory = Wscript.arguments.Item(1)

Dim Title
title = InputBox("Enter Title")
if title="" then Wscript.quit(1)

Dim FileName
FileName = Directory+"/"+Title+".mht"

iMsg.Configuration = iConf
iMsg.CreateMHTMLBody Address
Set iStream = iMsg.GetStream
iStream.SaveToFile FileName, 1