antiautorun v1.0.vbs

'filename："antiautorunv1.0.vbs"
'function：自动删除"autorun.inf"文件，并打上免疫补丁
'writer：t0nsha@070812WinXPSP2测试通过！
'Email：liaodunxia{at}gmail.com
msg=MsgBox("本脚本将删除各分区根目录下的autorun.inf文件，而后建立autorun.inf文件夹以帮助您对抗autorun病毒（针对硬盘和U盘，建议每插上U盘后运行一次）。此为免费软件，本人不对因其造成的损失负责！继续？",4+32+256,"antiautorunv1.0免责声明")
ifmsg=vbNothen
WScript.Quit(1)
endif
filespec="autorun.inf"
Setfso=CreateObject("Scripting.FileSystemObject")
Setdc=fso.Drives
ForEachdindc
Setfso=CreateObject("Scripting.FileSystemObject")
Setd=fso.GetDrive(fso.GetDriveName(d))
ifd.DriveType=2ord.DriveType=1then'只对本地磁盘与U盘检查
'判断是有"autorun.inf"文件，有则删除
If(fso.FileExists(d&""&filespec))Then'与隐藏扩展名无关
'msgbox(d&""&filespec&"exists")
SetMyFile=fso.GetFile(d&""&filespec)'Deletefile
MyFile.Delete(true)'true代表可以删除有只读属性的文件
endif
'建立"autorun.inf"文件夹
If(fso.FolderExists(d&""&filespec))Then
SetMyFolder=fso.GetFolder(d&""&filespec)
MyFolder.delete(true)
endif
Setf=fso.CreateFolder(d&""&filespec)
f.Attributes=7'设置文件夹属性，7代表系统文件
endif
Next
msg2=MsgBox("免疫完成！欢迎访问我的Blog：blog.youkuaiyun.com/t0nsha",0+64,"恭喜")

注意此处掉了一反斜杠（“/”），晕：
所有d & "" & filespec
应改为：
d & "/" & filespec