如何通过局域网上的 IP 查找计算机名称?我知道某台计算机的 IP 地址,但如何获取其工作组名称?
答案1
请查看以下函数,它将获取计算机的 IP 和名称。更改 IP 范围。
它将 ping 每个 IP 并找出响应。
Public Function mCheckThroughWMIQuery() As String
Dim oWMI = GetObject("winmgmts:")
Dim IP = GetObject("winmgmts:")
Dim oPings = GetObject("winmgmts:")
Dim PcName = GetObject("winmgmts:")
Dim sResult As String = ""
For i = 70 To 100
IP = "192.168.1." + i.ToString
oPings = oWMI.ExecQuery("Select * from WIN32_Pingstatus where address='" + IP + "'" + " and ResponseTime > 0")
For Each oPing In oPings
Try
PcName = System.Net.Dns.GetHostEntry(IP)
sResult &= IP & Chr(9) & PcName.HostName & vbNewLine
Catch ex As Exception
sResult &= IP & vbNewLine
End Try
Next
Next
Return sResult
End Function
答案2
nbtstat -a [ip address]尝试在命令提示符中使用以下命令:
win+r然后输入cmd并按enter。
这应该会显示一个名称表。与“唯一”类型关联的名称是计算机的名称。与“组”类型关联的名称应该是计算机加入的工作组。