Как получить список компьютеров в своей рабочей группе

@Pe4eNEG · Регистрация: 12.06.2010

Студворк — интернет-сервис помощи студентам

Для улучшения производительности труда (точнее из за лени) понадобилась мне такая вот программа. Так как платные проги ставить нельзя ибо за не лицензию меня по голове не погладят, а на аналоги денег никто не даст, пришла в голову идея написать это самому... вроде ничего сложного, да и ничего сверхестественного типа удаленного управления рабочим столом мне от нее не нужно - всего то требуется удаленно ребутнуть\выключить комп или скопировать на его локальный диск кой-какой файлик из файловой помойки либо наоборот утянуть файл с него себе на комп. Сначала начал я писать это все на дельфи так-как нашел кучу готовых примеров, но потом мне все таки надоели эти "точки с запятыми в конце каждой строчки кода" которых с непривычки я пропускал уйму штук и за чего половина работы уходило на поиск ошибок в синтаксисе. Тогда решил вернуться на старый добрый VB и сразу же возникла проблема: Как получить список компьютеров в своей рабочей группе?

@eJ_Studio · 10.12.2011, 19:21

набей в "Выполнить" - cmd

затем набей Net View и ентер, и подумай как сие содрать

@_Лёша_ · 10.12.2011, 21:28

Пример.

@Pe4eNEG · 11.12.2011, 12:07 **[ТС]**

Сообщение от eJ_Studio

набей в "Выполнить" - cmd

затем набей Net View и ентер, и подумай как сие содрать

Про это я в курсе как только можно это прицепить к VB

_Лёша_, можно ли еще узнать их айпишники?

@_Лёша_ · 11.12.2011, 14:13

Ну как-то так:

VB.NET
1
2
3
4
5
6
7
8
9
10
        Dim parent As New DirectoryEntry("WinNT:")
        For Each dm As DirectoryEntry In parent.Children
            Dim coParent As New DirectoryEntry("WinNT://" & dm.Name)
            Dim dent As DirectoryEntries = coParent.Children
            dent.SchemaFilter.Add("Computer")
            For Each client As DirectoryEntry In dent
                Dim CIP as string  = System.Net.Dns.GetHostByName(client.Name.ToString).AddressList(0).ToString
                listbox1.Items.Add(client.Name & CIP )
            Next
        Next

@eJ_Studio · 13.12.2011, 17:44

_Лёша_, это тока на 3.5 работает?

@_Лёша_ · 13.12.2011, 18:51

Сообщение от eJ_Studio

_Лёша_, это тока на 3.5 работает?

Нет, надо просто подключить библу на вкладке gac , System.DirectoryServices затем:

VB.NET
1
imports System.DirectoryServices

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Pe4eNEG 123 / 123 / 12 Регистрация: 12.06.2010 Сообщений: 499 Записей в блоге: 2

	Как получить список компьютеров в своей рабочей группе 09.12.2011, 17:21. Показов 4532. Ответов 6 Метки нет (Все метки) Для улучшения производительности труда (точнее из за лени) понадобилась мне такая вот программа. Так как платные проги ставить нельзя ибо за не лицензию меня по голове не погладят, а на аналоги денег никто не даст, пришла в голову идея написать это самому... вроде ничего сложного, да и ничего сверхестественного типа удаленного управления рабочим столом мне от нее не нужно - всего то требуется удаленно ребутнуть\выключить комп или скопировать на его локальный диск кой-какой файлик из файловой помойки либо наоборот утянуть файл с него себе на комп. Сначала начал я писать это все на дельфи так-как нашел кучу готовых примеров, но потом мне все таки надоели эти "точки с запятыми в конце каждой строчки кода" которых с непривычки я пропускал уйму штук и за чего половина работы уходило на поиск ошибок в синтаксисе. Тогда решил вернуться на старый добрый VB и сразу же возникла проблема: Как получить список компьютеров в своей рабочей группе? 0

@eJ_Studio 169 / 149 / 14 Регистрация: 13.07.2011 Сообщений: 477
	10.12.2011, 19:21
	набей в "Выполнить" - cmd затем набей Net View и ентер, и подумай как сие содрать 0

@eJ_Studio 169 / 149 / 14 Регистрация: 13.07.2011 Сообщений: 477
	13.12.2011, 17:44
	_Лёша_, это тока на 3.5 работает? 0