首先在项目里面添加引用,右击解决方案 -- 添加引用--然后找到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)