高手请进:-------怎样遍历局域网中的所有计算机?----------高分求解(再加1000)

[boys]

如题

[myhgo]

你可用system.Net.dns试试

===========Good Luck!

[Night_Elf]

不懂，up

[3tzjq]

Imports System.Net　　

　　Module Module1　

　　 Sub Main()

　　 Dim strMachineName As String　　

　　 '得到主机名

　　 strMachineName = Dns.GetHostName()

　　 Console.WriteLine("Host Name: " + strMachineName)　

　　 '通过名字得到主机
　　 Dim ipHost As IPHostEntry

　　 ipHost = Dns.GetHostByName(strMachineName)　　

　　 '你可以得到网络上任何站点的DNS数据信息。
　　 Console.WriteLine("Host Aliases: " + ipHost.Aliases.Length.ToString())　　

　　 '以数组的形式返回相关主机的地址信息

　　 Dim ipAddr() As IPAddress = ipHost.AddressList '这里可以改为名称，然后再遍历

　　 Dim count As Integer　　

　　 'Enumerate the IP Addresses

　　 For count = 0 To ipAddr.GetUpperBound(0)

　　 Console.Write("IP 地址 {0}：{1} ", count, _

　　 ipAddr(count).ToString)

　　 Next

　　 End Sub　　

　　End Module