Помогите с сетью

[SeT]

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

[SHURUP]

Яндекс на фразу "Список компьютеров в сети" находит вот это:
http://bbs.vbstreets.ru/viewtopic.php?p=62242
http://bbs.vbstreets.ru/viewtopic.php?t=4443
Так что дерзай!
[off]Вот если бы мне кто-то напомнил, как свой ИП узнать (только не локалхост, а полный IP) - то даже тему новую не стану заводить[/off]

[Чудик]

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

Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetUserName() As String
Dim UserName As String * 255

Call GetUserNameA(UserName, 255)
GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
End Function


Public Function GetComputerName() As String
Dim UserName As String * 255

Call GetComputerNameA(UserName, 255)
GetComputerName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
End Function


[SHURUP]

Чудик, не, не то! Спасибо за скорость, конечно! Но это имя машины, а мне IP нужен. Вот такой: XXX.XXX.XXX.XXX

[Alexander N. Samarin]

А разве по именам машин IP определить нельзя?

[Чудик]

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

   MsgBox Winsock1.LocalIP


А по-сложнее см. во вложении.

[GM]

Все же второй вариант лучше, так как юзать Winsock только чтобы узнать IP адрес, не есть хорошо.

[SeT]

SHURUP
А ты попробуй использовать вместо контрола библиотеку ws2_32.dll или Winsock.dll (что-то одно из них)

[|kerish|]

SeT Да юзать Winsock.ocx и Winsock.dll разные вещи...

[SHURUP]

Спасибо всем. Остановился на втором варианте (атачмент Чудик-а). Мне главное, чтоб прога не проявляла никакой сетевой активности (чтоб фаерволы не ругались). Просто запустил юзер прогу и в общий лог - время запуска и IP занеслись.