dim fso,wso,path,arr,i,f,virus,bad
set fso = createObject("scripting.fileSystemObject")
set wso = createObject("wScript.shell")
path = wso.expandEnvironmentStrings("%path%")
path = fso.getAbsolutePathName(void) & ";" & path
arr = split(path,chr(59))
for i = 0 to uBound(arr)
if not(arr(i) = empty)then
f = arr(i) & "\" & "CmdLineExt03.dll"
if(fso.fileExists(f))then
virus = true
msgBox"Found:" & vbNewLine & f,, "Detected CmdLineExt03.dll :-("
if(vbYes=msgBox("Do you want me to delete it ?", vbYesNo, "?"))_
then
fso.deleteFile(f)
if(fso.fileExists(f))then
exit for
else
virus = false
end if
else
exit for
end if
end if
end if
next

if not(virus)then
if(vbYes=msgBox("Done. Do you also want me to" &_
" test your PATH ?", vbYesNoCancel, ":-)"))then
for i = 1 to uBound(arr)
if not(arr(i) = empty)then
f = arr(i) & "\nul"
if not(fso.fileExists(f))then
bad = true
msgBox "Wrong system PATH:" & vbCrLf & arr(i),, ":-("
exit for
end if
end if
next
end if
end if

if (bad or virus)then
msgBox "OOPS. You should fix a problem.",, ":-("
else
msgBox "No problems. All done.",, ":-)"
end if