欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

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

程序员文章站 2022-05-05 08:54:51
...

代码如下:

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


本文转自hcy's workbench博客园博客,原文链接:http://www.cnblogs.com/alterhu/archive/2012/02/16/2354844.html,如需转载请自行联系原作者。