Логично исключить из поиска всякие личные USB-накопители и тома, на которые пользователи не имеют прав на запись. И много ещё чего надо бы предусмотреть.

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

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

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

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

Если вести речь об одном компьютере, то, вероятно, можно.
А у автора темы их 400 (скорее всего объединённых в доменную сеть). Какие-то на момент выполнения поиска могут быть недоступными. На каких-то искать не имеет смысла (скажем, контроллеры и шлюзы). Логично исключить из поиска всякие личные USB-накопители и тома, на которые пользователи не имеют прав на запись. И много ещё чего надо бы предусмотреть.

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

Загляните сюда (может быть пригодится):
http://forum.sources.ru/index.php?act=S … mp;st=212#

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" потому, что в последующем надо будет удалять всё, что нашлось, так что сразу решил написать для удобства, но это уже потом и это сам смогу сделать.

P.S.: Агенты на работе начали распространять видео и ходить искать на 400 компах не весело.

Заранее благодарен.