birde böyle bir kod var



Function ProcessorID() As String
On Error GoTo Error_Handler
    ' Using late binding to avoid a Reference problem
    Dim strComputer      As String
    Dim objWMIService    As Object
    Dim colItems         As Object
    Dim objItem          As Object
   
    strComputer = "." 'Get info for the current computer
    
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", , 48)
   
    For Each objItem In colItems
        ProcessorID = Nz(objItem.ProcessorID, 0)
    Next
Error_Handler:
    MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf & "Error Number: " & _
    Err.Number & vbCrLf & "Error Source: ProcessorID" & vbCrLf & "Error Description: " & _
    Err.Description, vbCritical, "An Error has Occured!"
    Resume Error_Handler_Exit
End Function