如何获得当前机器的IP地址?

若风1

1

lkahd_0817

3楼正解      哈哈

herry2003aa

请高手能给个实例，谢谢！

Lotustower

1.

   Shell "cmd.exe /k ipconfig.exe", vbNormalFocus


---

2.

' 請設定引用項目Windows Script Host Object Model
Sub ipconfigAll()
Dim wscr As WshShell
Set wscr = New WshShell
    If InStr(1, Application.OperatingSystem, "NT") > 0 Then
      MsgBox wscr.Exec("ipconfig").StdOut.ReadAll   ' NT
    Else
      MsgBox wscr.Exec("winipcfg").StdOut.ReadAll   ' Win 9 - x
    End If
End Sub

---

3.

Sub GetMyIP()
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim IP As Object
Dim I As Integer

strComputer = "."
Set objWMI = GetObject("winmgmts://" & strComputer & "oot/cimv2")
Set colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IP In colIP
   If Not IsNull(IP.IPAddress) Then
      For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
         MsgBox IP.IPAddress(I), vbInformation, IP.Description(I)
      Next
   End If
Next
End Sub

pureshadow

开始-运行-cmd-确定-ipconfig

老鬼

找个WINSOCK控件用，或者WINSOCK API函数。