Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Сканирование расшаренных папок.

Ответить
Настройки темы
Любой язык - Сканирование расшаренных папок.

Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения
Автор: Freek
Дата: 28-11-2013
Коллеги, приветствую!
Помогите пожалуйста, Поставлена задача нахождения в локальной сети ПК с расшаренными папками. Решение данной задачи видится так: Выгружаю список компьютеров с AD или с помощью SCCM в текстовый файл в любом формате, через точку с запятой, через пробел, через .... (К примеру блокнот с названием COMPUTERS.txt)
Код: Выделить весь код
IVANOV
PETROV
SIDOROV
Либо так: (есть возможность выгрузить в любом формате)
Код: Выделить весь код
IVANOV;PETROV;SIDOROV
Затем создать скрипт VBS для сканирования на предмет расшаренных папок, в нём указать список ПК (COMPUTERS.txt)
Данные должны записаться в лог-файл и каждый раз перезаписываться. Желательно: Имя ПК, Расшаренная папка или путь к расшаренной папке (по возможности дата).
На данный момент располагаю только таким скриптом
Код: Выделить весь код
Option Explicit 
Dim CompName : CompName = "IVANOV"  //Здесь хотелось бы указать файл с COMPUTERS.txt
Dim fso, oWmi, oSelQ 
Dim Share 
'On Error Resume Next 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set oWmi = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" & CompName & "/root/cimv2")
Set oSelQ = oWmi.ExecQuery("SELECT * FROM Win32_Share") 
For Each Share In oSelQ 
MsgBox "Share Name: " & Share.Name & Chr(13) & "Share Path: " & Share.Path  //Всплывающие сообщения хотелось бы убрать вообще
Next 
Set oSelQ = Nothing 
Set oWMI  = Nothing 
Set  fso  = Nothing
//А здесь хотелось бы добавить запись лог-файла
Заранее всем большое спасибо!

Отправлено: 10:56, 28-11-2013

 

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать

Если Вы не планируете ручками добавлять/убирать машины в список — какой смысл в выгрузке списка в файл?
Это сообщение посчитали полезным следующие участники:

Отправлено: 11:30, 28-11-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать

Цитата Iska:
Если Вы не планируете ручками добавлять/убирать машины в список — какой смысл в выгрузке списка в файл? »
С этим полностью согласен. Можно просто с нужной OUшки в AD.
Тогда я так понял проще на PowerShell'e сделать скрипт, я как раз уже начал его писать.

Отправлено: 11:35, 28-11-2013 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Сканирование расшаренных папок.

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - Поиск расшаренных папок Shumsky Скриптовые языки администрирования Windows 5 02-11-2021 08:29
Интерфейс - [решено] Значки для расшаренных папок в Win7 ничем не отличаются от обычных DIMM DDR Microsoft Windows 7 4 04-06-2012 14:55
Прочее - [решено] Машина видит сеть, но не видит расшаренных папок на других машинах JaRule Сетевые технологии 1 09-08-2011 14:09
Сканирование расшаренных ресурсов (PHP) Igor_I Вебмастеру 2 26-11-2005 20:25
Загрузка дисков из-за расшаренных папок serge2005 Сетевые технологии 3 09-03-2005 22:59


« Предыдущая тема | Следующая тема »


 
Переход