Visual Basic > Code Snippets

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