关于IP地址获取的问题。

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

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

[系统综合] 关于IP地址获取的问题。