OPTION EXPLICIT
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----Windows Script Host script to generate components needed to run WSH, HTA, or 
'-----ADO (for Microsoft SQL Server connectivity) under Windows PE.
'-----Copyright 2002, Microsoft Corporation
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----DIM & DEFINE VARIABLES, CREATE COM OBJECTS
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	DIM strCmdArg, strCmdSwitch, arg, strCmdArray, CDDriveCollection, CDDrive, strOptionalSource, FSO, Folder, HDDColl
	DIM HDD, FirstHDD, strAppend, WSHShell, strDesktop, strOptionalDestination, strDestFolder, strSampleDir, strAsk, iAsk
	DIM FILE, strCMDExpand, strCMDMid, strJobTitle, strNeedCD, iAmPlatform, iArchDir, strPlatName, strFinalLocation
	DIM iAmQuiet,iHaveSource, iHaveDest, iWillBrowse, WshSysEnv, strOSVer, strWantToView, strFolderName, intOneMore
	DIM strCMDado, strCMDmsadc, strCMDOle_db, strIDir, strSysDir, makeADO, makeHTA, makeWSH, strComps, strSamples
	DIM strcpDirections, strADOcpDirections
	Const ForAppending = 8
	strJobTitle = "WinPE Optional Component Generation"
	SET WshShell = WScript.CreateObject("WScript.Shell")
	SET WshSysEnv = WshShell.Environment("SYSTEM")
	SET FSO = CreateObject("Scripting.FileSystemObject")




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----ERROR OUT IF NOT RUNNING ON Windows NT
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	strOSVer = WshSysEnv("OS")
	IF strOSVer <> "Windows_NT" THEN
		MsgBox "This script must be run on Windows 2000 or a newer version of Microsoft Windows.", vbCritical, "Incorrect Windows Version."
		WScript.Quit
	END IF




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----OFFER/TAKE CMDLINE PARAMETERS AND INTERPRET THEM
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	IF WScript.Arguments.Count <> 0 Then
	   For each arg in WScript.Arguments
		strCmdArg = (arg)
		strCmdArray = Split(strCmdArg, ":", 2, 1) 
		IF lcase(strCmdArray(0)) = "/s" or lcase(strCmdArray(0)) = "-s" or lcase(strCmdArray(0)) = "/source" or lcase(strCmdArray(0)) = "-source" THEN
			iHaveSource = 1
			strOptionalSource = TRIM(strCmdArray(1))			
		END IF
		IF lcase(strCmdArray(0)) = "/d" or lcase(strCmdArray(0)) = "-d" or lcase(strCmdArray(0)) = "/destination" or lcase(strCmdArray(0)) = "-destination"  THEN
			iHaveDest = 1
			strOptionalDestination = TRIM(strCmdArray(1))			
		END IF
		IF lcase(strCmdArray(0)) = "/?" OR lcase(strCmdArray(0)) = "-?" THEN
			MsgBox "The following command-line arguments are accepted by this script:"&vbCRLF&vbCRLF&_
			"""/S:filepath"" - alternate source location other than the CD-ROM drive."&vbCRLF&vbCRLF&"Examples:"&vbCRLF&vbCRLF&_
			"	/S:C:\"&vbCRLF&_
			"	-s:Z:\"&vbCRLF&_
			"	or"&vbCRLF&_
			"	-S:\\Myserver\Myshare"&vbCRLF&vbCRLF&_
			"/D - Destination. Opposite of S - specifies build destination. Otherwise files are placed on the desktop."&vbCRLF&vbCRLF&_
			"/ADO - Build ADO (ActiveX Database Objects) for Microsoft SQL Server connectivity"&vbCRLF&_
			"/HTA - Build HTA (HTML Applications)"&vbCRLF&_
			"/WSH - Build WSH (Windows Script Host)"&vbCRLF&_
			"Note that if you do not specify which components, "&_
			"or you do not run this script from the command-line, all optional "&_
			"components will be installed. If you include HTA, WSH is included"&_
			"automatically, and cannot be removed."&vbCRLF&vbCRLF&_
			"/64 - build for Itanium. Generates scripts for Windows on the Itanium Processor Family. Requires a copy of Windows XP 64-Bit Edition."&vbCRLF&vbCRLF&_
			"/Q - suppress dialogs. This will not confirm success, will notify on failure."&vbCRLF&vbCRLF&_
			"/E - explore completed files. Open Explorer to the copied files (can use with /Q).", vbInformation, "Command-line arguments"
		WScript.Quit
		END IF
		IF lcase(strCmdArray(0)) = "/64" OR lcase(strCmdArray(0)) = "-64" THEN
			iAmPlatform = "Itanium"
		END IF
		IF lcase(strCmdArray(0)) = "/q" OR lcase(strCmdArray(0)) = "-q" THEN
			iAmQuiet = 1
		END IF
		IF lcase(strCmdArray(0)) = "/e" OR lcase(strCmdArray(0)) = "-e" THEN
			iWillBrowse = 1
		END IF
		IF lcase(strCmdArray(0)) = "/ado" OR lcase(strCmdArray(0)) = "-ado" THEN
			makeADO = 1
		END IF
		IF lcase(strCmdArray(0)) = "/hta" OR lcase(strCmdArray(0)) = "-hta" THEN
			makeHTA = 1
		END IF
		IF lcase(strCmdArray(0)) = "/wsh" OR lcase(strCmdArray(0)) = "-wsh" THEN
			makeWSH = 1
		END IF
		IF makeHTA = 1 THEN
			makeWSH = 1
		END IF
	   Next
	ELSE
		iHaveSource = 0
	END IF

	IF makeADO <> 1 AND makeHTA <> 1 AND makeWSH <> 1 THEN
		makeADO = 1
		makeHTA = 1
		makeWSH = 1
	END IF
	IF iAmQuiet <> 1 THEN
		iAmQuiet = 0
	END IF
	IF iAmPlatform <> "Itanium" THEN
		iArchDir = "I386"
		strPlatName = "Professional"
	ELSE	
		iArchDir = "IA64"
		strPlatName = "64-Bit Edition"
	END IF
	
	IF Right(strOptionalDestination, 1) = "\" THEN
		strOptionalDestination = Left(strOptionalDestination, LEN(strOptionalDestination)-1)
	END IF	
	IF Right(strOptionalSource, 1) = "\" THEN
		strOptionalSource = Left(strOptionalSource, LEN(strOptionalSource)-1)
	END IF
	IF strOptionalDestination = "" THEN
		iHaveDest = 0
	ELSEIF INSTR(UCASE(strOptionalDestination), "I386\") <> 0 OR INSTR(UCASE(strOptionalDestination), "IA64\") <> 0 OR INSTR(UCASE(strOptionalDestination), "SYSTEM32") <> 0 THEN
		MsgBox "The destination path needs to be the root of your newly created WinPE install - remove any extraneous path information, such as """&iArchDir&""" or ""System32""", vbCritical, "Destination Path Incorrect"
	WScript.Quit
	END IF





''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----GENERATE COLLECTION OF CD-ROM DRIVES VIA WMI. PICK FIRST AVAILABLE
'-----ERROR OUT IF NO DRIVES FOUND
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	IF iHaveSource = 0 THEN
	SET CDDriveCollection = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_CDROMDrive")
		IF CDDriveCollection.Count < 1 THEN
			MsgBox "No CD-ROM drives found, and no alternative location specified. Exiting Script.", vbCritical, "No CD-ROM drive found"
			WScript.Quit
		END IF
			FOR EACH CDDrive IN CDDriveCollection
				strOptionalSource = CDDrive.Drive(0)
				EXIT FOR
			NEXT
	END IF




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----PROMPT FOR WINDOWS CD - QUIT IF CANCELLED
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	IF makeADO = 1 THEN
		strComps = "	ADO (ActiveX Database Objects) for Microsoft SQL Server connectivity "&vbCrLF
		strSamples = "	testADO.vbs (to test that ADO connectivity to SQL Server is functioning)"&vbCrLF
	END IF
	IF makeHTA = 1 THEN
		strComps = strComps&"	HTA (HTML Applications)"&vbCrLF
		strSamples = strSamples&"	testHTA.hta (to test that HTML Applications are functioning)"&vbCrLF
	END IF
	IF makeWSH = 1 THEN
		strComps = strComps&"	WSH (Windows Script Host)"&vbCrLF
		strSamples = strSamples&"	testWSH.vbs (to test that Windows Script Host is functioning)"&vbCrLF
	END IF

		strComps = strComps&vbCrLF
		strSamples = strSamples&vbCrLF
	
	IF iAmQuiet = 0 THEN
		strNeedCD = MsgBox("This script will place a folder on your desktop containing all necessary files needed to "&_
		"install the following optional components in Windows PE:"&vbCrLF&vbCrLF&_
		strComps&_
		"Please ensure that your "&_
		"Windows XP "&strPlatName&" CD, or a mapped drive to a network share of Windows XP "&strPlatName&" is available now at "&_
		"this location: "&vbCrLF&vbCrLF&"     "&strOptionalSource&vbCrLF&vbCrLF&_
		"This script is only designed to be executed on Windows XP, and the resulting components "&_
		"are only for use with Windows PE.", 65, strJobTitle)
	END IF

	IF strNeedCD = 2 THEN
		WScript.Quit
	END IF



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----TEST VIA WMI TO INSURE MEDIA IS PRESENT AND READABLE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF iHaveSource = 0 THEN
TestForMedia()
END IF




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----TESTS FOR EXISTANCE OF SEVERAL KEY FILES, AND A FILE COUNT IN I386 or IA64 TO INSURE
'-----WINDOWS XP PRO MEDIA
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Validate(iArchDir)




'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----FIND THE USER'S DESKTOP, AND PUT NEW FOLDER THERE - APPEND TIMESTAMP IF THE FOLDER
'-----ALREADY EXISTS.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
strDesktop = WshShell.SpecialFolders("Desktop")
strFolderName = "WinPE Optional Component Files ("&iArchDir&")"

IF iHaveDest = 0 THEN
	strDestFolder = strDesktop&"\"&strFolderName
	IF FSO.FolderExists(strDestFolder) THEN
		GetUnique()
		strDestFolder = strDestFolder&strAppend
		strFolderName = strFolderName&strAppend
	END IF
ELSE
	strDestFolder = strOptionalDestination
