Задать вопрос
@hax
junior developer

Как определить список компьютеров в локальной сети без перебора?

Требуется вывести список компьютеров, которые находятся в локальной сети, без сканера и перебора IP адресов.
  • Вопрос задан
  • 2593 просмотра
Подписаться 6 Простой Комментировать
Пригласить эксперта
Ответы на вопрос 5
CityCat4
@CityCat4 Куратор тега Сетевое администрирование
//COPY01 EXEC PGM=IEBGENER
На vbs :)
Set objShell = CreateObject("Shell.Application")

'Taking folder "Network" by CLSID (
'See http://safezone.cc/threads/kratkij-spravochnik-po-clsid.20350/ to list CLSIDs
Set objFolder = objShell.NameSpace("::{208D2C60-3AEA-1069-A2D7-08002B30309D}")

' Process each box in folder "Network"
For Each objItem In objFolder.Items()
  strBoxName = compName(objItem.Name)

  If (boxAvailable(strBoxName)) Then
    Call checkService(strBoxName, strService, arrayNodeploy, strMailBody)
  End If  
Next

compName, boxAvailable и checkService - внутренние процедуры
Ответ написан
Комментировать
fzfx
@fzfx
18,5 дм
опросите на одном из компов состояние NetBIOS.
Ответ написан
Комментировать
Matsunaki
@Matsunaki
Любознательный пользователь :)
На роутере можешь спросить список активных клиентов :)
Ответ написан
@dmfun
net view?
Ответ написан
Комментировать
aszhitarev
@aszhitarev
йей!
Запрос к Active Directory
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы