gifts2017

Пример получения имен компьютеров в локальной сети windows

Опубликовал lazy (lazy) в раздел Администрирование - Системное

Маленький пример, как можно получить список имен компьютеров в сети, если таковой потребуется.

Собственно, потребовалось получить имена машин в сети. Был адаптирован для 1С 8 скрипт на wsh. Ничего особо полезного не делает, просто выводит список машин и их расшаренные ресурсы. Может, кому то сэкономлю пару минут.

Ключевые слова для поиска: Сетевое окружение, компьютеры в сети, список имен компьютеров в сети, сетевые имена, Microsoft Windows Network, Shell.Application.

Скачать файлы

Наименование Файл Версия Размер Кол. Скачив.
Сетевое_окружение.epf
.epf 8,05Kb
03.06.10
79
.epf 8,05Kb 79 Бесплатно

См. также

PowerTools от 1 000
Подписаться Добавить вознаграждение

Комментарии

1. Сергей (Che) Коцюра (CheBurator) 30.05.10 00:01
вот если бы получение имени компа, с котрого производится подключение к терминальной сессии...
2. lazy (lazy) 30.05.10 00:47
Затрудняюсь придумать, зачем такое может потребоваться.
3. Аркадий Кучер (Abadonna) 30.05.10 08:15
(1) А на фига тебе имя компа? А вот имя пользователя


UserNetName(): строка – возвращает сетевое имя пользователя.
Примечание: мне как-то в 7.7 понадобилось именно сетевое, а не 1С-кое имя
(в терминальном режиме)

http://infostart.ru/public/59436/
P.S. Надо, например, отловить сетевого Чебурашку, он и отловится, с какого бы компа в терминал не зашел
4. Александр Крынецкий (echo77) 30.05.10 09:34
Хороший пример работы с WSH, может пригодится, если вы пишите консоль сетевого администратора в 1с :-)
Может пригодиться, хорошие комментарии в коде

А как в качестве ресурсов еще вывести путь до каталога %Allusers% и администраторские сетевые ресурсы(C$, D$, ... Admin$)
5. Александр Крынецкий (echo77) 02.06.10 16:24
в Windows 7 это не работает :-(
6. Nik (nikakoy) 02.06.10 23:27
Есть такая приблуда, VBSEdit называется. Что меня в ней радует - наличие кучи примеров, рассортированных по сфере применения. Когда начинал пробовать, была доступна для свободного скачивания шароварная версия. от лицензионной отличается паузой перед запуском, увеличивающейся с каждым запуском скрипта на секунду (с момента запуска программы, с новым запуском отсчет начинается по новой). Там все отлаживаю, потом переношу в 1Сину...
тут порыться
7. lazy (lazy) 03.06.10 09:27
(5) Поправил. В вин7 изменен механизм работы. Теперь при запуске обработки предлагается выбор операционной системы. Потестируйте пожалуйста, т.к. я за не имением доступа к вин7 тестировал на windows server, но думаю, что механизм одинаков...

(4) Есть ли возможность смотреть скрытые ($) ресурсы я затрудняюсь сказать, а т.к. мне это для работы пока не требуется - искать лень.

8. Александр Крынецкий (echo77) 03.06.10 18:29
(7) Выложу свою версию(под Win7 здесь не работает список компов :-))
Здесь пример получения файловых шар(в т.ч. админских)
Прикрепленные файлы:
Сетевое_окружение_m.epf
9. anry mc (AnryMc) 05.12.10 16:37
Если в сети WiFi роутер и стоит "галочка" - Отображать ресурсы в Windows 7 точка доступа определяется, но:
"{Форма.Форма(55)}: Ошибка при получении значения атрибута контекста (GetFolder): Произошла исключительная ситуация (0x80004005)
Папки = узел.GetFolder;
по причине:
Произошла исключительная ситуация (0x80004005)"
10. anry mc (AnryMc) 05.12.10 17:30
Можно при старте:
СисИнфо = Новый СистемнаяИнформация;
Сообщить(СисИнфо.ВерсияОС);

Список ОС по версиям - http://ru.wikipedia.org/wiki/Microsoft_Windows
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа