在vista里运行“ipconfig/all”,怎样只获得IPv4 address,gateway.

green_girl

在vista里运行“ipconfig/all”,用QTP怎样只获得IPv4 address
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("ipconfig /all")

下面该怎么实现哪

[ 本帖最后由 green_girl 于 2008-4-29 13:17 编辑 ]

jackymail

Set wshShell=CreateObject("WScript.Shell")
Set oExec=WshShell.exec("ipconfig /all")

Set regex=New RegExp
regex.pattern=".*ipv4 address.*"
regex.global=True
regex.ignorecase=True

While not oExec.StdOut.AtEndOfStream
        Set Matches=regex.execute(oExec.StdOut.ReadLine)
        For Each Match in Matches
        Msgbox Match
        oExec.StdOut.SkipLine '自己用cmd看一下中间需要跳过几行，跳到gateway那行之前的一行就行了
        Msgbox oExec.StdOut.ReadLine
        Next
       
Wend

'Set .....=nothing 清理对象

[ 本帖最后由 jackymail 于 2008-4-30 12:24 编辑 ]