Get information on the CPU using 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