CPU id and HD Serial #

Anyone know of a method to get the Mac CPU ID & the HD serial #

In VB i used this Function that worked for the CPU ID

   Dim processors As Object
   Dim wmi As Object

        Dim computer As String = "."
        wmi = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\\" & computer & "\\root\\cimv2")
        processors = wmi.ExecQuery("Select * from " & "Win32_Processor")

        Dim cpu_ids As String = ""
        For Each cpu As Object In processors
            cpu_ids = cpu_ids & ", " & cpu.ProcessorId
        Next cpu
        If cpu_ids.Length > 0 Then cpu_ids = cpu_ids.Substring(2)
        Return cpu_ids
    Catch ex As Exception
        Return "" 
    End Try

Note there can be several hd’s so …
In a shell this command will get you a pile of information about each drive

system_profiler SPSerialATADataType

And this gets you the CPU

system_profiler SPHardwareDataType

Again you get a bunch of info

OP seems to run under windows … not sure system_profiler works under windows.

EXCEPT that has asked for how to get this on a Mac [quote=338622:@Kevin Currie]Anyone know of a method to get the Mac CPU ID & the HD serial #

Please check also the SystemInformationMBS module in MBS Plugins: