devxlogo

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

devx-admin

Share the Post: