on error resume next '加入容错语句防止出错提示
Set fs=Create
Object("Scripting.FileSystem
Object")
set fsflile=fs.GetFile("F:\Autorun.inf") '建立对像名
if fs.FileExists("F:\Autorun.inf") then '判断该文件是否存在
fsflile.Attributes=0 '将病毒文件去掉所有的属性
fs.DeleteFile("F:\Autorun.inf") '删除病毒文件
msgbox"病毒源文件以删除,正在免疫请稍等......",64,"免疫工具"
else
msgbox"没有发现病毒文件",48,"免疫工具"
end if
if fs.FolderExists("F:\Autorun.inf") then
msgbox"免疫以完成，无须再免疫",64,"免疫工具"
else
fs.CreateFolder("F:\Autorun.inf")
fsflile.Attributes=31
msgbox"免疫成功",48,"免疫工具"
End if
保存为以.vbs就行了。这只是一个简单的文件。如要修改。自己在加吧!
