[Tasos]

Καλησπέρα!

Γιώργο, για να παίρνεις το ID του επεξεργαστή δοκίμασε το παρακάτω:

Sub test()
    Dim x As String
    x = GetProccessorID
    Debug.Print x
End Sub

Function GetProccessorID() As String
    Dim oWmi As Object, ColProcessors As Object, oProcessor As Object, StrComputer As String
    StrComputer = "."
    Set oWmi = GetObject("winmgmts:\\" & StrComputer & "\root\cimv2")
    Set ColProcessors = oWmi.ExecQuery("Select ProcessorId From Win32_Processor")
    For Each oProcessor In ColProcessors
        GetProccessorID = oProcessor.ProcessorId
    Next
End Function

Καλή συνέχεια!

Τάσος