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

[Vova_2581]

Суть проблемы (сначала обобщенно): на работе имеется одноранговая сеть состоящая из N-кол. компьютеров под руководством сервера. Иногда возникает необходимость в обновлении программы обучения для студентов, которая используется на всех машинах. Обновление осуществляется простым Copy/Paste папки с программой. Количество задействованных машин может быть разным. Соответственно список машин меняется.
Обновление делается вручную с сервера, но есть желание автоматизировать этот процесс. Тем более, что это, как мне кажется, не так уж и сложно.

Теперь в частности...
Чтобы скопировать папку с обновленной версией программы обучения на удаленный комп. с сервера, использую модель FSO такой код...

Код: Выделить всё

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder "C:\UTC\*", "\\Comp001\C\UTC", True     

Благо FSO поддерживает UNC-пути.

Остается дело за малым: поставить это в цикл с перебором Comp001, Comp002, Comp003 и т.д. Сразу оговорюсь CompXXX – название условное. На самом деле каждая машина имеет свое название.

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

Пробовал из WSH объект Shell.Application – перекопал методы, но ничего не нашел. WshNetwork тоже ничего не дал. Может быть можно как-то через API или WMI? Не знаю, где искать. Подскажите, пожалуйста.

[Qwertiy]

Почему бы серверу не выдавать список тех, кто уже обновил программу?

[Vova_2581]

Так наоборот... это с сервера нужно (точнее - было бы удобней) обновлять программу на каждом компьютере в зале. Или вы что-то другое имели ввиду?

[Qwertiy]

Эм.. Я думал про стандартный подход. Программа от сервера узнаёт о наличии обновления, как именно - зависит от самой программы. Если обновление есть, то она обновляется.

Почему-то я подумал про приблизительно одновременное обновление на большом числе компьютеров сети и необходимость скачивать программу не только с сервера, но и с уже обновившихся компьютеров... Да, что-то меня не в ту степь занесло, похоже.

Т. е. по твоему плану сервер должен сам перезаписать программы на компьютерах? А что если она там запущена - как обновлять-то? К тому же, получается, что сервер должен ещё и путь установки знать. В общем, какая-то сомнительная идея. Ну или я какие-то детали пропустил.

[Vova_2581]

Т. е. по твоему плану сервер должен сам перезаписать программы на компьютерах? А что если она там запущена - как обновлять-то? К тому же, получается, что сервер должен ещё и путь установки знать. В общем, какая-то сомнительная идея. Ну или я какие-то детали пропустил.

Да, именно так: сервер должен сам (в автомате) обновить программу на всех компьютерах в зале. Путь установки сервер знает, он одинаковый для всех – это просто корневой каталог диска С. Что касается «запущенной программы» - так это не она обновляет саму себя, а я хочу написать отдельную(!) программу, которая будет это делать, в то время как программа которую обновляют будет выгружена естественно. Ничего сомнительного, нужно просто получить список всех компьютеров и их имена, как это просто и легко делается в проводнике винды «сетевое окружение». Но как это сделать программно? Как получить список? Ведь должно же быть решение.

[Vova_2581]

Вот нашел функцию ANETRESOURCES, но никаких примеров на VB. Еще нашел WNetEnumResource - она вроде как перечисляет сетевые ресурсы, но пока не знаю получиться ли или нет, попробую.

[Viper]

Еще нашел WNetEnumResource - она вроде как перечисляет сетевые ресурсы, но пока не знаю получиться ли или нет, попробую.

Использовать вместе WNetOpenEnum и WNetCloseEnum. Альтернативный вариант - функция NetServerEnum. На vb6 (и VB.NET) оба варианта вполне работоспособны, но надо долго вникать в документацию и примеры в MSDN (все дано для С++).

[Sam777e]

Книга
Дон Джонс
Средства автоматизации в Microsoft Windows [ Справочник администратора ]
Издательство ЭКОМ, 2006

я в этом не разбираюсь,
там в ~похожем ? случае используют ADSI - Active Directory Server Information.
Set oRoot = GetObject("LDAP://rootDSE") ...

[Vova_2581]

