Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

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

A positive attitude causes a chain reaction of positive thoughts, events, and outcomes. It is a catalyst, and it sparks extraordinary results.

Wade Boggs

By making yourself a life-long learner you'll keep discovering new and exciting things about yourself and others.

Rachel Robins

Soon, when all is well, you are going to look back on this period of your life and be so glad that you never gave up.

Brittany Burgunder

The best way to gain self-confidence is to do what you are afraid to do.

Swati Sharma

The function of education is to teach one to think intensively and to think critically. Intelligence plus character - that is the goal of true education.

Martin Luther King, Jr.

Go confidently in the direction of your dreams. Live the life you have imagined.

Henry David Thoreau

Stop hating yourself for everything you aren't and start loving yourself for everything you already are.

Anonymous

I feel on top of the world, I feel incredible, I feel motivated, I feel empowered. I am the master of my own destiny.

Maria Menounos