Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(".", "root\cimv2")
 
Set HostNameSet = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
    Str = vbNullString & VbCrLf
For Each objitem in HostNameSet
    Str = Str & "Имя компьютера: " & objitem.DNSHostName & VbCrLf
    Str = Str & "Физический адрес (MAC): " & objitem.MACAddress & VbCrLf
    
    If NOT IsNULL(objItem.IPAddress)Then
        
        Str = Str & "Ваш IP(айпи): " & Join(objItem.IPAddress, ",") & VbCrLf
    End If
 
Next
    MsgBox Str