Search Tools Links Login

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

About this post

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

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.