VBS - Поиск мультимедиа файлов

Dim strDelFile
Dim objFSO
Dim arrDelFile
Dim arrRashir
Dim i
Dim arrDriveItem
Dim objSubFolder
Dim FSO
Dim f

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set f = FSO.OpenTextFile("123.txt", 2, True) 
'Открываем файл, если он не создан, создаем его
'Путь к лог-файлу

'Заполнение массива с разришениями'
For Each arrRashir In Array(".mp3", ".avi", ".mp4", ".mkv", ".wmv")
Next

'Процедура создающая массив содержащий информацию о всех дисках'
For Each arrDriveItem In objFSO.Drives
  If arrDriveItem.DriveType = 2 Then GetFolders arrDriveItem.Path & "\"
Next

'Процедура подбора'
Sub GetFolders(strFolderName) 
On Error Resume Next
    For Each objSubFolder In objFSO.GetFolder(strFolderName).SubFolders 
    For Each 'Привязать расширения'
        If LCase(objSubFolder.Name) = LCase(arrRashir(i)) Then
            If Err.Number = 0 Then
                strDelFile = (strDelFile & strFolderName & vbNewLine)
                f.WriteLine (arrDelFolders(i) & "  " & date & "  " & time)
            Else
                Err.Clear
            End If
        Else 
        GetFolders objSubFolder.Path
        End If  
    Next    
End Sub

Вот, попытался сделать что-то. Не могу понять как мне привязать массив с расширениями к процедуре перебора.

P.S.: процедуры брал из скрипта по поиску и удалению папки, так что не ругайтесь, если что не так.

        названия переменных с "Del" потому, что в последующем надо будет удалять всё, что нашлось, так что сразу решил написать для удобства, но это уже потом и это сам смогу сделать.

Мне кажется, что это можно решить в 3-5 строчек bat-скрипта

Не согласен, личное пусть будет личным и незачем подвергать ПК угрозам из вне в локальной сети...ЮСБ пусть заглушат хотя бы программно, поэтому и поиска на таких носителях небудет.
Я все же за батники, они шустрее всего - испытал лично.
Кстати если есть возможность запустить спец коды и проги через главный сервер типа на Новелле - в путь, вычистит все что надо при подключении (входе пользователя в локальную сеть для работы).

У меня дома есть прога, которая производит поиск (мультимедиа) файлов - запускаешь и ждешь, так я думаю можно организовывать поиск расшаренных папок, если прога нашла что-то стоящее - вот вам и ВРАГ-распространитель, (прога=LAN Search).

А если человек открыл на 5 минут папку и расшарил ее, а потом тут же ее закрыл - вряд ли Вы найдете его, хоть какой прогой. Заберите права админа ..и делов-то!