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

Question

[NameOf Var]

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

Answer 1

[CityCat4]

На 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 - внутренние процедуры

Answer 2

[vreitech]

опросите на одном из компов состояние NetBIOS.

Answer 3

[Кирилл Инкогнатович]

На роутере можешь спросить список активных клиентов :)

Comments

[NameOf Var]

Есть компьютеры, которые подключены напрямую без роутера

[Wexter]

hax, если коммутатор управляемый то можно посмотреть ARP таблицу

Answer 4

[dmfun]

net view?

Answer 5

[Антон]

Запрос к Active Directory