Visual Basic Programming Code Examples Visual Basic > Code Snippets Code Examples Display the IP address using WMI Display the IP address using WMI Private Sub Form_Load() 'add a reference to the Microsoft WMI Scripting 1.2 library On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration", , 48) For Each objItem In colItems 'Form1.Print "IPAddress: " & objItem.IPAddress MsgBox ("IPAddress: " & objItem.IPAddress) Next End Sub