GetSystemInfo – Retrieve system information using Active Directory

GetSystemInfo – Retrieve system information using Active Directory

' Get system information using Active Directory'' Returns True if successfull'' Returns the following information in its parameters'     ComputerName'     DomainName'     PDC Name'     UserName'' NOTE: requires a reference to the Active DS Type libraryFunction GetSystemInfo(ComputerName As String, DomainName As String, _    PDCName As String, UserName As String) As Boolean    Dim sysInfo As New ActiveDs.WinNTSystemInfo        On Error Resume Next        ' just move properties into arguments    ComputerName = sysInfo.ComputerName    DomainName = sysInfo.DomainName    PDCName = sysInfo.PDC    UserName = sysInfo.UserName        ' Return True if everything was OK    GetSystemInfo = (Err.Number = 0)    End Function

See also  Redefining Energy Management: Advanced Solutions for Modern Buildings

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist