' Get a description of the processor using Active Directory'' NOTE: requires a reference to the Active DS Type libraryFunction 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.ProcessorEnd Function