怎么返回指定ip的计算机名？
ping -a 192.168.0.10这个有的地方不能返回，有的地方就可以。请问为什么?
另外有什么其他方法返回指定ip的计算机名吗？
或者返回一个局域网内所有的计算机名和IP对应的表呢？。
返回192.168.0.1~0.250的所有计算机ip和计算机名称。这个写的不好有地机器不能用在于】
$line = FileReadLine($file,2)
$w1 = StringSplit($line, "[")
$w2 = StringSplit($w1, " ")
$name = $w2
这几段自己看着改吧 #include <Process.au3>
FileDelete ("c:/ip.txt")
$ipd4 = "1"
$ipd123="192.168.0."
While $ipd4 <= 250
$namez = 0
$ipyn = 0
Dim $ip = $ipd123&$ipd4
$ipyn = Example($ip)
If $ipyn = 1 Then
$namez = pcName($ip)
EndIf
$ipd4+=1
If $namez <> "bogon" Then
IniWrite("c:\ip记录.ini", "ip", $ip, $namez)
EndIf
WEnd
Func Example($ip)
; Ping AutoIt 网站,超时时间为 250 毫秒.
Local $iPing = Ping($ip, 250)
If $iPing Then ; If a value greater than 0 was returned then display the following message.
Return 1
Else
;~ MsgBox(4096, "", "发生了一个错误, @error 值为: " & @error)
Return 0
EndIf
Return 0
EndFunc ;==>Example
Func pcName($ip)
_RunDos("ping -a "&$ip&" -n 1 >>c:\ip.txt")
$file = FileOpen("c:/ip.txt", 0)
; 检查文件是否正常打开
If $file = -1 Then
MsgBox(0, "错误", "无法打开目标文件。")
Exit
EndIf
$line = FileReadLine($file,2)
$w1 = StringSplit($line, "[")
$w2 = StringSplit($w1, " ")
$name = $w2
FileClose($file)
FileDelete ("c:/ip.txt")
Return $name
EndFunc
本帖最后由 qqgghh1 于 2012-8-17 13:29 编辑
分析ping -ax.x.x.x>>1.txt 效率和稳定性不太好，但也是一种方法。分享一段代码，论坛网友提供的。按理你用搜索完全能搜出很多结果来。这里是我的转帖：http://www.autoitx.com/thread-27535-1-1.html，主要是靠这两个函数实现你的需求，至于扫描整个局域网的，你参考上面链接再改改吧，应该不难。Func __TCPIpToName($sIp, $iOption = Default, $hDll_Ws2_32 = Default)
Local $vbinIP, $vaDllCall, $vptrHostent, $vHostent, $sHostnames, $vh_aliases, $i
Local $INADDR_NONE = 0xffffffff, $AF_INET = 2, $sSeperator = @CR
If $iOption = Default Then $iOption = 0
If $hDll_Ws2_32 = Default Then $hDll_Ws2_32 = "Ws2_32.dll"
$vaDllCall = DllCall($hDll_Ws2_32, "long", "inet_addr", "str", $sIp)
If @error Then Return SetError(1, 0, "") ; inet_addr DllCall Failed
$vbinIP = $vaDllCall
If $vbinIP = $INADDR_NONE Then Return SetError(2, 0, "") ; inet_addr Failed
$vaDllCall = DllCall($hDll_Ws2_32, "ptr", "gethostbyaddr", "long*", $vbinIP, "int", 4, "int", $AF_INET)
If @error Then Return SetError(3, 0, "") ; gethostbyaddr DllCall Failed
$vptrHostent = $vaDllCall
If $vptrHostent = 0 Then
$vaDllCall = DllCall($hDll_Ws2_32, "int", "WSAGetLastError")
If @error Then Return SetError(5, 0, "") ; gethostbyaddr Failed, WSAGetLastError Failed
Return SetError(4, $vaDllCall, "") ; gethostbyaddr Failed, WSAGetLastError = @Extended
EndIf
$vHostent = DllStructCreate("ptr;ptr;short;short;ptr", $vptrHostent)
$sHostnames = __TCPIpToName_szStringRead(DllStructGetData($vHostent, 1))
If @error Then Return SetError(6, 0, $sHostnames) ; strlen/sZStringRead Failed
If $iOption = 1 Then
$sHostnames &= $sSeperator
For $i = 0 To 63 ; up to 64 Aliases
$vh_aliases = DllStructCreate("ptr", DllStructGetData($vHostent, 2) + ($i * 4))
If DllStructGetData($vh_aliases, 1) = 0 Then ExitLoop ; Null Pointer
$sHostnames &= __TCPIpToName_szStringRead(DllStructGetData($vh_aliases, 1))
If @error Then
SetError(7) ; Error reading array
ExitLoop
EndIf
Next
Return StringSplit(StringStripWS($sHostnames, 2), @CR)
Else
Return $sHostnames
EndIf
EndFunc ;==>__TCPIpToName
Func __TCPIpToName_szStringRead($iszPtr, $iLen = -1, $hDll_msvcrt = "msvcrt.dll")
Local $aStrLen, $vszString
If $iszPtr < 1 Then Return "" ; Null Pointer
If $iLen < 0 Then
$aStrLen = DllCall($hDll_msvcrt, "int:cdecl", "strlen", "ptr", $iszPtr)
If @error Then Return SetError(1, 0, "") ; strlen Failed
$iLen = $aStrLen + 1
EndIf
$vszString = DllStructCreate("char[" & $iLen & "]", $iszPtr)
If @error Then Return SetError(2, 0, "")
Return SetError(0, $iLen, DllStructGetData($vszString, 1))
EndFunc ;==>__TCPIpToName_szStringRead
页:
[1]