END IF


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----CHECK FOR FOLDERS AND CREATE IF THEY DON'T EXIST
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	strSampleDir = strDestFolder&"\Samples"

	CheckNMakeFolder(strDestFolder)
	CheckNMakeFolder(strDestFolder&"\"&iArchDir)
	CheckNMakeFolder(strDestFolder&"\"&iArchDir&"\Registration")
	CheckNMakeFolder(strDestFolder&"\"&iArchDir&"\System32")
	CheckNMakeFolder(strSampleDir)


IF makeADO = 1 THEN
	CheckNMakeFolder(strDestFolder&"\Program Files")
	CheckNMakeFolder(strDestFolder&"\Program Files\Common Files")
	CheckNMakeFolder(strDestFolder&"\Program Files\Common Files\System")
	CheckNMakeFolder(strDestFolder&"\Program Files\Common Files\System\ado")
	CheckNMakeFolder(strDestFolder&"\Program Files\Common Files\System\msadc")
	CheckNMakeFolder(strDestFolder&"\Program Files\Common Files\System\Ole db")
	strCMDado = """ """&strDestFolder&"\Program Files\Common Files\System\ado\"
	strCMDmsadc = """ """&strDestFolder&"\Program Files\Common Files\System\msadc\"
	strCMDOle_db = """ """&strDestFolder&"\Program Files\Common Files\System\Ole db\"
END IF



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----SET COMMON VARIABLES FOR FILE EXPANSION
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	strCMDExpand = "EXPAND """&strOptionalSource&"\"&iArchDir&"\"
	strCMDMid = """ """&strDestFolder&"\"&iArchDir&"\System32\"



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----SHELL OUT THE EXPANSION OF core WSH Files. (EXE, DLL, OCX)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF makeWSH = 1 THEN
	WshShell.Run strCMDExpand&"wsh.in_"&strCMDMid&"wsh.inf""", 0, FALSE
	WshShell.Run strCMDExpand&"wscript.ex_"&strCMDMid&"wscript.exe""", 0, FALSE
	WshShell.Run strCMDExpand&"cscript.ex_"&strCMDMid&"cscript.exe""", 0, FALSE
	WshShell.Run strCMDExpand&"jscript.dl_"&strCMDMid&"jscript.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"mlang.dl_"&strCMDMid&"mlang.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"scrobj.dl_"&strCMDMid&"scrobj.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"scrrun.dl_"&strCMDMid&"scrrun.dll""", 0, FALSE
	IF iArchDir <> "I386" THEN
		WshShell.Run strCMDExpand&"stdole2.tl_"&strCMDMid&"stdole2.tlb""", 0, FALSE
	END IF
	WshShell.Run strCMDExpand&"urlmon.dl_"&strCMDMid&"urlmon.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"vbscript.dl_"&strCMDMid&"vbscript.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"wshext.dl_"&strCMDMid&"wshext.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"wshom.oc_"&strCMDMid&"wshom.ocx""", 0, FALSE
END IF




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----SHELL OUT THE EXPANSION OF core HTA Files. (EXE, TLB, DLL, OCX)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF makeHTA = 1 THEN
	WshShell.Run strCMDExpand&"mshta.ex_"&strCMDMid&"mshta.exe""", 0, FALSE
	WshShell.Run strCMDExpand&"msdatsrc.tl_"&strCMDMid&"msdatsrc.tlb""", 0, FALSE
	WshShell.Run strCMDExpand&"mshtml.tl_"&strCMDMid&"mshtml.tlb""", 0, FALSE
	WshShell.Run strCMDExpand&"asctrls.oc_"&strCMDMid&"asctrls.ocx""", 0, FALSE
	WshShell.Run strCMDExpand&"plugin.oc_"&strCMDMid&"plugin.ocx""", 0, FALSE
	WshShell.Run strCMDExpand&"actxprxy.dl_"&strCMDMid&"actxprxy.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"advpack.dl_"&strCMDMid&"advpack.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"corpol.dl_"&strCMDMid&"corpol.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"cryptdlg.dl_"&strCMDMid&"cryptdlg.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"ddrawex.dl_"&strCMDMid&"ddrawex.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"dispex.dl_"&strCMDMid&"dispex.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"dxtmsft.dl_"&strCMDMid&"dxtmsft.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"dxtrans.dl_"&strCMDMid&"dxtrans.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"hlink.dl_"&strCMDMid&"hlink.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"iedkcs32.dl_"&strCMDMid&"iedkcs32.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"iepeers.dl_"&strCMDMid&"iepeers.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"iesetup.dl_"&strCMDMid&"iesetup.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"inseng.dl_"&strCMDMid&"inseng.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"itircl.dl_"&strCMDMid&"itircl.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"itss.dl_"&strCMDMid&"itss.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"licmgr10.dl_"&strCMDMid&"licmgr10.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"mshtml.dl_"&strCMDMid&"mshtml.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"mshtmled.dl_"&strCMDMid&"mshtmled.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msrating.dl_"&strCMDMid&"msrating.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"mstime.dl_"&strCMDMid&"mstime.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"pngfilt.dl_"&strCMDMid&"pngfilt.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"sendmail.dl_"&strCMDMid&"sendmail.dll""", 0, FALSE



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----CREATE the INF to associate HTAS.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	SET FILE = fso.CreateTextFile(strDestFolder&"\"&iArchDir&"\System32\HTA.inf", True)
	FILE.WriteLine (";;; HTA simple file association Information File")
	FILE.WriteLine (";;; Copyright (c) 2001 Microsoft Corporation")
	FILE.WriteLine (";;; 06/12/01 09:31:03 (X86 2490)")
	FILE.WriteLine (";;;")
	FILE.WriteLine ("")
	FILE.WriteLine ("[Version]")
	FILE.WriteLine ("Signature       = ""$Chicago$""")
	FILE.WriteLine ("AdvancedINF=2.0")
	FILE.WriteLine ("")
	FILE.WriteLine ("[DefaultInstall]")
	FILE.WriteLine ("AddReg          = AddReg.Extensions")
	FILE.WriteLine ("")
	FILE.WriteLine ("[AddReg.Extensions]")
	FILE.WriteLine ("")
	FILE.WriteLine ("; .HTA")
	FILE.WriteLine ("HKCR, "".HTA"","""",,""HTAFile""")
	FILE.WriteLine ("HKCR, ""HTAFile"","""",,""%DESC_DOTHTA%""")
	FILE.WriteLine ("HKCR, ""HTAFile"",""IsShortcut"",,""Yes""")
	FILE.WriteLine ("HKCR, ""HTAFile\DefaultIcon"","""",FLG_ADDREG_TYPE_EXPAND_SZ,""%11%\MSHTA.exe,1""")
	FILE.WriteLine ("HKCR, ""HTAFile\Shell\Open"","""",,""%MENU_OPEN%""")
	FILE.WriteLine ("HKCR, ""HTAFile\Shell\Open\Command"",,FLG_ADDREG_TYPE_EXPAND_SZ,""%11%\MSHTA.exe """"%1"""" %*""")
	FILE.WriteLine ("")
	FILE.WriteLine ("")
	FILE.WriteLine ("[Strings]")
	FILE.WriteLine ("; Localizable strings")
	FILE.WriteLine ("DESC_DOTHTA         = ""Microsoft Windows HTML Application""")
	FILE.WriteLine ("")
	FILE.WriteLine ("MENU_OPEN           = ""&Open""")
	FILE.WriteLine ("MENU_CONOPEN        = ""Open &with Command Prompt""")
	FILE.WriteLine ("MENU_DOSOPEN        = ""Open &with MS-DOS Prompt""")
	FILE.WriteLine ("MENU_EDIT           = ""&Edit""")
	FILE.WriteLine ("MENU_PRINT          = ""&Print""")
	FILE.Close




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----CREATE the INF to install MSHTML.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	SET FILE = fso.CreateTextFile(strDestFolder&"\"&iArchDir&"\System32\mshtml.inf", True)
	FILE.WriteLine("[Version]")
	FILE.WriteLine("Signature=""$CHICAGO$""")
	FILE.WriteLine("[Reg]")
	FILE.WriteLine("ComponentName=mshtml.DllReg")
	FILE.WriteLine("ComponentVersion=6.0")
	FILE.WriteLine("AdvOptions=36")
	FILE.WriteLine("AddReg=Classes.Reg, Protocols.Reg, InetPrint.Reg, Misc.Reg")
	FILE.WriteLine("DelReg=BaseDel.Reg, !RemoveInsertable")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[!RemoveInsertable]")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\Insertable""")
	FILE.WriteLine("[RegCompatTable]")
	FILE.WriteLine("ComponentName=mshtml.DllReg")
	FILE.WriteLine("ComponentVersion=6.0")
	FILE.WriteLine("AdvOptions=36")
	FILE.WriteLine("AddReg=CompatTable.Reg")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[RegUrlCompatTable]")
	FILE.WriteLine("ComponentName=mshtml.DllReg")
	FILE.WriteLine("ComponentVersion=6.0")
	FILE.WriteLine("AdvOptions=36")
	FILE.WriteLine("AddReg=UrlCompatTable.Reg")
	FILE.WriteLine("DelReg=UrlCompatTableDel.Reg")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[RegJPEG]")
	FILE.WriteLine("ComponentName=mshtml.Install")
	FILE.WriteLine("ComponentVersion=6.0")
	FILE.WriteLine("AdvOptions=36")
	FILE.WriteLine("AddReg=JPEG.Inst")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[RegJPG]")
	FILE.WriteLine("ComponentName=mshtml.Install")
	FILE.WriteLine("ComponentVersion=6.0")
	FILE.WriteLine("AdvOptions=36")
	FILE.WriteLine("AddReg=JPG.Inst")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[RegJPE]")
	FILE.WriteLine("ComponentName=mshtml.Install")
	FILE.WriteLine("ComponentVersion=6.0")
	FILE.WriteLine("AdvOptions=36")
	FILE.WriteLine("AddReg=JPE.Inst")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[RegPNG]")
	FILE.WriteLine("ComponentName=mshtml.Install")
	FILE.WriteLine("ComponentVersion=6.0")
	FILE.WriteLine("AdvOptions=36")
	FILE.WriteLine("AddReg=PNG.Inst")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[RegPJPG]")
	FILE.WriteLine("ComponentName=mshtml.Install")
	FILE.WriteLine("ComponentVersion=6.0")
	FILE.WriteLine("AdvOptions=36")
	FILE.WriteLine("AddReg=PJPG.Inst")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[RegXBM]")
	FILE.WriteLine("ComponentName=mshtml.Install")
	FILE.WriteLine("ComponentVersion=6.0")
	FILE.WriteLine("AdvOptions=36")
	FILE.WriteLine("AddReg=XBM.Inst")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[RegGIF]")
	FILE.WriteLine("ComponentName=mshtml.Install")
	FILE.WriteLine("ComponentVersion=6.0")
	FILE.WriteLine("AdvOptions=36")
	FILE.WriteLine("AddReg=GIF.Inst")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[Unreg]")
	FILE.WriteLine("ComponentName=mshtml.DllReg")
	FILE.WriteLine("AdvOptions=260")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[Install]")
	FILE.WriteLine("ComponentName=mshtml.Install")
	FILE.WriteLine("ComponentVersion=6.0")
	FILE.WriteLine("AdvOptions=36")
	FILE.WriteLine("AddReg=FileAssoc.Inst, MIME.Inst, Misc.Inst")
	FILE.WriteLine("DelReg=BaseDel.Inst,IE3TypeLib,mshtmlwbTypeLib")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[Uninstall]")
	FILE.WriteLine("ComponentName=mshtml.Install")
	FILE.WriteLine("AdvOptions=260")
	FILE.WriteLine("NoBackupPlatform=NT5.1")
	FILE.WriteLine("[Classes.Reg]")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImgCtx%,,,""IImgCtx""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImgCtx%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImgCtx%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImgCtx%\ProgID,,,""IImgCtx""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CBackgroundPropertyPage%,,,""Microsoft HTML Background Page""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CBackgroundPropertyPage%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CBackgroundPropertyPage%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CCDAnchorPropertyPage%,,,""Microsoft HTML Anchor Page""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CCDAnchorPropertyPage%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CCDAnchorPropertyPage%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CCDGenericPropertyPage%,,,""Microsoft HTML Generic Page""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CCDGenericPropertyPage%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CCDGenericPropertyPage%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CDwnBindInfo%,,,""Microsoft HTML DwnBindInfo""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CDwnBindInfo%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CDwnBindInfo%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CInlineStylePropertyPage%,,,""Microsoft HTML Inline Style Page""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CInlineStylePropertyPage%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_CInlineStylePropertyPage%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_HTMLWindowProxy%,,,""Microsoft HTML Window Security Proxy""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_HTMLWindowProxy%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_HTMLWindowProxy%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_JSProtocol%,,,""Microsoft HTML Javascript Pluggable Protocol""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_JSProtocol%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_JSProtocol%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_ResProtocol%,,,""Microsoft HTML Resource Pluggable Protocol""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_ResProtocol%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_ResProtocol%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_AboutProtocol%,,,""Microsoft HTML About Pluggable Protocol""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_AboutProtocol%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_AboutProtocol%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_MailtoProtocol%,,,""Microsoft HTML Mailto Pluggable Protocol""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_MailtoProtocol%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_MailtoProtocol%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_SysimageProtocol%,,,""Microsoft HTML Resource Pluggable Protocol""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_SysimageProtocol%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_SysimageProtocol%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLDocument%"",,,""HTML Document""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLDocument%\BrowseInPlace"",,,""""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLDocument%\DefaultIcon"",,%REG_EXPAND_SZ%,""%IEXPLORE%,1""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLDocument%\InProcServer32"",,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLDocument%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLDocument%\MiscStatus"",,,""2228625""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLDocument%\ProgID"",,,""htmlfile""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLDocument%\Version"",,,""6.0""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLDocument%\EnablePlugin\.css"",,%REG_EXPAND_SZ%,""PointPlus plugin""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTADocument%"",,,""Microsoft HTA Document 6.0""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTADocument%\BrowseInPlace"",,,""""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTADocument%\InProcServer32"",,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTADocument%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTADocument%\MiscStatus"",,,""2228625""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTADocument%\Version"",,,""6.0""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_MHTMLDocument%"",,,""MHTML Document""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_MHTMLDocument%\BrowseInPlace"",,,""""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_MHTMLDocument%\DefaultIcon"",,%REG_EXPAND_SZ%,""%IEXPLORE%,1""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_MHTMLDocument%\InProcServer32"",,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_MHTMLDocument%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_MHTMLDocument%\MiscStatus"",,,""2228625""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_MHTMLDocument%\ProgID"",,,""mhtmlfile""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_MHTMLDocument%\Version"",,,""6.0""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPluginDocument%"",,,""Microsoft HTML Document 6.0""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPluginDocument%\BrowseInPlace"",,,""""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPluginDocument%\InProcServer32"",,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPluginDocument%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPluginDocument%\MiscStatus"",,,""0""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPluginDocument%\ProgID"",,,""htmlfile_FullWindowEmbed""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_HTMLServerDoc%,,,""Microsoft HTML Server Document 6.0""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_HTMLServerDoc%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_HTMLServerDoc%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_HTMLLoadOptions%,,,""Microsoft HTML Load Options""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_HTMLLoadOptions%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_HTMLLoadOptions%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IntDitherer%,,,""IntDitherer Class""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IntDitherer%\InProcServer32,,131072,%_SYS_MOD_PATH%")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IntDitherer%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CrSource%"",,,""Microsoft CrSource 4.0""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CrSource%\BrowseInPlace"",,,""""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CrSource%\DefaultIcon"",,%REG_EXPAND_SZ%,""%IEXPLORE%,1""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CrSource%\EnablePlugin\.css"",,%REG_EXPAND_SZ%,""PointPlus plugin""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CrSource%\InProcServer32"",,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CrSource%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CrSource%\MiscStatus"",,,""2228625""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CrSource%\ProgID"",,,""CrSource""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CrSource%\Version"",,,""4.0""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%"",,,""Microsoft Scriptlet Component""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\Control""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\InProcServer32"",,,""%_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\MiscStatus"",,,""0""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\MiscStatus\1"",,,""131473""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\ProgID"",,,""ScriptBridge.ScriptBridge.1""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\Programmable""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\ToolboxBitmap32"",,,""%IEXPLORE%,1""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\TypeLib"",,,""{3050f1c5-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\Version"",,,""4.0""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_Scriptlet%\VersionIndependentProgID"",,,""ScriptBridge.ScriptBridge""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CPeerHandler%"",,,""Microsoft Scriptlet Element Behavior Handler""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CPeerHandler%\InProcServer32"",,,""%_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CPeerHandler%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CPeerHandler%\ProgID"",,,""Scriptlet.Behavior""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CHiFiUses%"",,,""Microsoft Scriptlet HiFiTimer Uses""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CHiFiUses%\InProcServer32"",,,""%_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CHiFiUses%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CHiFiUses%\ProgID"",,,""Scriptlet.HiFiTimer""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CRecalcEngine%"",,,""Microsoft HTML Recalc""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CRecalcEngine%\InProcServer32"",,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CRecalcEngine%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CSvrOMUses%"",,,""Microsoft Scriptlet svr om Uses""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CSvrOMUses%\InProcServer32"",,,""%_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CSvrOMUses%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CSvrOMUses%\ProgID"",,,""Scriptlet.SvrOm""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CHtmlComponentConstructor%"",,,""Microsoft Html Component""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CHtmlComponentConstructor%\InProcServer32"",,,""%_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CHtmlComponentConstructor%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPopup%"",,,""Microsoft Html Popup Window""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPopup%\InProcServer32"",,,""%_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPopup%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPopupDoc%"",,,""Microsoft Html Document for Popup Window""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPopupDoc%\InProcServer32"",,,""%_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLPopupDoc%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CAnchorBrowsePropertyPage%"",,,""%Microsoft Anchor Element Browse Property Page%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CAnchorBrowsePropertyPage%\InProcServer32"",,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CAnchorBrowsePropertyPage%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CImageBrowsePropertyPage%"",,,""%Microsoft Image Element Browse Property Page%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CImageBrowsePropertyPage%\InProcServer32"",,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CImageBrowsePropertyPage%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CDocBrowsePropertyPage%"",,,""%Microsoft Document Browse Property Page%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CDocBrowsePropertyPage%\InProcServer32"",,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_CDocBrowsePropertyPage%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_ExternalFrameworkSite%,,,""Microsoft HTML External Document""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_ExternalFrameworkSite%\InProcServer32,,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_ExternalFrameworkSite%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_TridentAPI%"",,,""%Trident API%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_TridentAPI%\InProcServer32"",,%REG_EXPAND_SZ%,""%_SYS_MOD_PATH%""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_TridentAPI%\InProcServer32"",""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("[Protocols.Reg]")
	FILE.WriteLine("HKCR,""PROTOCOLS\Handler\javascript"",""CLSID"",,""%CLSID_JSProtocol%""")
	FILE.WriteLine("HKCR,""PROTOCOLS\Handler\vbscript"",""CLSID"",,""%CLSID_JSProtocol%""")
	FILE.WriteLine("HKCR,""PROTOCOLS\Handler\about"",""CLSID"",,""%CLSID_AboutProtocol%""")
	FILE.WriteLine("HKCR,""PROTOCOLS\Handler\res"",""CLSID"",,""%CLSID_ResProtocol%""")
	FILE.WriteLine("HKCR,""PROTOCOLS\Handler\mailto"",""CLSID"",,""%CLSID_MailtoProtocol%""")
	FILE.WriteLine("HKCR,""PROTOCOLS\Handler\sysimage"",""CLSID"",,""%CLSID_SysImageProtocol%""")
	FILE.WriteLine("[CompatTable.Reg]")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility"", ""Version"",,""5.16""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_VivoViewer%"", ""Compatibility Flags"",%REG_COMPAT%,0x8")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MSInvestorNews%"", ""Compatibility Flags"",%REG_COMPAT%,0x180")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_ActiveMovie%"", ""Compatibility Flags"",%REG_COMPAT%,0x10000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_Plugin%"", ""Compatibility Flags"",%REG_COMPAT%,0x20")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_AppletOCX%"", ""Compatibility Flags"",%REG_COMPAT%,0x10000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_SaxCanvas%"", ""Compatibility Flags"",%REG_COMPAT%,0x820")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MediaPlayer%"", ""Compatibility Flags"",%REG_COMPAT%,0x110000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_CitrixWinframe%"", ""Compatibility Flags"",%REG_COMPAT%,0x1000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_GregConsDieRoll%"", ""Compatibility Flags"",%REG_COMPAT%,0x2020")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_VActive%"", ""Compatibility Flags"",%REG_COMPAT%,0x8")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_IEMenu%"", ""Compatibility Flags"",%REG_COMPAT%,0x20")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_WebBrowser%"", ""Compatibility Flags"",%REG_COMPAT% ,0x21")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_Forms3Optionbutton%"", ""Compatibility Flags"",%REG_COMPAT%,0x1")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_SurroundVideo%"", ""Compatibility Flags"",%REG_COMPAT%,0x40")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_SheridanCommand%"", ""Compatibility Flags"",%REG_COMPAT%,0x2000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MCSITree%"", ""Compatibility Flags"",%REG_COMPAT%,0x820")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MSTreeView%"", ""Compatibility Flags"",%REG_COMPAT%,0x20")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_Acrobat%"", ""Compatibility Flags"",%REG_COMPAT%,0x8008")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MSInvestor%"", ""Compatibility Flags"",%REG_COMPAT%,0x10")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_PowerPointAnimator%"", ""Compatibility Flags"",%REG_COMPAT%,0x240")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_PowerPointAnimator%"", ""MiscStatus Flags"",%REG_COMPAT%,0x180")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_NCompassBillboard%"", ""Compatibility Flags"",%REG_COMPAT%,0x4000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_NCompassLightboard%"", ""Compatibility Flags"",%REG_COMPAT%,0x4000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_ProtoviewTreeView%"", ""Compatibility Flags"",%REG_COMPAT%,0x4000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_ActiveEarthTime%"", ""Compatibility Flags"",%REG_COMPAT%,0x4000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_LeadControl%"", ""Compatibility Flags"",%REG_COMPAT%,0x4000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_TextX%"", ""Compatibility Flags"",%REG_COMPAT%,0x2000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_IISForm%"", ""Compatibility Flags"",%REG_COMPAT%,0x2")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_GreetingsUpload%"", ""Compatibility Flags"",%REG_COMPAT%,0x20")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_GreetingsDownload%"", ""Compatibility Flags"",%REG_COMPAT%,0x20")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_COMCTLTree%"", ""Compatibility Flags"",%REG_COMPAT%,0x820")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_COMCTLProg%"", ""Compatibility Flags"",%REG_COMPAT%,0x820")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_COMCTLListview%"", ""Compatibility Flags"",%REG_COMPAT%,0x820")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_COMCTLImageList%"", ""Compatibility Flags"",%REG_COMPAT%,0x820")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_COMCTLSbar%"", ""Compatibility Flags"",%REG_COMPAT%,0x820")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MCSIMenu%"", ""Compatibility Flags"",%REG_COMPAT%,0x20")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MSNVer%"", ""Compatibility Flags"",%REG_COMPAT%,0x20")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_RichTextCtrl%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_IETimer%"", ""Compatibility Flags"",%REG_COMPAT%,0x20")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_SubScr%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_Scriptlet%"", ""Compatibility Flags"",%REG_COMPAT%,0x20")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_OldXsl%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MMC%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_IE4ShellFolderIcon%"", ""Compatibility Flags"",%REG_COMPAT%,0x20000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_IE4ShellPieChart%"", ""Compatibility Flags"",%REG_COMPAT%,0x20000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_RealAudio%"", ""Compatibility Flags"",%REG_COMPAT%,0x10000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_WebCalc%"", ""Compatibility Flags"",%REG_COMPAT%,0x40000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_AnswerList%"", ""Compatibility Flags"",%REG_COMPAT%,0x80000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_PreLoader%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_EyeDog%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_ImgAdmin%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_ImgThumb%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_HHOpen%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_RegWiz%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_SetupCtl%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_ImgEdit%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_ImgEdit2%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_ImgScan%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_IELabel%"", ""Compatibility Flags"",%REG_COMPAT%,0x40000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_HomePubRender%"", ""Compatibility Flags"",%REG_COMPAT%,0x00100000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MGIPhotoSuiteBtn%"", ""Compatibility Flags"",%REG_COMPAT%,0x00200000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MGIPhotoSuiteSlider%"", ""Compatibility Flags"",%REG_COMPAT%,0x00200000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MGIPrintShopSlider%"", ""Compatibility Flags"",%REG_COMPAT%,0x00200000")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_RunLocExe%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_Launchit2%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\ActiveX Compatibility\%CLSID_MS_MSHTA%"", ""Compatibility Flags"",%REG_COMPAT%,0x400")
	FILE.WriteLine("[UrlCompatTable.Reg]")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility"", ""Version"",,""5.1""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\~/CWIZINTR.HTM"",""Compatibility Flags"",%REG_COMPAT%,0x4")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\~/CONNWIZ.HTM"",""Compatibility Flags"",%REG_COMPAT%,0x4")
	FILE.WriteLine("[UrlCompatTableDel.Reg]")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN31/ENG/DEMOBIN/START.HTM""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN31/ENG/DEMOBIN/TOOLBAR.HTM""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN31/ENG/DEMOBIN/WEL2.HTM""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN31/ENG/DEMOBIN/WELCOME.HTM""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN95/ENG/DEMOBIN/CONTBAR.HTM""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN95/ENG/DEMOBIN/START.HTM""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN95/ENG/DEMOBIN/TOOLBAR.HTM""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN95/ENG/DEMOBIN/WELCOME.HTM""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN95/WEBPAGES/CACHED/CARPOINT/DEFAULT.HTM""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN31/ENG/DEMOBIN/WEL2.HTM""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN31/ENG/DEMOBIN/WELCOME.HTM""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\URL Compatibility\_:/WIN95/ENG/DEMOBIN/WELCOME.HTM""")
	FILE.WriteLine("[InetPrint.Reg]")
	FILE.WriteLine("HKCR,""InternetShortcut\shell\print\command"",,%REG_EXPAND_SZ%,""rundll32.exe %_SYS_MOD_PATH%,PrintHTML """"%%1""""""")
	FILE.WriteLine("HKCR,""InternetShortcut\shell\printto\command"",,%REG_EXPAND_SZ%,""rundll32.exe %_SYS_MOD_PATH%,PrintHTML """"%%1"""" """"%%2"""" """"%%3"""" """"%%4""""""")
	FILE.WriteLine("HKCR,""htmlfile\shell\print\command"",,%REG_EXPAND_SZ%,""rundll32.exe %_SYS_MOD_PATH%,PrintHTML """"%%1""""""")
	FILE.WriteLine("HKCR,""htmlfile\shell\printto\command"",,%REG_EXPAND_SZ%,""rundll32.exe %_SYS_MOD_PATH%,PrintHTML """"%%1"""" """"%%2"""" """"%%3"""" """"%%4""""""")
	FILE.WriteLine("[Misc.Reg]")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\Version Vector"", ""IE"",,""6.0000""")
	FILE.WriteLine("HKCR,IImgCtx,,,""IImgCtx""")
	FILE.WriteLine("HKCR,IImgCtx\CLSID,,,%CLSID_IImgCtx%")
	FILE.WriteLine("HKCR,Scriptlet.Behavior,,,""Element Behavior Handler""")
	FILE.WriteLine("HKCR,Scriptlet.Behavior\CLSID,,,%CLSID_CPeerHandler%")
	FILE.WriteLine("HKCR,Scriptlet.HiFiTimer,,,""HiFiTimer Uses""")
	FILE.WriteLine("HKCR,Scriptlet.HiFiTimer\CLSID,,,%CLSID_CHiFiUses%")
	FILE.WriteLine("HKCR,Scriptlet.SvrOm,,,""Server OM Uses""")
	FILE.WriteLine("HKCR,Scriptlet.SvrOm\CLSID,,,%CLSID_CSvrOMUses%")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%,,,""CoGIFFilter Class""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\InProcServer32,,,%_MOD_PATH%")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\ProgID,,,""GIFFilter.CoGIFFilter.1""")
	FILE.WriteLine("HKCR,GIFFilter.CoGIFFilter,,,""CoGIFFilter Class""")
	FILE.WriteLine("HKCR,GIFFilter.CoGIFFilter\CLSID,,,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,GIFFilter.CoGIFFilter.1,,,""CoGIFFilter Class""")
	FILE.WriteLine("HKCR,GIFFilter.CoGIFFilter.1\CLSID,,,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%,,,""CoJPEGFilter Class""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\InProcServer32,,,%_MOD_PATH%")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\ProgID,,,""JPEGFilter.CoJPEGFilter.1""")
	FILE.WriteLine("HKCR,JPEGFilter.CoJPEGFilter,,,""CoJPEGFilter Class""")
	FILE.WriteLine("HKCR,JPEGFilter.CoJPEGFilter\CLSID,,,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,JPEGFilter.CoJPEGFilter.1,,,""CoJPEGFilter Class""")
	FILE.WriteLine("HKCR,JPEGFilter.CoJPEGFilter.1\CLSID,,,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%,,,""CoBMPFilter Class""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\InProcServer32,,,%_MOD_PATH%")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\ProgID,,,""BMPFilter.CoBMPFilter.1""")
	FILE.WriteLine("HKCR,BMPFilter.CoBMPFilter,,,""CoBMPFilter Class""")
	FILE.WriteLine("HKCR,BMPFilter.CoBMPFilter\CLSID,,,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,BMPFilter.CoBMPFilter.1,,,""CoBMPFilter Class""")
	FILE.WriteLine("HKCR,BMPFilter.CoBMPFilter.1\CLSID,,,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%,,,""CoWMFFilter Class""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\InProcServer32,,,%_MOD_PATH%")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\ProgID,,,""WMFFilter.CoWMFFilter.1""")
	FILE.WriteLine("HKCR,WMFFilter.CoWMFFilter,,,""CoWMFFilter Class""")
	FILE.WriteLine("HKCR,WMFFilter.CoWMFFilter\CLSID,,,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,WMFFilter.CoWMFFilter.1,,,""CoWMFFilter Class""")
	FILE.WriteLine("HKCR,WMFFilter.CoWMFFilter.1\CLSID,,,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%,,,""CoICOFilter Class""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\InProcServer32,,,%_MOD_PATH%")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\InProcServer32,""ThreadingModel"",,""Apartment""")
	FILE.WriteLine("HKCR,CLSID\%CLSID_IImageDecodeFilter%\ProgID,,,""ICOFilter.CoICOFilter.1""")
	FILE.WriteLine("HKCR,ICOFilter.CoICOFilter,,,""CoICOFilter Class""")
	FILE.WriteLine("HKCR,ICOFilter.CoICOFilter\CLSID,,,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,ICOFilter.CoICOFilter.1,,,""CoICOFilter Class""")
	FILE.WriteLine("HKCR,ICOFilter.CoICOFilter.1\CLSID,,,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("[FileAssoc.Inst]")
	FILE.WriteLine("HKCR,"".bmp"",""Content Type"",,""image/bmp""")
	FILE.WriteLine("HKCR,"".css"",""Content Type"",,""text/css""")
	FILE.WriteLine("HKCR,"".htc"",""Content Type"",,""text/x-component""")
	FILE.WriteLine("HKCR,"".dib"",""Content Type"",,""image/bmp""")
	FILE.WriteLine("HKCR,""htmlfile"",,,""HTML Document""")
	FILE.WriteLine("HKCR,""htmlfile\BrowseInPlace"",,,""""")
	FILE.WriteLine("HKCR,""htmlfile\CLSID"",,,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""ScriptBridge.ScriptBridge"",,,""Microsoft Scriptlet Component""")
	FILE.WriteLine("HKCR,""ScriptBridge.ScriptBridge\CurVer"",,,""ScriptBridge.ScriptBridge.1""")
	FILE.WriteLine("HKCR,""ScriptBridge.ScriptBridge.1"",,,""Microsoft Scriptlet Component""")
	FILE.WriteLine("HKCR,""ScriptBridge.ScriptBridge.1\CLSID"",,,""%CLSID_Scriptlet%""")
	FILE.WriteLine("HKCR,""htmlfile_FullWindowEmbed"",,,""HTML Plugin Document""")
	FILE.WriteLine("HKCR,""htmlfile_FullWindowEmbed\BrowseInPlace"",,,""""")
	FILE.WriteLine("HKCR,""htmlfile_FullWindowEmbed\CLSID"",,,""%CLSID_HTMLPluginDocument%""")
	FILE.WriteLine("HKCR,"".mhtml"",,,""mhtmlfile""")
	FILE.WriteLine("HKCR,"".mhtml"",""Content Type"",,""message/rfc822""")
	FILE.WriteLine("HKCR,"".mht"",,,""mhtmlfile""")
	FILE.WriteLine("HKCR,"".mht"",""Content Type"",,""message/rfc822""")
	FILE.WriteLine("HKCR,""mhtmlfile"",,,""MHTML Document""")
	FILE.WriteLine("HKCR,""mhtmlfile\BrowseInPlace"",,,""""")
	FILE.WriteLine("HKCR,""mhtmlfile\CLSID"",,,""%CLSID_MHTMLDocument%""")
	FILE.WriteLine("HKCR,"".txt"",""Content Type"",,""text/plain""")
	FILE.WriteLine("HKCR,"".ico"",""Content Type"",,""image/x-icon""")
	FILE.WriteLine("HKCR,""htmlfile\DefaultIcon"",,%REG_EXPAND_SZ%,""%IEXPLORE%,1""")
	FILE.WriteLine("[GIF.Inst]")
	FILE.WriteLine("HKCR,"".gif"",,,""giffile""")
	FILE.WriteLine("HKCR,"".gif"",""Content Type"",,""image/gif""")
	FILE.WriteLine("HKCR,""giffile"",,,""%GIF_IMAGE%""")
	FILE.WriteLine("HKCR,""giffile\CLSID"",,,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""giffile\shell\open\command"",,,""""""%IEXPLORE%"""" -nohome""")
	FILE.WriteLine("HKCR,""giffile\shell\open\ddeexec"",,,""""""file:%%1"""",,-1,,,,,""")
	FILE.WriteLine("HKCR,""giffile\shell\open\ddeexec\Application"",,,""IExplore""")
	FILE.WriteLine("HKCR,""giffile\shell\open\ddeexec\Topic"",,,""WWW_OpenURL""")
	FILE.WriteLine("HKCR,""giffile\DefaultIcon"",,,""%IEXPLORE%,9""")
	FILE.WriteLine("[PJPG.Inst]")
	FILE.WriteLine("HKCR,"".jfif"",,,""pjpegfile""")
	FILE.WriteLine("HKCR,"".jfif"",""Content Type"",,""image/pjpeg""")
	FILE.WriteLine("HKCR,""pjpegfile"",,,""%JPEG_IMAGE%""")
	FILE.WriteLine("HKCR,""pjpegfile\CLSID"",,,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""pjpegfile\shell\open\command"",,,""""""%IEXPLORE%"""" -nohome""")
	FILE.WriteLine("HKCR,""pjpegfile\shell\open\ddeexec"",,,""""""file:%%1"""",,-1,,,,,""")
	FILE.WriteLine("HKCR,""pjpegfile\shell\open\ddeexec\Application"",,,""IExplore""")
	FILE.WriteLine("HKCR,""pjpegfile\shell\open\ddeexec\Topic"",,,""WWW_OpenURL""")
	FILE.WriteLine("HKCR,""pjpegfile\DefaultIcon"",,,""%IEXPLORE%,8""")
	FILE.WriteLine("[XBM.Inst]")
	FILE.WriteLine("HKCR,"".xbm"",""Content Type"",,""image/x-xbitmap""")
	FILE.WriteLine("HKCR,""xbmfile"",,,""%XBM_IMAGE%""")
	FILE.WriteLine("HKCR,""xbmfile\CLSID"",,,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""xbmfile\shell\open\command"",,,""""""%IEXPLORE%"""" -nohome""")
	FILE.WriteLine("HKCR,""xbmfile\shell\open\ddeexec"",,,""""""file:%%1"""",,-1,,,,,""")
	FILE.WriteLine("HKCR,""xbmfile\shell\open\ddeexec\Application"",,,""IExplore""")
	FILE.WriteLine("HKCR,""xbmfile\shell\open\ddeexec\Topic"",,,""WWW_OpenURL""")
	FILE.WriteLine("HKCR,""xbmfile\DefaultIcon"",,,""%IEXPLORE%,9""")
	FILE.WriteLine("[JPEG.Inst]")
	FILE.WriteLine("HKCR,"".jpeg"",,,""jpegfile""")
	FILE.WriteLine("HKCR,"".jpeg"",""Content Type"",,""image/jpeg""")
	FILE.WriteLine("HKCR,""jpegfile"",,,""%JPEG_IMAGE%""")
	FILE.WriteLine("HKCR,""jpegfile\CLSID"",,,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\command"",,,""""""%IEXPLORE%"""" -nohome""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\ddeexec"",,,""""""file:%%1"""",,-1,,,,,""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\ddeexec\Application"",,,""IExplore""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\ddeexec\Topic"",,,""WWW_OpenURL""")
	FILE.WriteLine("HKCR,""jpegfile\DefaultIcon"",,,""%IEXPLORE%,8""")
	FILE.WriteLine("[JPE.Inst]")
	FILE.WriteLine("HKCR,"".jpe"",,,""jpegfile""")
	FILE.WriteLine("HKCR,"".jpe"",""Content Type"",,""image/jpeg""")
	FILE.WriteLine("HKCR,""jpegfile"",,,""%JPEG_IMAGE%""")
	FILE.WriteLine("HKCR,""jpegfile\CLSID"",,,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\command"",,,""""""%IEXPLORE%"""" -nohome""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\ddeexec"",,,""""""file:%%1"""",,-1,,,,,""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\ddeexec\Application"",,,""IExplore""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\ddeexec\Topic"",,,""WWW_OpenURL""")
	FILE.WriteLine("HKCR,""jpegfile\DefaultIcon"",,,""%IEXPLORE%,8""")
	FILE.WriteLine("[JPG.Inst]")
	FILE.WriteLine("HKCR,"".jpg"",,,""jpegfile""")
	FILE.WriteLine("HKCR,"".jpg"",""Content Type"",,""image/jpeg""")
	FILE.WriteLine("HKCR,""jpegfile"",,,""%JPEG_IMAGE%""")
	FILE.WriteLine("HKCR,""jpegfile\CLSID"",,,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\command"",,,""""""%IEXPLORE%"""" -nohome""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\ddeexec"",,,""""""file:%%1"""",,-1,,,,,""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\ddeexec\Application"",,,""IExplore""")
	FILE.WriteLine("HKCR,""jpegfile\shell\open\ddeexec\Topic"",,,""WWW_OpenURL""")
	FILE.WriteLine("HKCR,""jpegfile\DefaultIcon"",,,""%IEXPLORE%,8""")
	FILE.WriteLine("[PNG.Inst]")
	FILE.WriteLine("HKCR,"".png"",,,""pngfile""")
	FILE.WriteLine("HKCR,"".png"",""Content Type"",,""image/png""")
	FILE.WriteLine("HKCR,""pngfile"",,,""%PNG_IMAGE%""")
	FILE.WriteLine("HKCR,""pngfile\CLSID"",,,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""pngfile\shell\open\command"",,,""""""%IEXPLORE%"""" -nohome""")
	FILE.WriteLine("HKCR,""pngfile\shell\open\ddeexec"",,,""""""file:%%1"""",,-1,,,,,""")
	FILE.WriteLine("HKCR,""pngfile\shell\open\ddeexec\Application"",,,""IExplore""")
	FILE.WriteLine("HKCR,""pngfile\shell\open\ddeexec\Topic"",,,""WWW_OpenURL""")
	FILE.WriteLine("HKCR,""pngfile\DefaultIcon"",,,""%IEXPLORE%,9""")
	FILE.WriteLine("[MIME.Inst]")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/bmp"",""Extension"",,"".bmp""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/bmp"",""Image Filter CLSID"",,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/bmp\Bits"",""0"",1,02,00,00,00,FF,FF,42,4D")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/gif"",""CLSID"",,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/gif"",""Extension"",,"".gif""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/gif"",""Image Filter CLSID"",,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/gif\Bits"",""0"",1,04,00,00,00,FF,FF,FF,FF,47,49,46,38")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/jpeg"",""CLSID"",,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/jpeg"",""Extension"",,"".jpg""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/jpeg\Bits"",""0"",1,02,00,00,00,FF,FF,FF,D8")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/jpeg"",""Image Filter CLSID"",,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/pjpeg"",""CLSID"",,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/pjpeg"",""Extension"",,"".jpg""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/pjpeg\Bits"",""0"",1,02,00,00,00,FF,FF,FF,D8")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/pjpeg"",""Image Filter CLSID"",,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/xbm"",""Extension"",,"".xbm""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/x-jg"",""CLSID"",,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/x-xbitmap"",""CLSID"",,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/x-xbitmap"",""Extension"",,"".xbm""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/x-wmf"",""Image Filter CLSID"",,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/x-wmf\Bits"",""0"",1,04,00,00,00,FF,FF,FF,FF,D7,CD,C6,9A")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\message/rfc822"",""CLSID"",,""%CLSID_MHTMLDocument%""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/png"",""Extension"",,"".png""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/x-png"",""Extension"",,"".png""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\text/css"",""Extension"",,"".css""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\text/html"",""CLSID"",,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\text/html"",""Extension"",,"".htm""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\text/html"",""Encoding"",1,08,00,00,00")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\text/plain"",""CLSID"",,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\text/plain"",""Extension"",,"".txt""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\text/plain"",""Encoding"",1,07,00,00,00")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\text/x-component"",""CLSID"",,""%CLSID_CHtmlComponentConstructor%""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\text/x-component"",""Extension"",,"".htc""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\text/x-scriptlet"",""CLSID"",,""%CLSID_Scriptlet%""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/x-icon"",""CLSID"",,""%CLSID_HTMLDocument%""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/x-icon"",""Extension"",,"".ico""")
	FILE.WriteLine("HKCR,""MIME\Database\Content Type\image/x-icon"",""Image Filter CLSID"",,%CLSID_IImageDecodeFilter%")
	FILE.WriteLine("[Misc.Inst]")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\AboutURLs"",""blank"",2,""res://mshtml.dll/blank.htm""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\AboutURLs"",""PostNotCached"",2,""res://mshtml.dll/repost.htm""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\AboutURLs"",""mozilla"",2,""res://mshtml.dll/about.moz""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\Default Behaviors"",""VML"",,  ""CLSID:10072CEC-8CC1-11D1-986E-00A0C955B42E""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\Default Behaviors"",""TIME"",, ""CLSID:476C391C-3E0D-11D2-B948-00C04FA32195""")
	FILE.WriteLine("[BaseDel.Reg]")
	FILE.WriteLine("HKCR,""htmlfile\DocObject""")
	FILE.WriteLine("HKCR,""htmlfile\Protocol""")
	FILE.WriteLine("HKCR,""htmlfile\Insertable""")
	FILE.WriteLine("HKLM,""Software\Classes\htmlfile\DocObject""")
	FILE.WriteLine("HKLM,""Software\Classes\htmlfile\Protocol""")
	FILE.WriteLine("HKLM,""Software\Classes\htmlfile\Insertable""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLDocument%\DocObject""")
	FILE.WriteLine("HKCR,""CLSID\%CLSID_HTMLDocument%\Insertable""")
	FILE.WriteLine("[BaseDel.Inst]")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\PageSetup"",""header_left"",2,""&w""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\PageSetup"",""header_right"",2,""Page &p of &P""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\PageSetup"",""footer_left"",2,""&u%""")
	FILE.WriteLine("HKLM,""Software\Microsoft\Internet Explorer\PageSetup"",""footer_right"",2,""&d""")
	FILE.WriteLine("[IE3TypeLib]")
	FILE.WriteLine("HKCR, ""TypeLib\{3E76DB61-6F74-11CF-8F20-00805F2CD064}""")
	FILE.WriteLine("[mshtmlwbTypeLib]")
	FILE.WriteLine("HKCR, ""TypeLib\{AE24FDA0-03C6-11D1-8B76-0080C744F389}""")
	FILE.WriteLine("[Strings]")
	FILE.WriteLine("CLSID_CBackgroundPropertyPage       = ""{3050F232-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_CCDAnchorPropertyPage         = ""{3050F1FC-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_CCDGenericPropertyPage        = ""{3050F17F-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_CDwnBindInfo                  = ""{3050F3C2-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_CInlineStylePropertyPage      = ""{3050F296-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_HTMLDocument                  = ""{25336920-03F9-11cf-8FD0-00AA00686F13}""")
	FILE.WriteLine("CLSID_Scriptlet                     = ""{AE24FDAE-03C6-11D1-8B76-0080C744F389}""")
	FILE.WriteLine("CLSID_HTADocument                   = ""{3050F5C8-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_MHTMLDocument                 = ""{3050F3D9-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_HTMLPluginDocument            = ""{25336921-03F9-11CF-8FD0-00AA00686F13}""")
	FILE.WriteLine("CLSID_HTMLWindowProxy               = ""{3050F391-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_IImgCtx                       = ""{3050F3D6-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_JSProtocol                    = ""{3050F3RC1-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_ResProtocol                   = ""{3050F3BC-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_AboutProtocol                 = ""{3050F406-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_MailtoProtocol                = ""{3050f3DA-98B5-11CF-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("CLSID_SysimageProtocol              = ""{76E67A63-06E9-11D2-A840-006008059382}""")
	FILE.WriteLine("CLSID_HTMLLoadOptions               = ""{18845040-0fa5-11d1-ba19-00c04fd912d0}""")
	FILE.WriteLine("CLSID_CRecalcEngine                 = ""{3050f499-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_HTMLServerDoc                 = ""{3050f4e7-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_CrSource                      = ""{65014010-9F62-11d1-A651-00600811D5CE}""")
	FILE.WriteLine("CLSID_TridentAPI                    = ""{429AF92C-A51F-11d2-861E-00C04FA35C89}""")
	FILE.WriteLine("CLSID_CCSSFilterHandler             = ""{5AAF51B1-B1F0-11d1-B6AB-00A0C90833E9}""")
	FILE.WriteLine("CLSID_CPeerHandler                  = ""{5AAF51RC1-B1F0-11d1-B6AB-00A0C90833E9}""")
	FILE.WriteLine("CLSID_CHiFiUses                     = ""{5AAF51B3-B1F0-11d1-B6AB-00A0C90833E9}""")
	FILE.WriteLine("CLSID_CSvrOMUses                    = ""{3050f4f0-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_CPersistShortcut              = ""{3050f4c6-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_CPersistHistory               = ""{3050f4c8-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_CPersistSnapshot              = ""{3050f4c9-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_VivoViewer                    = ""{02466323-75ed-11cf-a267-0020af2546ea}""")
	FILE.WriteLine("CLSID_MSInvestorNews                = ""{025B1052-CB0B-11CF-A071-00A0C9A06E05}""")
	FILE.WriteLine("CLSID_ActiveMovie                   = ""{05589fa1-c356-11ce-bf01-00aa0055595a}""")
	FILE.WriteLine("CLSID_Plugin                        = ""{06DD38D3-D187-11CF-A80D-00C04FD74AD8}""")
	FILE.WriteLine("CLSID_AppletOCX                     = ""{08B0e5c0-4FCB-11CF-AAA5-00401C608501}""")
	FILE.WriteLine("CLSID_SaxCanvas                     = ""{1DF67C43-AEAA-11CF-BA92-444553540000}""")
	FILE.WriteLine("CLSID_MediaPlayer                   = ""{22D6F312-B0F6-11D0-94AB-0080C74C7E95}""")
	FILE.WriteLine("CLSID_CitrixWinframe                = ""{238f6f83-b8b4-11cf-8771-00a024541ee3}""")
	FILE.WriteLine("CLSID_GregConsDieRoll               = ""{46646B43-EA16-11CF-870C-00201801DDD6}""")
	FILE.WriteLine("CLSID_VActive                       = ""{5A20858B-000D-11D0-8C01-444553540000}""")
	FILE.WriteLine("CLSID_IEMenu                        = ""{7823A620-9DD9-11CF-A662-00AA00C066D2}""")
	FILE.WriteLine("CLSID_WebBrowser                    = ""{8856F961-340A-11D0-A96B-00C04FD705A2}""")
	FILE.WriteLine("CLSID_Forms3Optionbutton            = ""{8BD21D50-EC42-11CE-9E0D-00AA006002F3}""")
	FILE.WriteLine("CLSID_SurroundVideo                 = ""{928626A3-6B98-11CF-90B4-00AA00A4011F}""")
	FILE.WriteLine("CLSID_SheridanCommand               = ""{AAD093RC1-F9CA-11CF-9C85-0000C09300C4}""")
	FILE.WriteLine("CLSID_MCSITree                      = ""{B3F8F451-788A-11D0-89D9-00A0C90C9B67}""")
	FILE.WriteLine("CLSID_MSTreeView                    = ""{B9D029D3-CDE3-11CF-855E-00A0C908FAF9}""")
	FILE.WriteLine("CLSID_Acrobat                       = ""{CA8A9780-280D-11CF-A24D-444553540000}""")
	FILE.WriteLine("CLSID_MSInvestor                    = ""{D2F97240-C9F4-11CF-BFC4-00A0C90C2BDB}""")
	FILE.WriteLine("CLSID_PowerPointAnimator            = ""{EFBD14F0-6BFB-11CF-9177-00805F8813FF}""")
	FILE.WriteLine("CLSID_IISForm                       = ""{812AE312-8B8E-11CF-93C8-00AA00C08FDF}""")
	FILE.WriteLine("CLSID_IntDitherer                   = ""{05f6fe1a-ecef-11d0-aae7-00c04fc9b304}""")
	FILE.WriteLine("CLSID_NCompassBillboard             = ""{6059B947-EC52-11CF-B509-00A024488F73}""")
	FILE.WriteLine("CLSID_NCompassLightboard            = ""{RC1F87B84-26A6-11D0-B50A-00A024488F73}""")
	FILE.WriteLine("CLSID_ProtoviewTreeView             = ""{RC183E214-2CB3-11D0-ADA6-00400520799C}""")
	FILE.WriteLine("CLSID_ActiveEarthTime               = ""{9590092D-8811-11CF-8075-444553540000}""")
	FILE.WriteLine("CLSID_LeadControl                   = ""{00080000-B1BA-11CE-ABC6-F5RC1E79D9E3F}""")
	FILE.WriteLine("CLSID_TextX                         = ""{5B84FC03-E639-11CF-B8A0-00A024186BF1}""")
	FILE.WriteLine("CLSID_GreetingsUpload               = ""{03405265-b4e2-11d0-8a77-00aa00a4fbc5}""")
	FILE.WriteLine("CLSID_GreetingsDownload             = ""{03405269-b4e2-11d0-8a77-00aa00a4fbc5}""")
	FILE.WriteLine("CLSID_COMCTLTree                    = ""{0713E8A2-850A-101B-AFC0-4210102A8DA7}""")
	FILE.WriteLine("CLSID_COMCTLProg                    = ""{0713E8D2-850A-101B-AFC0-4210102A8DA7}""")
	FILE.WriteLine("CLSID_COMCTLListview                = ""{58DA8D8A-9D6A-101B-AFC0-4210102A8DA7}""")
	FILE.WriteLine("CLSID_COMCTLImageList               = ""{58DA8D8F-9D6A-101B-AFC0-4210102A8DA7}""")
	FILE.WriteLine("CLSID_COMCTLSbar                    = ""{6B7E638F-850A-101B-AFC0-4210102A8DA7}""")
	FILE.WriteLine("CLSID_MCSIMenu                      = ""{275E2FE0-7486-11D0-89D6-00A0C90C9B67}""")
	FILE.WriteLine("CLSID_MSNVer                        = ""{A123D693-256A-11d0-9DFE-00C04FD7BF41}""")
	FILE.WriteLine("CLSID_RichTextCtrl                  = ""{3B7C8860-D78F-101B-B9B5-04021C009402}""")
	FILE.WriteLine("CLSID_IETimer                       = ""{59CCB4A0-727D-11CF-AC36-00AA00A47DD2}""")
	FILE.WriteLine("CLSID_SubScr                        = ""{78A9RC12E-E0F4-11D0-B5DA-00C0F00AD7F8}""")
	FILE.WriteLine("CLSID_IImageDecodeFilter            = ""{607fd4e8-0a03-11d1-ab1d-00c04fc9b304}""")
	FILE.WriteLine("CLSID_OldXsl                        = ""{2BD0D2F2-52EC-11D1-8C69-0E16BC000000}""")
	FILE.WriteLine("CLSID_MMC                           = ""{D306C3B7-2AD5-11D1-9E9A-00805F200005}""")
	FILE.WriteLine("CLSID_MacromediaSwFlash             = ""{D27CDB6E-AE6D-11cf-96B8-444553540000}""")
	FILE.WriteLine("CLSID_CHtmlComponentConstructor     = ""{3050f4f8-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_CAnchorBrowsePropertyPage     = ""{3050f3BB-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_CImageBrowsePropertyPage      = ""{3050f3B3-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_CDocBrowsePropertyPage        = ""{3050f3B4-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_IE4ShellFolderIcon            = ""{E5DF9D10-3B52-11D1-83E8-00A0C90DC849}""")
	FILE.WriteLine("CLSID_IE4ShellPieChart              = ""{1D2B4F40-1F10-11D1-9E88-00C04FDCAB92}""")
	FILE.WriteLine("CLSID_RealAudio                     = ""{CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA}""")
	FILE.WriteLine("CLSID_WebCalc                       = ""{0002E510-0000-0000-C000-000000000046}""")
	FILE.WriteLine("CLSID_AnswerList                    = ""{8F2C1D40-C3CD-11D1-A08F-006097BD9970}""")
	FILE.WriteLine("CLSID_PreLoader                     = ""{16E349E0-702C-11CF-A3A9-00A0C9034920}""")
	FILE.WriteLine("CLSID_HTMLPopup                     = ""{3050f667-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_HTMLPopupDoc                  = ""{3050f67D-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_EyeDog                        = ""{06A7EC63-4E21-11D0-A112-00A0C90543AA}""")
	FILE.WriteLine("CLSID_ImgAdmin                      = ""{009541A0-3B81-101C-92F3-040224009C02}""")
	FILE.WriteLine("CLSID_ImgThumb                      = ""{E1A6B8A0-3603-101C-AC6E-040224009C02}""")
	FILE.WriteLine("CLSID_HHOpen                        = ""{130D7743-5F5A-11D1-B676-00A0C9697233}""")
	FILE.WriteLine("CLSID_RegWiz                        = ""{50E5E3D1-C07E-11D0-B9FD-00A0249F6B00}""")
	FILE.WriteLine("CLSID_SetupCtl                      = ""{F72A7B0E-0DD8-11D1-BD6E-00AA00B92AF1}""")
	FILE.WriteLine("CLSID_ImgEdit                       = ""{6D940280-9F11-11CE-83FD-02608C3EC08A}""")
	FILE.WriteLine("CLSID_ImgEdit2                      = ""{6D940285-9F11-11CE-83FD-02608C3EC08A}""")
	FILE.WriteLine("CLSID_ImgScan                       = ""{84926CA0-2941-101C-816F-0E6013114B7F}""")
	FILE.WriteLine("CLSID_ExternalFrameworkSite         = ""{3050f163-98b5-11cf-bb82-00aa00bdce0b}""")
	FILE.WriteLine("CLSID_IELabel                       = ""{99B42120-6EC7-11CF-A6C7-00AA00A47DD2}""")
	FILE.WriteLine("CLSID_HomePubRender                 = ""{96B9602E-BD20-11D2-AC89-00C04F7989D6}""")
	FILE.WriteLine("CLSID_MGIPhotoSuiteBtn              = ""{4FA211A0-FD53-11D2-ACB6-0080C877D9B9}""")
	FILE.WriteLine("CLSID_MGIPhotoSuiteSlider           = ""{105C7D20-FE19-11D2-ACB6-0080C877D9B9}""")
	FILE.WriteLine("CLSID_MGIPrintShopSlider            = ""{7B9379D2-E1E4-11D0-8444-00401C6075AA}""")
	FILE.WriteLine("CLSID_RunLocExe                     = ""{73822330-B759-11D0-9E3D-00A0C911C819}""")
	FILE.WriteLine("CLSID_Launchit2                     = ""{B75FEF72-0C54-11D2-B14E-00C04FB9358B}""")
	FILE.WriteLine("CLSID_MS_MSHTA                      = ""{3050f4d8-98b5-11cf-BB82-00AA00BDCE0B}""")
	FILE.WriteLine("REG_EXPAND_SZ                       = 0x00020000")
	FILE.WriteLine("REG_SZ_NOCLOBBER                    = 0x00000002")
	FILE.WriteLine("REG_COMPAT                          = 0x00010001")
	FILE.WriteLine("HEADER                              = ""&w&bPage &p of &P""")
	FILE.WriteLine("FOOTER                              = ""&u&b&d""")
	FILE.WriteLine("DEFAULT_IEPROPFONTNAME              = ""Times New Roman""")
	FILE.WriteLine("DEFAULT_IEFIXEDFONTNAME             = ""Courier New""")
	FILE.WriteLine("UNIVERSAL_ALPHABET                  = ""Universal Alphabet""")
	FILE.WriteLine("CENTRAL_EUROPEAN                    = ""Central European""")
	FILE.WriteLine("CYRILLIC                            = ""Cyrillic""")
	FILE.WriteLine("WESTERN                             = ""Western""")
	FILE.WriteLine("GREEK                               = ""Greek""")
	FILE.WriteLine("JPEG_IMAGE                          = ""JPEG Image""")
	FILE.WriteLine("GIF_IMAGE                           = ""GIF Image""")
	FILE.WriteLine("XBM_IMAGE                           = ""XBM Image""")
	FILE.WriteLine("PNG_IMAGE                           = ""PNG Image""")
	FILE.WriteLine("EngineMissing                       = ""SETUPAPI.DLL is missing on this machine.""")
	FILE.WriteLine("_MOD_PATH=""c:\windows\system32\mshtml.dll""")
	FILE.WriteLine("_SYS_MOD_PATH=""%SystemRoot%\system32\mshtml.dll""")
	FILE.WriteLine("IEXPLORE=""C:\Program Files\Internet Explorer\iexplore.exe""")
	FILE.WriteLine("[End]")
	FILE.Close
END IF




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----SHELL OUT THE EXPANSION OF core ADO Files. (EXE, TLB, DLL, OCX)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF makeADO = 1 THEN
	WshShell.Run strCMDExpand&"msado20.tl_"&strCMDado&"msado20.tlb""", 0, FALSE
	WshShell.Run strCMDExpand&"msado21.tl_"&strCMDado&"msado21.tlb""", 0, FALSE
	WshShell.Run strCMDExpand&"msado25.tl_"&strCMDado&"msado25.tlb""", 0, FALSE
	WshShell.Run strCMDExpand&"msjro.dl_"&strCMDado&"msjro.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msado26.tl_"&strCMDado&"msado26.tlb""", 0, FALSE
	WshShell.Run strCMDExpand&"msader15.dl_"&strCMDado&"msader15.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msado15.dl_"&strCMDado&"msado15.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msadomd.dl_"&strCMDado&"msadomd.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msador15.dl_"&strCMDado&"msador15.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msadoX.dl_"&strCMDado&"msadoX.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msadrh15.dl_"&strCMDado&"msadrh15.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msadce.dl_"&strCMDmsadc&"msadce.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msadcer.dl_"&strCMDmsadc&"msadcer.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msadcf.dl_"&strCMDmsadc&"msadcf.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msadcfr.dl_"&strCMDmsadc&"msadcfr.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msadco.dl_"&strCMDmsadc&"msadco.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msadcor.dl_"&strCMDmsadc&"msadcor.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msadcs.dl_"&strCMDmsadc&"msadcs.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msadds.dl_"&strCMDmsadc&"msadds.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msaddsr.dl_"&strCMDmsadc&"msaddsr.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdarem.dl_"&strCMDmsadc&"msdarem.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdaremr.dl_"&strCMDmsadc&"msdaremr.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdfmap.dl_"&strCMDmsadc&"msdfmap.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"sqloledb.rl_"&strCMDOle_db&"sqloledb.rll""", 0, FALSE
	WshShell.Run strCMDExpand&"sqlxmlx.rl_"&strCMDOle_db&"sqlxmlx.rll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdadc.dl_"&strCMDOle_db&"msdadc.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdaenum.dl_"&strCMDOle_db&"msdaenum.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdaer.dl_"&strCMDOle_db&"msdaer.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdaora.dl_"&strCMDOle_db&"msdaora.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdaorar.dl_"&strCMDOle_db&"msdaorar.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdaosp.dl_"&strCMDOle_db&"msdaosp.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdasc.dl_"&strCMDOle_db&"msdasc.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdasql.dl_"&strCMDOle_db&"msdasql.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdasqlr.dl_"&strCMDOle_db&"msdasqlr.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdatl3.dl_"&strCMDOle_db&"msdatl3.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdatt.dl_"&strCMDOle_db&"msdatt.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdaurl.dl_"&strCMDOle_db&"msdaurl.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msxactps.dl_"&strCMDOle_db&"msxactps.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"oledb32.dl_"&strCMDOle_db&"oledb32.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"oledb32r.dl_"&strCMDOle_db&"oledb32r.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"sqloledb.dl_"&strCMDOle_db&"sqloledb.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"sqlxmlx.dl_"&strCMDOle_db&"sqlxmlx.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdatsrc.tl_"&strCMDMid&"msdatsrc.tlb""", 0, FALSE
	WshShell.Run strCMDExpand&"cliconfg.ex_"&strCMDMid&"cliconfg.exe""", 0, FALSE
	WshShell.Run strCMDExpand&"cliconfg.rl_"&strCMDMid&"cliconfg.rll""", 0, FALSE
	WshShell.Run strCMDExpand&"sqlsrv32.rl_"&strCMDMid&"sqlsrv32.rll""", 0, FALSE
	WshShell.Run strCMDExpand&"cliconfg.dl_"&strCMDMid&"cliconfg.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"dbmsadsn.dl_"&strCMDMid&"dbmsadsn.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"dbmsrpcn.dl_"&strCMDMid&"dbmsrpcn.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"dbnetlib.dl_"&strCMDMid&"dbnetlib.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"dbnmpntw.dl_"&strCMDMid&"dbnmpntw.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"ds32gt.dl_"&strCMDMid&"ds32gt.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"mscpx32r.dl_"&strCMDMid&"mscpx32r.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"mscpxl32.dl_"&strCMDMid&"mscpxl32.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msdart.dl_"&strCMDMid&"msdart.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msorc32r.dl_"&strCMDMid&"msorc32r.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"msorcl32.dl_"&strCMDMid&"msorcl32.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"odbcbcp.dl_"&strCMDMid&"odbcbcp.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"sqlsrv32.dl_"&strCMDMid&"sqlsrv32.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"sqlunirl.dl_"&strCMDMid&"sqlunirl.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"12520437.cp_"&strCMDMid&"12520437.cpx""", 0, FALSE
	WshShell.Run strCMDExpand&"12520850.cp_"&strCMDMid&"12520850.cpx""", 0, FALSE
	WshShell.Run strCMDExpand&"ds16gt.dl_"&strCMDMid&"ds16gt.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"instcat.sq_"&strCMDMid&"instcat.sql""", 0, FALSE
	WshShell.Run strCMDExpand&"expsrv.dl_"&strCMDMid&"expsrv.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"vbajet32.dl_"&strCMDMid&"vbajet32.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"CLBCATQ.DL_"&strCMDMid&"CLBCATQ.DLL""", 0, FALSE
	WshShell.Run strCMDExpand&"colbact.DL_"&strCMDMid&"colbact.DLL""", 0, FALSE
	WshShell.Run strCMDExpand&"COMRes.dl_"&strCMDMid&"COMRes.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"comsvcs.dl_"&strCMDMid&"comsvcs.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"DBmsLPCn.dl_"&strCMDMid&"DBmsLPCn.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"MSCTF.dl_"&strCMDMid&"MSCTF.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"mslbui.dl_"&strCMDMid&"mslbui.dll""", 0, FALSE
	WshShell.Run strCMDExpand&"MTXCLU.DL_"&strCMDMid&"MTXCLU.DLL""", 0, FALSE
	WshShell.Run strCMDExpand&"RESUTILS.DL_"&strCMDMid&"RESUTILS.DLL""", 0, FALSE
END IF
	

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----CREATE THE SAMPLE WSH SCRIPT .
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF makeWSH = 1 THEN
	SET FILE = fso.CreateTextFile(strDestFolder&"\Samples\testWSH.vbs", True)
	FILE.WriteLine("MsgBox ""Welcome to Windows PE.""&vbCrLF&vbCrLF&""WSH support is functioning."", vbInformation, ""WSH support is functioning.""")
	FILE.Close
END IF




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----CREATE THE SAMPLE HTA SCRIPT .
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF makeHTA = 1 THEN
	SET FILE = fso.CreateTextFile(strDestFolder&"\Samples\testHTA.hta", True)
	FILE.WriteLine ("<HTML>")
	FILE.WriteLine (" <HEAD>")
	FILE.WriteLine ("    <TITLE>HTA support is functioning</TITLE>")
	FILE.WriteLine ("    <HTA:APPLICATION ")
	FILE.WriteLine ("	WINDOWSTATE=""maximize""")
	FILE.WriteLine ("	BORDER=""none""")
	FILE.WriteLine ("	INNERBORDER=""no""")
	FILE.WriteLine ("	SHOWINTASKBAR=""no""")
	FILE.WriteLine ("	SCROLL=""no""")
	FILE.WriteLine ("	APPLICATIONNAME=""HTA Verification""")
	FILE.WriteLine ("	NAVIGABLE=""yes"">")
	FILE.WriteLine (" </HEAD>")
	FILE.WriteLine ("<BODY BGCOLOR=""FFFFFF"">")
	FILE.WriteLine ("<DIV STYLE=""position:relative;left:90;top:140;width:80%;"">")
	FILE.WriteLine ("<FONT COLOR=""Gray"" FACE=""Tahoma"">")
	FILE.WriteLine ("<H2>Welcome to Windows PE.</H2>")
	FILE.WriteLine ("HTA support is functioning.")
	FILE.WriteLine ("</FONT>")
	FILE.WriteLine ("<BR><BR>")
	FILE.WriteLine ("<BUTTON ACCESSKEY=""C"" STYLE=""font-face:Tahoma;font-size:13px;"" onclick=""self.close()""><U>C</U>lose</BUTTON>")
	FILE.WriteLine ("</DIV>")
	FILE.WriteLine (" </BODY>")
	FILE.WriteLine (" </HTML>")
	FILE.Close
