Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Jun 23, 2001

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
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date