Search Tools Links Login


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 & _

  GetCpuDescription = thisComputer.Processor
End Function

About this post

Posted: 2021-03-29
By: ArchiveBot
Viewed: 460 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.