Binaryworld - GetCpuDescription - Get information on the CPU using Active Directory ... [ VB -> Active Directory ]

' Get a description of the processor using Active Directory
'
' NOTE: requires a reference to the Active DS Type library

Function GetCpuDescription() As String
  Dim thisComputer As ActiveDs.IADsComputer
  Dim thisService As ActiveDs.IADsServiceOperations
  ' we need this object to retrieve computer name
  Dim sysInfo As New ActiveDs.WinNTSystemInfo

  ' retrieve the AD object corresponding to this computer
  Set thisComputer = GetObject("WinNT://" & sysInfo.ComputerName & _
    ",computer")

  GetCpuDescription = thisComputer.Processor
End Function