QTP的那些事--VBS获得本地连接的IP地址

代码如下：

Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("ipconfig.exe")
Set oStdOut = oExec.StdOut
ip = ""
Do Until oStdOut.AtEndOfStream
    strLine = oStdOut.ReadLine
    If InStr(strLine, "本地连接") > 0 Then
        strLine = oStdOut.ReadLine
        strLine = oStdOut.ReadLine
        strLine = oStdOut.ReadLine
        ip = Mid(strLine, InStr(strLine, ":") + 2)
        Exit Do
    End If
Loop

If ip = "" Then
    MsgBox "获取本地连接IP地址失败！", vbExclamation, "错误"
Else
    MsgBox ip, vbExclamation, ip
End If

---

作者：高级测试开发网·
本文版权归作者有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。

---