论坛摘录：如何遍历获取局域网电脑信息

首先在项目里面添加引用，右击解决方案   --   添加引用--然后找到System.DirectoryServices.dll   确定即可,在类里面  
' using   System.DirectoryServices  
Imports System.DirectoryServices

Public Shared Function GetComputerList() As ArrayList
   
    Dim list As New ArrayList()
    Dim root As New DirectoryEntry("WinNT:")
    Dim domains As DirectoryEntries = root.Children
    domains.SchemaFilter.Add("domain")
    For Each domain As DirectoryEntry In domains
        Dim iphe As IPHostEntry = Nothing
            Try 
                iphe = Dns.GetHostByName(computer.Name)
            Catch
                Continue Try
            End Try
    Next
   
       
    Return list
End Function

 

 

C# code System.Net.IPHostEntry hostinf = Dns.GetHostByName(TxtDomain.Text.Trim());
TxtIp.Text = hostinf.AddressList[ 0 ].ToString();

 

关防火墙...
"计算机名："  +  Trim(Environment.MachineName) 
"网络用户名："  +  Trim(Environment.UserName)