找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 如何获取本机所有网卡IP信息及网卡名字 ...
12下一页
返回列表 发新帖
查看: 7719|回复: 16

如何获取本机所有网卡IP信息及网卡名字

[复制链接]
zhenglei
发表于 2008-10-17 00:33:59 | 显示全部楼层 |阅读模式
#include <GUIConstants.au3>
#include <Array.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\cface\桌面\222.kxf
;Opt("TrayIconHide", 1)
Opt("TrayMenuMode",1)

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

dim $ret="" , $bt11,$nMsg,$input,$s,$s1 ,$ttt=22 , $i=0,$wk1, $card1,$card2

getipinfo()


        Local $msg
        GUICreate("My GUI combo")  ; will create a dialog box that when displayed is centered
        GUICtrlCreateLabel("请选择网克使用网卡:",10,30)
        $input=GUICtrlCreateCombo("", 10, 50,260,20) ; create first item
        GUICtrlSetData($input, $card1&"|"&$card2) ; add other item snd set a new default
    $bt11=GUICtrlCreateButton("测试",100,160)
        GUISetState()
        $s=GUICtrlRead($input)
   ; MsgBox(64,"asd",$s)
        ; Run the GUI until the dialog is closed
        ;While 1
        ;        $msg = GUIGetMsg()
        ;        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
;Case $bt11
;$rd1 = GUICtrlRead($xuni1)

;        WEnd

While 1
        $nMsg = GUIGetMsg()
        Select
                Case $nMsg = $GUI_EVENT_CLOSE
                        Exit
                Case $nMsg = $bt11
$s1=GUICtrlRead($input)
;MsgBox(64,"网卡检测:",$s1)
                        EndSelect
                        WEnd







Func getipinfo()   ;获取本机网卡全部信息
Local $wbemFlagReturnImmediately,$wbemFlagForwardOnly,$deip,$demask,$dedns,$dedns2,$degete,$dename
Local $network,$strComputer,$objWMIService,$colItems,$Output,$strIPAddress,$strDNSServerSearchOrder,$strIPSubnet
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "计 算 机：" & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled != 0", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
$i=0
If IsObj($colItems) then
   For $objItem In $colItems
      $Output = $Output & "网    卡： " & $objItem.Description & @CRLF
      ;$strDefaultIPGateway = $objItem.DefaultIPGateway(0)
      $Output = $Output & "默认网关： " & $objItem.DefaultIPGateway(0) & @CRLF
   
  
      $Output = $Output & "计算机名： " & $objItem.DNSHostName & @CRLF
      $strIPAddress = $objItem.IPAddress(0)
      $Output = $Output & "I  P地址： " & $strIPAddress & @CRLF
     $strDNSServerSearchOrder = $objItem.DNSServerSearchOrder(0)
      $Output = $Output & "默认 DNS： " & $strDNSServerSearchOrder & @CRLF
          $strDNSServerSearchOrder = $objItem.DNSServerSearchOrder(1)
      $Output = $Output & "备用 DNS： "  & $strDNSServerSearchOrder & @CRLF
         
      $strIPSubnet = $objItem.IPSubnet(0)
      $Output = $Output & "子网掩码： " & $strIPSubnet & @CRLF
      $Output = $Output & "M AC地址： " & $objItem.MACAddress & @CRLF
      ;if Msgbox(1,"WMI获取的信息：",$Output) = 2 then ExitLoop
      $Output=""

$deip=$strIPAddress
$demask=$strIPSubnet
$dedns=$objItem.DNSServerSearchOrder(0)
$dedns2=$objItem.DNSServerSearchOrder(1)
$degete=$objItem.DefaultIPGateway(0)
$dename=$objItem.DNSHostName

          if $i =1 then
             ;MsgBox(64,"测试",$network)
                 $card2=$objItem.Description
                            ;  MsgBox(64,"card2",$card2)
                         Else
                 $card1=$objItem.Description&"1"
         $i =1               
         $card2='无网卡信息'                                  
         EndIf
   MsgBox(64,"netcardname",$strIPAddress)

         
Next
            MsgBox(64,"card1",$card1)
         MsgBox(64,"card2",$card2)       
