' 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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
