代码如下:
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