computer id voor de mac ophalen

[Harry Veen]

Voor Excel 2011 voor de Mac zoek ik de vba-code om de Hardware-UUID binnen Excel op te halen. Kan iemand mij helpen?

 

[Warme bakkertje]

Van Ron de Bruin http://www.rondebruin.nl/mac.htm

Sub MachineUniqueIndentifierMac()
'Get the machine unique indentifier 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

 

[Harry Veen]

Bedankt.