kn007 发表于 2009-10-7 08:55:07

如何得到非活动网卡的网卡名及其连接名？

同题

kn007 发表于 2009-10-7 14:18:33

自顶

bing614 发表于 2009-10-7 19:07:12

http://www.autoitx.com/forum.php?mod=viewthread&tid=9302&highlight=

kn007 发表于 2009-10-7 22:59:12

额，知道了，我去研究研究

felix2000 发表于 2010-3-20 18:42:15

我也想知道，没有知道吗

felix2000 发表于 2010-3-20 18:43:31

另外网站上面的附件我下载不了，但金钱还是一样被扣，我用的IE是 Maxthon

viplight 发表于 2010-3-20 18:48:07

;======================================================
;
; 函数名称:      _NetworkAdapterInfo()
; 详细信息:      获得网卡信息
; 返回值说明:
; 以二维数组方式返回.例如 $info=_NetworkAdapterInfo()
; $info=网卡数量
; $info第一块网卡的标志1
; $info第二块网卡的标志2
; $info第一块网卡的网卡名称
; $info第二块网卡的网卡名称
; $info第一块网卡的默认网关
; $info第一块网卡的DNS主机名称(本机名称)
; $info第一块网卡的IP地址
; $info第一块网卡的主DNS
; $info第一块网卡的次DNS
; $info第一块网卡的子网掩码
; $info第一块网卡的MAC地址
; $info第一块网卡的连接名称
; 注意，此UDF不会获取已经禁用的网卡。
; 如果有需要，请删除' WHERE IPEnabled != 0'和' WHERE NetConnectionStatus >0'
; 作者:            thesnow(rundll32@126.com)
;
;======================================================
Func _NetworkAdapterInfo()
        Local $colItems = ""
        Local $objWMIService
        Local $NetworkAdapterID = 0
        Local $NetworkAdapterName = ""
        Local $NetworkAdapterGateway = ""
        Local $NetworkAdapterHostName = ""
        Local $NetworkAdapterIPaddress = ""
        Local $NetworkAdapterDNS1 = ""
        Local $NetworkAdapterDNS2 = ""
        Local $NetworkAdapterSubnet = ""
        Local $NetworkAdapterMAC = ""
        Local $NetworkAdapterNetConnectionID = ""
        Local $NetworkAdapterInfo ;最高10块网卡.
        $NetworkAdapterInfo = 0
        $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled != 0", "WQL", 0x10 + 0x20)
        $colItem2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionStatus >0', "WQL", 0x10 + 0x20)
        If IsObj($colItems) Then
                For $objItem In $colItems
                        $NetworkAdapterName = $objItem.Description
                        $NetworkAdapterGateway = $objItem.DefaultIPGateway(0)
                        $NetworkAdapterHostName = $objItem.DNSHostName
                        $NetworkAdapterIPaddress = $objItem.IPAddress(0)
                        $NetworkAdapterDNS1 = $objItem.DNSServerSearchOrder(0)
                        $NetworkAdapterDNS2 = $objItem.DNSServerSearchOrder(1)
                        $NetworkAdapterSubnet = $objItem.IPSubnet(0)
                        $NetworkAdapterMAC = $objItem.MACAddress
                        $NetworkAdapterID += 1
                        $NetworkAdapterInfo = $NetworkAdapterID
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterID
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterName
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterGateway
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterHostName
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterIPaddress
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterDNS1
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterDNS2
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterSubnet
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterMAC
                Next
        Else
                Return $NetworkAdapterInfo
        EndIf

        If IsObj($colItem2) Then
                $NetworkAdapterID = 0
                For $objItem2s In $colItem2
                        $NetworkAdapterNetConnectionID = $objItem2s.NetConnectionID
                        $NetworkAdapterID += 1
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterNetConnectionID
                Next
                Return $NetworkAdapterInfo
        Else
                Return $NetworkAdapterInfo
        EndIf
EndFunc   ;==>_NetworkAdapterInfo
页: [1]
查看完整版本: 如何得到非活动网卡的网卡名及其连接名？