Endif
EndFunc

以上代码  可以进行多网卡IP信息 及 多网卡名称获取,,,但存在一个问题就是如果你的机器是一个网卡的话。以上代码会把你的机器网卡认为2快。。 而二快网卡却又是一摸一样的。。 也就把同一网卡认了俩遍。。。

代码错误处:  


  if $i =1 then
             ;MsgBox(64,"测试",$network)
                 $card2=$objItem.Description
                            ;  MsgBox(64,"card2",$card2)
                         Else
                 $card1=$objItem.Description&"1"
         $i =1               
         $card2='无网卡信息'                                  
         EndIf
   MsgBox(64,"netcardname",$strIPAddress)
         
Next

如果将 以下代码放于 NEXT后 则单网卡机器检测一切正常。。 缺点就是不能应用于多网卡的机器了。。达不到我们的要求...
if $i =1 then
             ;MsgBox(64,"测试",$network)
                 $card2=$objItem.Description
                            ;  MsgBox(64,"card2",$card2)
                         Else
                 $card1=$objItem.Description&"1"
         $i =1               
         $card2='无网卡信息'                                  
         EndIf
   MsgBox(64,"netcardname",$strIPAddress)


               请高手们出来指点一下吧。 谢谢。。。 另外就以上代码。。 如果要给多网卡的 某个网卡修改IP如果修改啊。。

[ 本帖最后由 zhenglei 于 2008-10-23 12:39 编辑 ]
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
zhenglei
 楼主| 发表于 2008-10-17 00:39:25 | 显示全部楼层

问题已解决

问题已解决
回复

举报

itljl
发表于 2008-10-17 00:49:10 | 显示全部楼层
如何解决的？
回复

举报

zhenglei
 楼主| 发表于 2008-10-17 01:14:18 | 显示全部楼层

在顶一下

在顶一下....顶到高手出现!!~~
回复

举报

liongodmien
发表于 2008-10-17 11:34:46 | 显示全部楼层
我是单网卡的，用ＬＺ的代码测试了下，没有出现有两块一样网卡的情形！
回复

举报

netegg
发表于 2008-10-17 12:16:20 | 显示全部楼层
走api枚举一下应给就行了吧
回复

举报

liongodmien
发表于 2008-10-17 12:34:52 | 显示全部楼层
我没有多网卡试，改了下，不知道行不行：

#include <GUIConstants.au3>
#include <Array.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\cface\桌面\222.kxf
;Opt("TrayIconHide", 1)
Opt("TrayMenuMode", 1)

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Dim $ret = "", $bt11, $nMsg, $input, $s, $s1, $ttt = 22, $i = 0, $wk1, $card[20], $setcard = ''

getipinfo()


Local $msg
GUICreate("My GUI combo") ; will create a dialog box that when displayed is centered
GUICtrlCreateLabel("请选择网克使用网卡:", 10, 30)
For $i = 1 To $card[0]
        $setcard &= $card[$i] & '|'
Next
$input = GUICtrlCreateCombo('请选择一块网卡', 10, 50, 380, 20) ; create first item
GUICtrlSetData($input, $setcard) ; add other item snd set a new default
$bt11 = GUICtrlCreateButton("测试", 100, 160, 50, 30)
GUISetState()
$s = GUICtrlRead($input)

While 1
        $nMsg = GUIGetMsg()
        Select
                Case $nMsg = $GUI_EVENT_CLOSE
                        Exit
                Case $nMsg = $bt11
                        $s1 = GUICtrlRead($input)
                        ;MsgBox(64,"网卡检测:",$s1)
        EndSelect
WEnd

