LAN上のIPでコンピュータ名を見つける方法は?問題のコンピュータのIPアドレスを知っていますが、そのワークグループ名を取得するにはどうすればよいですか?
コンピュータのIPと名前の両方を取得する以下の関数を見つけてください。 IPの範囲を変更します。
各IPにpingを実行し、応答を見つけます。
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
コマンドを使用してみてください nbtstat -a [ip address] コマンドプロンプトで:
win+r 次に入力します cmd 次にを押します enter。
これにより、名前のテーブルが表示されます。タイプ「Unique」に関連付けられている名前は、コンピューターの名前です。タイプ「グループ」に関連付けられている名前は、コンピューターが参加しているワークグループである必要があります。
キッチンシンクの答えは、IPに対して nmap を実行することです。
これにより、コンピューターのネットワークインターフェイスの調査から取得できるほぼすべての情報が得られます。
ここでは少しやり過ぎですが、nmap(および含まれているGUI-zenmap)はそれ自体で非常に便利です。