Set objShell = WScript.CreateObject ("WScript.Shell")
Set objShellExec = objShell.Exec ("netsh interface show interface")
'msgbox objShellExec.StdOut.ReadAll'
Do
    strLine = objShellExec.StdOut.ReadLine
    'msgbox strLine
    i = i + 1
    'arrLine = split(strLine, " ")
    'msgbox arrLine(0)

Loop While Not i > 2


Do
    strLine = objShellExec.StdOut.ReadLine

    arrLine = split(strLine, " ")

    j=0
    sname = ""
    for i=0 to ubound(arrLine)
        if arrLine(i) <> "" then
            j=j+1
        end if

        if j> 3 then
            sname=sname & " " & arrLine(i)
        end if
    next
    msgbox sname

Loop While Not objShellExec.StdOut.atEndOfStream