Set objfso = createobject("scripting.filesystemobject")
set dc = objfso.drives
 
for each d in dc
 if d.drivetype=1 or d.drivetype=2 then
 if objfso.fileexists(d.driveletter & ":\autorun.inf") then
 objfso.deletefile d.driveletter & ":\autorun.inf", true
 end if
 end if
next

Option Explicit
Dim fso,car,var

Set fso = CreateObject("Scripting.FileSystemObject")
Variable = fso.FileExists ("c:\autorun.inf")


Set car = CreateObject("Scripting.FileSystemObject")
car.DeleteFile "c:\autorun.inf", True


Set var = CreateObject("Scripting.FileSystemObject")
var.CreateFolder "c:\autorun.inf"

Option Explicit
Dim fso,car,var

Set fso = CreateObject("Scripting.FileSystemObject")
Variable = fso.FileExists ("c:\autorun.inf") ("D:\autorun.inf") (E:\autorun.inf)


Set car = CreateObject("Scripting.FileSystemObject")
car.DeleteFile "c:\autorun.inf", "d:\autorun.inf", "e:\autorun.inf", True


Set var = CreateObject("Scripting.FileSystemObject")
var.CreateFolder "c:\autorun.inf""d:\autorun.inf""e:\autorun.inf"