Mac unique identifier

This code can be useful if you want your code only to work on one Mac.

Sub MachineUniqueIdentifierMac()
'Get the machine unique identifier of a Mac
Dim ScriptToRun As String
Dim Answer As String

ScriptToRun = _
"set uuid to do shell script ""system_profiler SPHardwareDataType" & _
" | awk '/Hardware UUID:/ {print $NF}'"""

On Error Resume Next
Answer = MacScript(ScriptToRun)
On Error GoTo 0

MsgBox Answer

'Or add it to a cell in your worksheet so you can test
'if your workbook is running on the correct machine
'Sheets(1).Range("A1").Value = Answer

End Sub
Web design by Will Woodgate