devxlogo

GetCpuDescription – Get information on the CPU using Active Directory

GetCpuDescription – 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 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

devx-admin

Share the Post: