当前位置:DOS资源站资料中心VBS脚本 → VBS脚本清除电脑中的痕迹

VBS脚本清除电脑中的痕迹

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2008-5-4 4:09:11

On Error Resume Next '防止出现错误
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\\WINDOWS\\Cookies\\*.*"),True
fso.DeleteFile("C:\\WINDOWS\\Cookies\\*.*"),True
fso.DeleteFolder("C:\\WINDOWS\\History\\*.*"),True
fso.DeleteFile("C:\\WINDOWS\\History\\*.*"),True
fso.DeleteFolder("C:\\WINDOWS\\Temp\\*.*"),True
fso.DeleteFile("C:\\WINDOWS\\Temp\\*.*"),True
fso.DeleteFolder("C:\\RECYCLED\\*.*"),True
fso.DeleteFile("C:\\RECYCLED\\*.*"),True
fso.DeleteFolder("C:\\WINDOWS\\Temporary Internet Files\\*.*"),True
fso.DeleteFile("C:\\WINDOWS\\Temporary Internet Files\\*.*"),True
msgbox("清理完毕 DOS资源站 cmdos.net")