Func getipinfo() ;获取本机网卡全部信息
        Local $wbemFlagReturnImmediately, $wbemFlagForwardOnly, $deip, $demask, $dedns, $dedns2, $degete, $dename
        Local $network, $strComputer, $objWMIService, $colItems, $Output, $strIPAddress, $strDNSServerSearchOrder, $strIPSubnet
        $wbemFlagReturnImmediately = 0x10
        $wbemFlagForwardOnly = 0x20
        $colItems = ""
        $strComputer = "localhost"

        $Output = ""
        $Output = $Output & "计 算 机：" & $strComputer & @CRLF
        $Output = $Output & "==========================================" & @CRLF
        $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled != 0", "WQL", _
                        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
        
        Local $check2 = '', $check1 = ''
        $card[0] = 0
        If IsObj($colItems) Then
                For $objItem In $colItems
                        $Output = $Output & "网    卡： " & $objItem.Description & @CRLF
                        ;$strDefaultIPGateway = $objItem.DefaultIPGateway(0)
                        $Output = $Output & "默认网关： " & $objItem.DefaultIPGateway(0) & @CRLF

                        $Output = $Output & "计算机名： " & $objItem.DNSHostName & @CRLF
                        $strIPAddress = $objItem.IPAddress(0)
                        $Output = $Output & "I  P地址： " & $strIPAddress & @CRLF
                        $strDNSServerSearchOrder = $objItem.DNSServerSearchOrder(0)
                        $Output = $Output & "默认 DNS： " & $strDNSServerSearchOrder & @CRLF
                        $strDNSServerSearchOrder = $objItem.DNSServerSearchOrder(1)
                        $Output = $Output & "备用 DNS： " & $strDNSServerSearchOrder & @CRLF

                        $strIPSubnet = $objItem.IPSubnet(0)
                        $Output = $Output & "子网掩码： " & $strIPSubnet & @CRLF
                        $Output = $Output & "M AC地址： " & $objItem.MACAddress & @CRLF
;~                         if Msgbox(1,"WMI获取的信息：",$Output) = 2 then ExitLoop
                        $Output = ""
                        $check1 = $objItem.MACAddress
                        If $check1 = $check2 Then
                                If $check1 = '' Then Return MsgBox(64, '', '无网卡')
                                ExitLoop
                        EndIf
                        $check2 = $check1
                        $card[0] += 1
                        
                        $deip = $strIPAddress
                        $demask = $strIPSubnet
                        $dedns = $objItem.DNSServerSearchOrder(0)
                        $dedns2 = $objItem.DNSServerSearchOrder(1)
                        $degete = $objItem.DefaultIPGateway(0)
                        $dename = $objItem.DNSHostName

                        $card[$card[0]] = $objItem.Description & $card[0]
                        MsgBox(64, "netcardname", $strIPAddress)


                Next
                For $i = 1 To $card[0]
                        MsgBox(64, "card"&$i, $card[$i])
                Next
        EndIf
EndFunc   ;==>getipinfo


[ 本帖最后由 liongodmien 于 2008-10-17 12:46 编辑 ]
回复

举报

番茄
发表于 2008-10-17 12:36:35 | 显示全部楼层 

#include <GUIConstants.au3>
#include <Array.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\cface\桌面\222.kxf
;Opt("TrayIconHide", 1)
Opt("TrayMenuMode", 1)
 
#include <GUIConstantsEx.au3>
 
Opt('MustDeclareVars', 1)
 
Dim $ret = "", $bt11, $nMsg, $input, $s, $s1, $ttt = 22, $i = 0, $wk1, $card[20], $setcard = ''
 
getipinfo()
 
 
Local $msg
GUICreate("My GUI combo") ; will create a dialog box that when displayed is centered
GUICtrlCreateLabel("请选择网克使用网卡:", 10, 30)
For $i = 1 To $card[0]
    $setcard &= $card[$i] & '|'
Next
$input = GUICtrlCreateCombo('请选择一块网卡', 10, 50, 380, 20) ; create first item
GUICtrlSetData($input, $setcard) ; add other item snd set a new default
$bt11 = GUICtrlCreateButton("测试", 100, 160, 50, 30)
GUISetState()
$s = GUICtrlRead($input)
 
While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            Exit
        Case $nMsg = $bt11
            $s1 = GUICtrlRead($input)
            MsgBox(64,"网卡检测:",$s1)
    EndSelect
WEnd
 
