Option Explicit
Const strComputer = "." 'имя Вашего сервера
Const strDrive = "D:" 'целевой диск
Const strExtension = "mp3" 'целевое расширение
Const strPath = "Share" 'целевой каталог
Const strLogFileName = "MP3Log.txt" 'имя файла лога

Dim objWMI, wshShell, fso, objFiles, objFile, objLogFile, i
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objFile = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set wshShell = CreateObject("WScript.Shell")

'выполняем запрос к WMI
Set objFiles = objWMI.ExecQuery("SELECT * FROM CIM_DataFile WHERE Drive = '" & strDrive & _
		"' AND Path = '\\" & Replace(strPath,"\","\\") & "\\' AND Extension = '" & strExtension & "'")

'если хотите получить информацию обо всех файлах на диске - раскомментируйте этот запрос 
'и закомментируйте или удалите предыдущий
'Set objFiles = objWMI.ExecQuery("SELECT * FROM CIM_DataFile WHERE Drive = '" & strDrive & _
'		"' AND Extension = '" & strExtension & "'")

'создаем файл
Set objLogFile = fso.CreateTextFile(wshShell.CurrentDirectory & "\" & strLogFileName, True)

i = 0 'счетчик

If objFiles.Count > 0 Then 'если файлы найдены	
	For Each objFile In objFiles
		'пишем имя файла в лог
		objLogFile.WriteLine(objFile.Name)
		i = i + 1
	Next
End If

'закрываем файл лога
objLogFile.Close

'удаляем ссылки
Set objLogFile = Nothing
Set objFiles = Nothing
Set fso = Nothing
Set wshShell = Nothing
Set objWMI = Nothing

'выводим сообщение
If i = 0 Then 
	MsgBox "Файлы с расширением " & strExtension & " не найдены"	
Else
	MsgBox "Найдено " & i & " файла(ов) c расширением " & strExtension
End If

LogParser.exe "SELECT TOP 50 Path, Size FROM c:\*.bmp, c:\*.jpg ORDER BY Size DESC" -i:FS

Dim fso,mySet,myDir,st
Dim s()
i=0

Dim regEx, Match, Matches, regtxt
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True

mySet="*.fb2 *.bin *.cue" ' Список расширений, которые ищутся

For Each m1 in Split(mySet," ",-1,1)
    regtxt = regtxt & "\." & m1 & "$|"
Next
regEx.Pattern = Left(regtxt, Len(regtxt)-1)

myDir="c:\123" ' Путь для поиска

Set fso = CreateObject("Scripting.FileSystemObject")

Sub ListFolder(curDir)
On Error Resume Next
    For Each f1 in fso.GetFolder(curDir).Files
    If Err.Number = 0 Then
            If regEx.Test(f1) Then
                ReDim Preserve s(i+1)
                s(i) = f1.path
                i=i+1
            End If
    End If
    Next
Err.Clear
    For Each s1 in fso.GetFolder(curDir).SubFolders
        If Err.Number = 0 Then
            ListFolder(s1.path)
        End If
    Next
Err.Clear
On Error Goto 0
End Sub

ListFolder(myDir)

For k=0 To i-1
    If Len("Количество файлов: " & i & vbCrLf & st & k+1 & ") " & s(k) & vbCrLf)<1000 Then
        st=st & k+1 & ") " & s(k) & vbCrLf
    Else
        MsgBox "Количество файлов: " & i & vbCrLf & st
        st=k+1 & ") " & s(k) & vbCrLf
    End If
Next
 
MsgBox "Количество файлов: " & i & vbCrLf & st