Function Get_All_MAC_Addresses() As Collection
    Set Get_All_MAC_Addresses = New Collection: On Error Resume Next
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

    For Each objAdapter In colAdapters
        If Not IsNull(objAdapter.IPAddress) Then
            For i = 0 To UBound(objAdapter.IPAddress)
                Get_All_MAC_Addresses.Add objAdapter.MacAddress(i), objAdapter.MacAddress(i)
            Next
        End If
    Next
End Function

Sub test_Get_All_MAC_Addresses()
    For Each i In Get_All_MAC_Addresses
        Debug.Print i
    MsgBox i
    Next
End Sub

Public Sub GetDiskInfos()
    Dim pWMI As Object, pDisks As Object, pDisk As Object
    
    Set pWMI = GetObject("winmgmts:\\")
    Set pDisks = pWMI.ExecQuery("Select * from Win32_DiskDrive Where BytesPerSector Is Not Null", , 48)
    
    For Each pDisk In pDisks
        Debug.Print "Model:" & pDisk.Model
        Debug.Print "MediaType:" & pDisk.MediaType
        Debug.Print "SerialNumber:" & pDisk.SerialNumber
    Next
End Sub

Public Function CheckDiskSerial(ByVal this As String) As Boolean
    Dim pWMI As Object, pDisks As Object, pDisk As Object
    Set pWMI = GetObject("winmgmts:\\")
    Set pDisks = pWMI.ExecQuery("Select * from Win32_DiskDrive Where SerialNumber = '" & this & "'", , 48)
    CheckDiskSerial = False
    For Each pDisk In pDisks
        CheckDiskSerial = True: Exit For
    Next
End Function