END IF




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----CREATE THE SAMPLE ADO/WSH SCRIPT .
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF makeADO = 1 THEN
	SET FILE = fso.CreateTextFile(strDestFolder&"\Samples\testADO.vbs", True)
	FILE.WriteLine ("set objDBConnection = Wscript.CreateObject(""ADODB.Connection"")")
	FILE.WriteLine ("set RS = Wscript.CreateObject(""ADODB.Recordset"")")
	FILE.WriteLine ("")
	FILE.WriteLine ("SERVER = InputBox(""Enter the name of the Microsoft SQL Server (SQL Server 7.0 or SQL Server 2000) you wish to connect to""&vbcrlf&vbcrlf&""This SQL Server must have the Northwind sample database installed."", ""Connect to SQL Server..."")")
	FILE.WriteLine ("IF LEN(TRIM(SERVER)) = 0 THEN")
	FILE.WriteLine ("	MsgBox ""You did not enter the name of a machine to query. Exiting script."", vbCritical, ""No machine requested.""")
	FILE.WriteLine ("	WScript.Quit")
	FILE.WriteLine ("END IF")
	FILE.WriteLine ("")
	FILE.WriteLine ("USERNAME = InputBox(""Enter the name of the SQL Server username to query with"", ""Enter SQL username..."")")
	FILE.WriteLine ("IF LEN(TRIM(USERNAME)) = 0 THEN")
	FILE.WriteLine ("	MsgBox ""You did not enter the SQL Server username to query with. Exiting script."", vbCritical, ""No username specified.""")
	FILE.WriteLine ("	WScript.Quit")
	FILE.WriteLine ("END IF")
	FILE.WriteLine ("")
	FILE.WriteLine ("PWD = InputBox(""Enter the password of the SQL Server you wish to connect to""&vbcrlf&vbcrlf&""Leave blank if no password is needed."", ""Enter SQL password..."")")
	FILE.WriteLine ("")
	FILE.WriteLine ("")
	FILE.WriteLine ("SQLQuery1 =""SELECT Employees.FirstName AS FirstName, Employees.City AS City FROM Employees WHERE Employees.Lastname = 'Suyama'""")
	FILE.WriteLine ("objDBConnection.open ""Provider=SQLOLEDB;Data Source=""&SERVER&"";Initial Catalog=Northwind;User ID=""&USERNAME&"";Password=""&PWD&"";""")
	FILE.WriteLine ("")
	FILE.WriteLine ("Set GetRS = objDBConnection.Execute(SQLQuery1)")
	FILE.WriteLine ("")
	FILE.WriteLine ("IF GetRS.EOF THEN")
	FILE.WriteLine ("	MsgBox ""No employees were found with the last name you searched on!""")
	FILE.WriteLine ("ELSE")
	FILE.WriteLine ("	Do While Not GetRS.EOF")
	FILE.WriteLine ("		MsgBox ""There is an employee in ""&GetRS(""City"")&"" named ""&GetRS(""FirstName"")&"" with the last name you searched on.""")
	FILE.WriteLine ("	GetRS.MoveNext")
	FILE.WriteLine ("	Loop")
	FILE.WriteLine ("END IF")
	FILE.Close