Чего-то не получается с WNetEnumResources. Скачал пример от самой Microsoft...
http://support.microsoft.com/kb/177697/ru
В строке...

Код: Выделить всё

res = WNetEnumResource(hEnum, cCount, lpBuff, cbBuff)

WNetEnumResource возвращает ошибку 259 и значение cCount = 0
Смущает то, что написано в аннотации: «WNetEnumResources могут использоваться для просмотра локальных дисков, порты принтера, которые могут быть перенаправлены и все подключения UNC на компьютерах под управлением Windows 2000, Windows NT, Windows Me, Windows 98 или Windows 95» - ХР в этом списке нет. Может в этом проблема?

Есть еще такая идея: использовать команду NET VIEW с перенаправлением вывода в текстовое поле моей проги Stdout. Но это как-то так словно чесать правое ухо левой рукой.

Может кто поможет понять в чем ошибка с WNetEnumResource?

[Viper]

Может кто поможет понять в чем ошибка с WNetEnumResource?

Полный код выложи, телепаты в отпуске.

[Viper]

Я сегодня добрый Во вложении модуль MNetApi.bas для работы с функциями из NetApi.dll и модуль MArrays.bas содержащий полезные функции для работы с массивами. MArray.bas нужен для работы MNetApi.bas, да и вообще полезная штука. К сожалению в MNetApi.bas комментариев нет вообще, но модуль полностью работспособен. Функция возвращающая строковый массив содержащий имена компьютеров локальной сети называется GetServers.
З.Ы. Модуль написан пять лет назад, с тех пор не модифицировался.

[Vova_2581]

Функция возвращающая строковый массив содержащий имена компьютеров локальной сети называется GetServers.

Если не сложно напишите как правильно вызвать GetServers? Что передавать в nCount?

[Viper]

В nCount возвращается число компьютеров локальной сети = размеру возвращаемого массива.

[Vova_2581]

Блин... ну и запудрино в этих сетевых функциях.
Во-первых, существуют уровни иерархии... понятия не имею что это за хрень, но это вроде списка, что вызывается из проводника «Вся сеть».
Во-вторых, параметры lpLocalName, lpRemoteName, lpComment, lpProvider в структуре NETRESOURCE, оказывается, самими сетевыми функциями могут быть заданы значениями, тип которых VB вообще не поддерживает – это могут быть адреса строк в буфере.

Код: Выделить всё

Type NETRESOURCE
              dwScope As Long
              dwType As Long
              dwDisplayType As Long
              dwUsage As Long
              lpLocalName As Long
              lpRemoteName As Long
              lpComment As Long
              lpProvider As Long
      End Type

В тоже время функции WNetAddConnection2 и WNetAddConnection3 должны получить в качестве параметров структуру NETRESOURCE, где lpLocalName, lpRemoteName, lpComment, lpProvider – это уже строки, а не адреса! И сама структура задается по-другому соответственно.
Чтобы получить, скажем lpRemoteName в бейсике как строковую переменную, нужно особым образом «трахнуться», просто ахринеть! Мне казалось будет попроще.

Viper, вы имеете ввиду вот так?..

Код: Выделить всё

Dim с As Long
GetServers (с)
Print с

[Viper]

Viper, вы имеете ввиду вот так?..

Я имею ввиду так:

Код: Выделить всё

Dim arNames() As String
Dim c As Long
arNames = GetServers(c)

[Viper]

Блин... ну и запудрино в этих сетевых функциях.

Так для того и сделана обертка над ними (GetServers, GetUsers и GetServerUsers), чтобы пользоваться было проще.

[Viper]

Чтобы получить, скажем lpRemoteName в бейсике как строковую переменную, нужно особым образом «трахнуться», просто ахринеть! Мне казалось будет попроще.

Последняя функция в модуле GetSTRW как раз и получает строку по ее адресу, ничего особо сложного.

[Vova_2581]

Вот так... все получается! Ура!

Код: Выделить всё

Dim arNames() As String
Dim c As Long
arNames = GetServers(c)
For i = 0 To c - 1
Print arNames(i)
Next

БОЛЬШОЕ СПАСИБО, Viper!