можно через ping (http://www.tek-tips.com/viewthread.cfm?qid=1669536)  
пингуем - ping -n 1 -a ip получаем ответ - во второй строке ответа 3 значение имя компьютера в сети.  
Public Sub ip()  
Set objShell = CreateObject("WScript.Shell")  
last = Range("A65536").End(xlUp).Row '-последняя строка  
For i = 2 To last  
   strIP = Range("A" & i & "").Value 'выбранный ip  
   Set objScriptExec = objShell.Exec("ping.exe -n 1 -a " & strIP) 'ping  
   strPingResult = objScriptExec.StdOut.ReadAll 'получаем ответ  
   arrayPingResult = Split(strPingResult, vbCrLf) 'разбиваем на строки  
   arrayPCLine = Split(arrayPingResult(1), " ") ' разбиваем на значения  
   Range("B" & i & "") = arrayPCLine(3) ' 3 значение    
Next i 'следующий ip  
End Sub