END IF


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----CREATE the BATS THAT WILL INSTALL THE OPTIONAL COMPONENTS
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	SET FILE = fso.CreateTextFile(strDestFolder&"\"&iArchDir&"\System32\OC.bat", True)
	FILE.WriteLine ("@ECHO OFF")
	FILE.WriteLine ("START ""Installing Components"" /MIN OC2.bat")
	FILE.Close

		SET FILE = fso.CreateTextFile(strDestFolder&"\"&iArchDir&"\System32\OC2.bat", True)

	IF makeWSH = 1 THEN

		FILE.WriteLine ("")
		FILE.WriteLine ("REM - This section initializes WSH")
		FILE.WriteLine ("")
		FILE.WriteLine ("REM - INSTALL WSH COMPONENTS")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\jscript.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\scrobj.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\scrrun.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\vbscript.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\wshext.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\wshom.ocx /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\mlang.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\urlmon.dll /S")
		FILE.WriteLine ("")
		FILE.WriteLine ("REM - INSTALL FILE ASSOCIATIONS FOR WSH")
		FILE.WriteLine ("%SystemRoot%\System32\rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 WSH.inf")
	END IF

	IF makeHTA = 1 THEN
		FILE.WriteLine ("")
		FILE.WriteLine ("REM - INSTALL HTA COMPONENTS")
		FILE.WriteLine ("%SystemRoot%\System32\mshta.exe /register")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\asctrls.ocx /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\plugin.ocx /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\actxprxy.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\atl.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\corpol.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\cryptdlg.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\ddrawex.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\dispex.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\dxtmsft.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\dxtrans.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\hlink.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\iedkcs32.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\iepeers.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\iesetup.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\imgutil.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\inseng.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\itircl.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\itss.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\licmgr10.dll /S")
		FILE.WriteLine ("%SystemRoot%\System32\rundll32.exe setupapi,InstallHinfSection reg 132 mshtml.inf")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\mshtmled.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\msrating.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\mstime.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\olepro32.dll /S")
		FILE.WriteLine ("Regsvr32 %SystemRoot%\System32\sendmail.dll /S")
		FILE.WriteLine ("")
		FILE.WriteLine ("REM - INSTALL FILE ASSOCIATIONS FOR HTA")
		FILE.WriteLine ("%SystemRoot%\System32\rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 HTA.inf")
	END IF

	IF makeADO = 1 THEN
		FILE.WriteLine ("")
		FILE.WriteLine ("REM - INSTALL ADO COMPONENTS")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\msadc\msadce.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\msadc\msadcf.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\msadc\msadco.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\msadc\msadds.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\ado\msado15.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\ado\msadomd.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\ado\msador15.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\ado\msadoX.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\ado\msadrh15.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\msdadc.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\msdaenum.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\msdaer.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\msdaora.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\msdaosp.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\msadc\msdarem.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\msdasc.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\msdasql.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\msdatt.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\msdaurl.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\msadc\msdfmap.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\ado\msjro.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemRoot%\System32\msorcl32.dll /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\msxactps.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemRoot%\System32\odbcconf.dll /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\oledb32.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\oledb32r.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\sqloledb.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemDrive%""\Program Files\Common Files\System\Ole DB\sqlxmlx.dll"" /S")
		FILE.WriteLine ("regsvr32 %SystemRoot%\System32\CLBCATQ.DLL /S")
		FILE.WriteLine ("regsvr32 %SystemRoot%\system32\colbact.DLL /S")
		FILE.WriteLine ("regsvr32 %SystemRoot%\system32\comsvcs.dll /S")
		FILE.WriteLine ("regsvr32 %SystemRoot%\System32\MSCTF.dll /S")
		FILE.WriteLine ("regsvr32 %SystemRoot%\system32\ole32.dll /S")
	END IF

	FILE.WriteLine ("EXIT")
	FILE.Close
	



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----FILES READY - ASK IF THE USER WANTS TO EXPLORE TO THEM.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	IF makeADO = 1 THEN
		strADOcpDirections = "	Copy the Program Files directory to the root of your WinPE image - "&_
		"the same folder level as the "&iArchDir&" folder."&vbCrLF
	END IF

	IF strOptionalDestination = "" THEN
		strFinalLocation = "on your computer's desktop in the folder """&strFolderName&"""."&vbCrLF&vbCrLF
	ELSE
		strFinalLocation = "in the folder you specified: "&strOptionalDestination&vbCrLF&vbCrLF
	END IF



	IF iAmQuiet = 0 THEN
		IF iWillBrowse = 1 THEN
			strAsk = ""
			iAsk = 0
		ELSE
			strAsk = "Would you like to open this folder now?"
			iAsk = 36
		END IF


		strWantToView = MsgBox("This script has retrieved all files needed to "&_
		"install these optional components in Windows PE:"&vbCrLF&vbCrLF&strComps&_
		"The files are located "&strFinalLocation&_
		"To install these components:"&vbCrLF&vbCrLF&_
		"	Copy the "&iArchDir&" folder onto an existing "&iArchDir&" folder in your WinPE image."&vbCrLF&strADOcpDirections&_
		"	Modify your startnet.cmd to run the file ""OC.bat"" (without quotes)."&vbCrLF&vbCrLF&_
		"The following are in the Samples folder. These may be useful to test the functionality of "&_
		"the optional components."&vbCrLF&vbCrLF&strSamples&_
		strAsk, iAsk, strJobTitle)
	END IF
	
IF strWantToView = 6 OR iWillBrowse = 1 THEN
	WshShell.Run("Explorer "&strDestFolder)
END IF




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----WMI TEST OF CD LOADED AND CD READ INTEGRITY.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB TestForMedia()
	IF CDDrive.MediaLoaded(0) = FALSE THEN
		MsgBox "Please place the Windows XP "&strPlatName&" CD in drive "&strOptionalSource&" before continuing.", vbCritical, "No CD in drive "&strOptionalSource&""
		WScript.Quit
	ELSE
	IF CDDrive.DriveIntegrity(0) = FALSE THEN
		MsgBox "Could not read files from the CD in drive "&strOptionalSource&".", vbCritical, "CD in drive "&strOptionalSource&" is unreadable."
		WScript.Quit
	END IF
	END IF
END SUB




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----FSO TEST TO SEE IF THE CMDLINE PROVIDED FOLDER EXISTS.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
FUNCTION TestForFolder(a)
	IF NOT FSO.FolderExists(a) THEN
		FailOut()
	END IF
END FUNCTION

SUB Validate(a)




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----TEST FOR THE EXISTANCE OF A FOLDER OR FILE, OR THE NONEXISTANCE OF A FILE.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TestForFolder(strOptionalSource&"\"&a&"")
TestForFolder(strOptionalSource&"\DOCS")
IF iArchDir = "I386" THEN
	TestForFolder(strOptionalSource&"\SUPPORT")
END IF
TestForFolder(strOptionalSource&"\VALUEADD")
TestForFile(strOptionalSource&"\"&a&"\System32\smss.exe")
TestForFile(strOptionalSource&"\"&a&"\System32\ntdll.dll")
TestForFile(strOptionalSource&"\"&a&"\winnt32.exe")
TestForFile(strOptionalSource&"\setup.exe")

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----TEST TO INSURE THAT THEY AREN'T TRYING TO INSTALL FROM Windows PE CD ITSELF
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set Folder = FSO.GetFolder(strOptionalSource&"\"&a&"\System32")
	IF Folder.Files.Count > 10 THEN
		FailOut()
	END IF
END SUB




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----FUNCTIONS TO TEST FOR THE EXISTANCE OF A FOLDER OR FILE, OR THE NONEXISTANCE OF A FILE.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
FUNCTION TestForFolder(a)
IF NOT FSO.FolderExists(a) THEN
	FailOut()
END IF
END FUNCTION
FUNCTION TestForFile(a)
IF NOT FSO.FileExists(a) THEN
	FailOut()
END IF
END FUNCTION
FUNCTION TestNoFile(a)
IF FSO.FileExists(a) THEN
	FailOut()
END IF
END FUNCTION

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----FUNCTIONS TO TEST FOR THE EXISTANCE OF A FOLDER. IF IT ISN'T THERE, IT CREATES IT
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
FUNCTION CheckNMakeFolder(a)
IF NOT FSO.FolderExists(a) THEN
		FSO.CreateFolder(a)
END IF
END FUNCTION


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----GENERIC ERROR IF WE FAIL MEDIA RECOGNITION.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB FailOut()
	MsgBox strOptionalSource&" does not appear to contain Windows XP "&strPlatName&".", vbCritical, "Not a valid copy of Windows XP"
	WScript.Quit
END SUB




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----WMI TEST OF CD LOADED AND CD READ INTEGRITY.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB TestForMedia()
	IF CDDrive.MediaLoaded(0) = FALSE THEN
		MsgBox "Please place the Windows XP "&strPlatName&" CD in drive "&strOptionalSource&" before continuing.", vbCritical, "No CD in drive "&strOptionalSource&""
		WScript.Quit
	ELSE
	IF CDDrive.DriveIntegrity(0) = FALSE THEN
		MsgBox "Could not read files from the CD in drive "&strOptionalSource&".", vbCritical, "CD in drive "&strOptionalSource&" is unreadable."
		WScript.Quit
	END IF
	END IF
END SUB



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'-----ADD DATE, AND ADD ZEROS SO WE DON'T HAVE A GIBBERISH TIMESTAMP ON UNIQUE FOLDERNAME.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB GetUnique()
	strAppend=FixUp(Hour(Now()))&FixUp(Minute(Now()))&FixUp(Second(Now()))
	IF Len(strAppend) = 5 THEN
		strAppend = strAppend&"0"
	ELSEIF Len(strAppend) = 4 THEN
		strAppend = strAppend&"00"
	END IF
END SUB
FUNCTION FixUp(a)
If Len(a) = 1 THEN
	FixUp = 0&a
ELSE
	Fixup = a
END IF
END FUNCTION
FUNCTION CleanLocation(a)
CleanLocation = REPLACE(a, """", "")
END FUNCTION