Func getipinfo() ;获取本机网卡全部信息
    Local $wbemFlagReturnImmediately, $wbemFlagForwardOnly, $deip, $demask, $dedns, $dedns2, $degete, $dename
    Local $network, $strComputer, $objWMIService, $colItems, $Output, $strIPAddress, $strDNSServerSearchOrder, $strIPSubnet
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $strComputer = "localhost"
 
    $Output = ""
    $Output = $Output & "计 算 机：" & $strComputer & @CRLF
    $Output = $Output & "==========================================" & @CRLF
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled != 0", "WQL", _
            $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    
    Local $check2 = '', $check1 = '', $counter = 0
    If IsObj($colItems) Then
        For $objItem In $colItems
            $Output = $Output & "网    卡： " & $objItem.Description & @CRLF
            ;$strDefaultIPGateway = $objItem.DefaultIPGateway(0)
            $Output = $Output & "默认网关： " & $objItem.DefaultIPGateway(0) & @CRLF
 
            $Output = $Output & "计算机名： " & $objItem.DNSHostName & @CRLF
            $strIPAddress = $objItem.IPAddress(0)
            $Output = $Output & "I  P地址： " & $strIPAddress & @CRLF
            $strDNSServerSearchOrder = $objItem.DNSServerSearchOrder(0)
            $Output = $Output & "默认 DNS： " & $strDNSServerSearchOrder & @CRLF
            $strDNSServerSearchOrder = $objItem.DNSServerSearchOrder(1)
            $Output = $Output & "备用 DNS： " & $strDNSServerSearchOrder & @CRLF
 
            $strIPSubnet = $objItem.IPSubnet(0)
            $Output = $Output & "子网掩码： " & $strIPSubnet & @CRLF
            $Output = $Output & "M AC地址： " & $objItem.MACAddress & @CRLF
            if Msgbox(1,"WMI获取的信息：",$Output) = 2 then ExitLoop
            $Output = ""
            $check1 = $objItem.MACAddress
            If $check1 = $check2 Then
                If $check1 = '' Then Return MsgBox(64, '', '无网上卡')
                ExitLoop
            EndIf
            $check2 = $check1
            $counter += 1
            $card[0] += 1
            
            $deip = $strIPAddress
            $demask = $strIPSubnet
            $dedns = $objItem.DNSServerSearchOrder(0)
            $dedns2 = $objItem.DNSServerSearchOrder(1)
            $degete = $objItem.DefaultIPGateway(0)
            $dename = $objItem.DNSHostName
 
            $card[$counter] = $objItem.Description & $counter
            MsgBox(64, "netcardname", $strIPAddress)
 
 
        Next
        For $i = 1 To $counter
            MsgBox(64, "card"&$i, $card[$i])
        Next
    EndIf
EndFunc   ;==>getipinfo


测试了下，我单网卡，显示还是2块网卡。

[ 本帖最后由 番茄 于 2008-10-17 12:39 编辑 ]
回复

举报

liongodmien
发表于 2008-10-17 12:51:11 | 显示全部楼层
测试了下，我单网卡，显示还是2块网卡。

由 番茄 于 2008-10-17 12:39

那我就没办法了，我在自己的机子上反复的试，除了预设的那一句话，就只有一个网卡．．．
回复

举报

dgsf520
发表于 2008-10-21 10:47:05 | 显示全部楼层
原帖由 liongodmien 于 2008-10-17 12:34 发表
我没有多网卡试，改了下，不知道行不行：
[au3]
#include
#include
#Region ### START Koda GUI section ### Form=c:\documents and settings\cface\桌面\222.kxf
;Opt("TrayIconHide", 1)
Opt("TrayMenuMod ...

按你这样的写的话运行没有反应。
回复

举报

s20305
发表于 2008-10-21 14:05:14 | 显示全部楼层
我这也是一块啊，呵呵！
回复

举报

redapple2008
发表于 2008-11-12 11:24:17 | 显示全部楼层
我的电脑上一块网卡，一个也不显示。晕
回复

举报

wxlj
发表于 2009-3-10 19:53:09 | 显示全部楼层
参观…………………………
回复

举报

lxmx
发表于 2009-4-8 23:21:38 | 显示全部楼层
嗯嗯，实现了，效果不错。
回复

举报

xz00311
发表于 2009-9-29 17:42:13 | 显示全部楼层
列表获取啊
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-9-23 03:19 , Processed in 0.081096 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表