https://sites.google.com/site/beyondexcel/project-updates/exposingsystemsecretswithvbaandwmiapi

Sub WMI()
 
    Dim oWMISrvEx       As Object   'SWbemServicesEx
    Dim oWMIObjSet      As Object   'SWbemServicesObjectSet
    Dim oWMIObjEx       As Object   'SWbemObjectEx
    Dim oWMIProp        As Object   'SWbemProperty
    Dim sWQL            As String   'WQL Statement
    Dim n               As Long     'Generic Counter
 
    sWQL = "Select * From Win32_NetworkAdapterConfiguration"
    Set oWMISrvEx = GetObject("winmgmts:root/CIMV2")
    Set oWMIObjSet = oWMISrvEx.ExecQuery(sWQL)
    For Each oWMIObjEx In oWMIObjSet
        'Put a STOP here then View > Locals Window to see all properties
        If Not IsNull(oWMIObjEx.IPAddress) Then
            Debug.Print "IP:"; oWMIObjEx.IPAddress(0)
            Debug.Print "Host name:"; oWMIObjEx.DNSHostName
            For Each oWMIProp In oWMIObjEx.Properties_
                If IsArray(oWMIProp.Value) Then
                    For n = LBound(oWMIProp.Value) To UBound(oWMIProp.Value)
                        Debug.Print oWMIProp.Name & "(" & n & ")", oWMIProp.Value(n)
                    Next
                Else
                    Debug.Print oWMIProp.Name, oWMIProp.Value
                End If
            Next
        End If
    Next
 
End Sub
 
Want to see more?
Here is a workbook that facilitates exploring several hundred classes containing information about our CPU, disk drives, memory, operating system, applications, users, and much, much more.  And it can query remote PCs and servers too, assuming you have the credentials.
 
WMI Query.xlsm: https://www.dropbox.com/s/908851y0esoqtge/WMI%20Query.xlsm?dl=1 
 
Uses for WMI Query.xlsm

    Inventory all PCs in a network including all hardware and software using:
        Win32_SystemEnclosure - PC's Manufacturer and Serial Number
        Win32_LogicalDisk - Disks with capacities and free space.
        Win32_Processor - CPU Specs
        Win32_PhysicalMemoryArray - RAM/Installed Memory size
        Win32_VideoController - Graphics adapter and settings
        Win32_OnBoardDevice - Motherboard devices
        Win32_OperatingSystem - Which version of Windows with Serial Number 
        WIn32_Printer - Installed Printers
        Win32_Product - Installed Software
    WIn32_Account - List all User Accounts on a PC or Domain
    Win32_ComputerSystem - See who is currently using a remote PC (also Win32_LoggedOnUser)
    Win32_BaseService - List services running (or stopped) on any PC along with the service's path and file name.
    And hundreds more!