求助：如何采集本机MAC地址IP机器名称，然后自动导出文件？

saka

求助：如何采集本机MAC地址IP机器名称，然后自动导出文件？
采集内容如下，
00E04D89FCBF=SM-040|192.168.0.40|||
请高手指点！

[ 本帖最后由 saka 于 2009-3-24 12:24 编辑 ]

akmm88

下面这个例子可以,获取远程IP的MAC,修改一下对你应该很有用.
[au3]$sIP = InputBox("MAC地址获取", "请输入IP地址", @IPAddress1, "", 150, 100, -1, -1)
$MAC = _GetMAC ($sIP)
If $MAC <> "00:00:00:00:00:00" Then
MsgBox (0, "MAC地址", '"' &$sIP& '" 的MAC地址是:'&$MAC)
Else
MsgBox (0, "MAC地址", '无法获取:"' &$sIP& '" 的MAC地址')
EndIf

Func _GetMAC ($sIP)
   Local $MAC,$MACSize
   Local $i,$s,$r,$iIP
  
   $MAC = DllStructCreate("byte[6]")
   $MACSize = DllStructCreate("int")

   DllStructSetData($MACSize,1,6)
   $r = DllCall ("Ws2_32.dll", "int", "inet_addr", "str", $sIP)
   $iIP = $r[0]
   $r = DllCall ("iphlpapi.dll", "int", "SendARP","int", $iIP,"int", 0,"ptr", DllStructGetPtr($MAC),"ptr", DllStructGetPtr($MACSize))
   $s     = ""
   For $i = 0 To 5
       If $i Then $s = $s & ":"
       $s = $s & Hex(DllStructGetData($MAC,1,$i+1),2)
   Next
   Return $s
EndFunc[/au3]

catcher

ls非常好的代码，谢谢。

pingfan5888

不错，学习了。。

yangkaicheng

楼上解的很好..

kangtachen

谢谢分享。