如何提取多网卡的IP地址，并分类

xlcwxl · 发表于 2013-4-18 21:09:31

Windows IP Configuration





Ethernet adapter 本地连接 2:



        Connection-specific DNS Suffix  . : 

        IP Address. . . . . . . . . . . . : 10.185.122.122

        Subnet Mask . . . . . . . . . . . : 255.255.255.0

        Default Gateway . . . . . . . . . : 10.185.122.1



Ethernet adapter 本地连接:



        Connection-specific DNS Suffix  . : 

        IP Address. . . . . . . . . . . . : 192.168.1.1

        Subnet Mask . . . . . . . . . . . : 255.255.255.0

        Default Gateway . . . . . . . . . : 192.168.1.3

得到这样的结果
[本地连接 2]
IP=10.185.122.122
掩码255.255.255.0
网关=10.185.122.1

[本地连接]
IP=192.168.1.1
掩码=255.255.255.0
网关=192.168.1.3

veket_linux · 发表于 2013-4-18 22:49:41

自己封装一个


#include <Array.au3>
$array = getip()
_ArrayDisplay($array)

Func getip()
        RunWait(@ComSpec & " /c " & "ipconfig /all>" & @TempDir & "\ip.txt", "", @SW_HIDE)
        Sleep(2000)
        Local $fp = FileOpen(@TempDir & "\ip.txt")
        Local $buf = FileRead($fp)
        Local $buf2 = ""
        FileClose($fp)
        Local $a[1] = [0];
        Local $i = StringInStr($buf, "IP Address")
        While $i <> 0
                $i = StringInStr($buf, "adapter")
                $buf = StringMid($buf, $i)
                
                $i = StringInStr($buf, ":")
                $buf2 = StringLeft($buf, $i-1)
                $buf2 = StringMid($buf2, StringLen("adapter")+1)
                _ArrayAdd($a, $buf2)
                $a[0] += 1
                
                $i = StringInStr($buf, "IP Address")
                $buf = StringMid($buf, $i)

                $i = StringInStr($buf, ":")
                $buf = StringMid($buf, $i + 1)

                $i = StringInStr($buf, "Subnet Mask")
                $buf2 = StringLeft($buf, $i - 1)
                _ArrayAdd($a, get($buf2))
                $a[0] += 1

                $i = StringInStr($buf, "Subnet Mask")
                $buf = StringMid($buf, $i)

                $i = StringInStr($buf, ":")
                $buf = StringMid($buf, $i + 1)

                $i = StringInStr($buf, "Default Gateway")
                $buf2 = StringLeft($buf, $i - 1)
                _ArrayAdd($a, get($buf2))
                $a[0] += 1

                $i = StringInStr($buf, "Default Gateway")
                $buf = StringMid($buf, $i)

                $i = StringInStr($buf, ":")
                $buf = StringMid($buf, $i + 1)

                $i = StringInStr($buf, @CR)
                $buf2 = StringLeft($buf, $i - 1)
                _ArrayAdd($a, get($buf2))
                $a[0] += 1

                $i = StringInStr($buf, "IP Address")
        WEnd
        Return $a
EndFunc

Func get(ByRef $str)
        If $str = "" Then Return ""
        Local $a = StringToASCIIArray($str)
        Local $i
        For $i = UBound($a) - 1 To 0 Step -1
                If ($a[$i] >= Asc('0') And $a[$i] <= Asc('9')) Or ($a[$i] = Asc('.')) Then
                        ;
                Else
                        _ArrayDelete($a, $i)
                EndIf
        Next
        Return StringFromASCIIArray($a)
EndFunc

veket_linux · 发表于 2013-4-18 22:57:01

进一步测试借助安装的vm虚拟机把网络连接里两个vm 的开起来

xlcwxl · 发表于 2013-4-18 23:15:14

呵呵，不错，不错，学习了，谢谢

chzj589 · 发表于 2013-4-19 07:46:08

学习,学习了，谢谢

weeks5 · 发表于 2013-4-19 09:17:47

学习学习。学习学习。

weeew · 发表于 2013-4-19 10:03:09

学习+收藏！

949950823 · 发表于 2013-4-19 11:14:03

学习，谢谢源码分享

Qokelate · 发表于 2013-4-22 22:34:29


; 可以得到IP和网卡CLSID
Global Const $REG_Network_INTERFACE = 'HKLM\SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Interfaces'

; 得到网卡显示名称
Global Const $REG_Network_Connection = 'HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}'

从这两个注册表项可得到你需要的东西,自由发挥即可

lxzan · 发表于 2013-4-23 06:41:34

代码学习了.

shoper · 发表于 2013-4-23 12:02:32

这个我之前貌似研究过，回头我帮你找找！

veket_linux · 发表于 2013-4-23 13:59:11

再来个读注册表的


#include <Array.au3>
$a = MuliNetCard()
_ArrayDisplay($a)

Func MuliNetCard()
        Local $key = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network"
        Local $key1
        Local $array[1] = [0]
        Local $sub
        Local $sub2
        Local $val
        Local $name
        Local $i
        Local $j
        Local $keytcp = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces"
        Local $ip
        Local $mask
        Local $gateway

        $i = 1
        While True
                $sub = RegEnumKey($key, $i)
                If @error <> 0 Then ExitLoop
                $i += 1
                $val = RegRead($key & "\" & $sub, "Class")
                If $val = "net" Then ExitLoop
        WEnd
        $key1 = $key & "\" & $sub

        $i = 1
        While True
                $sub = RegEnumKey($key1, $i)
                If @error <> 0 Then ExitLoop
                $i += 1
                $j = 1
                $sub2 = ""
                While True
                        $sub2 = RegEnumKey($key1 & "\" & $sub, $j)
                        If @error <> 0 Then ExitLoop
                        $j += 1
                        If $sub2 = "Connection" Then ExitLoop
                WEnd
                If $sub2 = "Connection" Then
                        $name = RegRead($key1 & "\" & $sub & "\Connection", "Name")
                        _ArrayAdd($array, $sub)
                        _ArrayAdd($array, $name)
                        _ArrayAdd($array, "ip")
                        _ArrayAdd($array, "mask")
                        _ArrayAdd($array, "gateway")
                        $array[0] += 5
                EndIf
        WEnd

        For $i = 1 To $array[0] Step 5
                $ip = RegRead($keytcp & "\" & $array[$i], "IPAddress")
                $mask = RegRead($keytcp & "\" & $array[$i], "IPAutoconfigurationMask")
                $gateway = RegRead($keytcp & "\" & $array[$i], "DefaultGateway")
                $array[$i + 2] = $ip
                $array[$i + 3] = $mask
                $array[$i + 4] = $gateway
        Next
        Return $array
EndFunc

kshxs1981 · 发表于 2013-4-23 14:25:07

不错，谢谢楼主分享

xlcwxl · 发表于 2013-4-25 17:35:17

win7下无效，不过我用的另外一种笨方式

ebhb · 发表于 2014-10-29 10:32:56

我怎么显示是0

		自动登录	找回密码
密码			加入

[AU3基础] 如何提取多网卡的IP地址，并分类

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源