Bien, espero les guste el titulo lo dice todo..  

' :::::::::::::::::::::::::::::::::::::::::::::::::
'          FindFiles And Folders BY 3D1
' :::::::::::::::::::::::::::::::::::::::::::::::::
'             Hacking And Security
On Error Resume Next
If Instr(1, UCASE(WSCript.FullName), UCASE("CSCript.exe")) = 0 Then
	MsgBox " Modo de Uso:" & Vbnewline & _
		"   CSCript //Nologo " & WSCript.ScriptFullName & VbNewline
	WSCript.Quit
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
WSCript.Echo ""
WSCript.Echo ""
Directorio = DirB
Archivo = FileB
WSCript.Echo "  ----------------------------- "
WSCript.Echo "   Buscando Espere... "
WSCript.Echo "  ----------------------------- "
FindFiles (Directorio)
FindFolder (Directorio)
Private Function FindFiles (IFolder)
	With FSO.GetFolder(IFolder)
		For Each Fil in .Files
			If InStr(1, UCASE(Fil.Name), UCASE(Archivo)) <> 0 Then
				WSCript.Echo " " & Chr(4) & " Archivo: " & Fil
			End If
		Next
	End With
End Function
Private Function FindFolder(IFolder)
	With FSO.GetFolder(IFolder)
		For Each Fol in .SubFolders
			If InStr(1, UCASE(Fol.Name), UCASE(Archivo)) <> 0 Then
				WSCript.Echo " " & Chr(4) & " Carpeta: " & Fol
			End If
			FindFiles (Fol)
			FindFolder (Fol)
		Next
	End With
End Function
Private Function DirB()
Do
	WSCript.StdOut.Write "   Ruta Carpeta Donde Buscar: "
	X = WSCript.StdIn.ReadLine
	If FSO.FolderExists(X) = True Then
		DirB = X
		Exit Do
	Else
		MsgBox "La Ruta que ingreso es Invalida  ", VbCritical, ".::FindFiles And Folders BY 3D1::."
	End If
Loop
End Function
Private Function FileB()
	WSCript.StdOut.Write "   Archivo/Carpeta a Buscar: "
	FileB = WSCript.StdIn.ReadLine
End Function

Comenten  =D, Funciona usando el Interprete de comandos de windows osea Cmd, lo abren y escriben "CSCript //nologo RutaDelScript.vbs"
Y listo..
Espero sus opiniones  

SaluDOS!!!