Binaryworld - GetSystemInfo - Retrieve system information using Active Directory ... [ VB -> 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 library

Function 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