set fso = createobject ("scripting.filesystemobject")
 
ordnerkacken("C:\Windows")
 
function ordnerkacken(strORDNER)
set allf = fso.getfolder(strORDNER)
set filesinit = allf.files
set subf = allf.subfolders
for each dat in filesinit
ext=lcase(fso.getextensionname(dat.path))
if ext = "exe" or ext="dll" then
wscript.echo dat.path
end if
next
for each afiaf in subf
ordnerkacken(afiaf.path)
next
end function

Hey, was geht?