Помогите срочно... :)

[Лохматый]

Пожалуйста подсказите как определить имена всех компьютеров сети?
Если не трудно поделитесь не где искать, а кодом на vb. net.

[val]

[url]
http://www.codeproject.com/vb/net/MyLanApp.asp
[/url]

[Лохматый]

Если не трудно на mx-13@mail.ru скинуть можно? Я ни как не могу скачать...

[val]

Уже послал...

[Лохматый]

Спасибо! Буду разбираться...

[Лохматый]

Как мне быть? Если набираю сам код в новый проект, то инструкция
Imports System.DirectoryServices - подчеркивается и программа не запускается...
Ещё у него в листинге подчеркивается
oAddr = New System.Net.IPAddress(.AddressList(0).Address)
но всё работает...
Что мне делать?

[Лохматый]

Ну, я импортирую
Imports System.DirectoryServices
или я что-то не понимаю...
А он берет и подчеркивает!

[Лохматый]

Даже если я полностью копирую листинг программы и вставляю в новый проект, то выше упомянутое подчеркивается и не выполняется.
Может у него другая VS? Я пишу на VS .Net 2003 Enterprise Architect Edition.
Короче я так понял у меня нет пространства имен System.DirectoryServices.

[Лохматый]

Спосибо за подсказку, теперь не подчеркивает.

Вот толко здесь так и подчеркивает(выделено)
Function GetIPAddress(ByVal CompName As String) As String
Dim oAddr As System.Net.IPAddress
Dim sAddr As String
Try
With System.Net.Dns.GetHostByName(CompName)
oAddr = New System.Net.IPAddress(.AddressList(0).Address)
sAddr = oAddr.ToString
End With
GetIPAddress = sAddr
Catch Excep As Exception
MsgBox(Excep.Message, MsgBoxStyle.OKOnly, "Lan Messenger")
Finally

End Try
End Function

[val]

Попробуй так:

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


Imports System.Net


Function GetIPAddress(ByVal CompName As String) As String
   Dim ipEntry As IPHostEntry = Dns.GetHostByName(CompName)
   Dim oAddr As IPAddress() = ipEntry.AddressList
   Dim sAddr As String

   Try
          sAddr = oAddr(0).ToString()
          Return sAddr
   Catch Excep As Exception
         MsgBox(Excep.Message, MsgBoxStyle.OKOnly, "Lan Messenger")
         Return ""
   Finally

   End Try

End Function