' 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