antiautorun v1.0.vbs

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

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