How to make a file, Machine Dependent (1 Viewer)

Private Function GetMac() As String
Dim objWMIService As Object, objItem As Object, colItems As Variant
    GetMac = ""
    Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")
 
    For Each objItem In colItems
        'MsgBox Nz(objItem.Name, "") & " / " & Nz(objItem.MACAddress, "")
        If InStr(objItem.Name, "etwork") <> 0 Then
           If Not IsNull(objItem.MACAddress) Then
             GetMac = objItem.MACAddress
             ' Label24.Caption = objItem.MACAddress
             Exit For
           End If
        End If
    Next
End Function

'---------------------------------------------------------------------------------------
' Procedure : jtProp
' Author    : mellon
' Date      : 11-Mar-2017
' Purpose   : Routine to test
'               -create a CustomProperty
'               -getting the MACAddress of current machine
'               -list all properties
'
'Note: You can only create a specifc CustomProperty once
'      So uncomment this line to delete the CustomProperty
'         'db.Properties.Delete "CorrectMacAddress"
'
' Dependency: Function GetMAC
'             Function CreateCustomProperty
'
'  available from https://access-programmers.co.uk/forums/showthread.php?t=243000
'---------------------------------------------------------------------------------------
'
Sub jtProp()
    Dim db As DAO.Database
    Dim P As DAO.Property
10    On Error GoTo jtProp_Error

20    Set db = DBEngine(0)(0)

    '***For testing I need ability to delete the custom Property
'    db.Properties.Delete "CorrectMacAddress"
'
    Dim strCustomPropertyName As String
    Dim strCustomPropertyValue As String
'
'    'identify the name of the CustomProperty
30    strCustomPropertyName = "CorrectMACAddress"
'
'    'get the value to be assigneed to the CustomProperty
40    strCustomPropertyValue = GetMac()
'
50    Call CreateCustomProperty(strCustomPropertyName, strCustomPropertyValue)

    'Iterate the custom properties to see what exists

60    For Each P In db.Properties
70      Debug.Print P.name & " :  " & P.value
80    Next P
90    On Error GoTo 0
100   Exit Sub

jtProp_Error:        'Trap some errors re Property
110   If err.number = 3270 Then
120     Debug.Print err.number & "  " & err.Description
130   ElseIf err.number = 3265 Then
140     Debug.Print err.number & "  " & err.Description
150   ElseIf err.number = 3251 Then
160     Debug.Print err.number & "  " & err.Description
170   Else
180     MsgBox "Error " & err.number & " in line " & Erl & " (" & err.Description & ") in procedure jtProp of Module WinMgmtStuff"
190   End If
200   Resume Next
End Sub