Hi Wiccaan

Ive done this sujestion:

Code:
Private Sub Command1_Click()
Call GetWMIAdapter
End Sub

Public Sub GetWMIAdapter()
Dim oAdapters As Object
Dim oAdapter As Object

On Error Resume Next

Set oAdapters = GetObject("winmgmts:").ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
    
For Each oAdapter In oAdapters
    With oAdapter
         Label1.Caption "MAC:" & vbTab & vbTab & .MACAddress
    End With
Next
End Sub
I get a compile error which says invalid use of property and highlights .caption

Im a noob to all this VB sorry if its a silly question