xiehuahere 发表于 2011-7-14 15:43:23

本帖最后由 xiehuahere 于 2011-7-14 15:45 编辑

可以用WMI，不用include什么头文件。$vpnip = get_ip("4235")
If $vpnip = "" Then
         MsgBox(4096, "Error", "VPN not detected!")
         Exit
EndIf

Func get_ip($networkadapter_name)
        Local $oIP = ""
        $strComputer = "."
        $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", "WQL")
        For $objItem In $colItems
                If StringInStr($objItem.Description, $networkadapter_name) > 0 And $objItem.IPAddress <> "" Then
                        $oIP = $objItem.IPAddress(0)
                        ExitLoop
                EndIf
        Next

        Return $oIP
EndFunc

chenronting 发表于 2011-7-14 22:06:32

回复 15# freedom


    嗯， WIN7 的回显不太一样啊， 我这里没有测试条件， 你按我的方法试试吧。

xiehuahere 发表于 2011-7-14 23:29:16

用 ipconfig 的方式依赖于操作系统语言。
我这里也有个例子：
http://www.autoitx.com/thread-26105-1-1.html

freedom 发表于 2011-7-29 19:30:22

回复 16# xiehuahere


检测不到连接！
Windows7 Sp1
页: 1 [2]
查看完整版本: 关于IP地址获取的问题。