Binaryworld - GetDomainRole - Retrieving the domain role ... [ VB.net -> Networking ]

Enum DomainRole As Integer
  StandaloneWorkstation = 0
  MemberWorkstation = 1
  StandaloneServer = 2
  MemberServer = 3
  BackupDomainController = 4
  PrimaryDomainController = 5
End Enum

' Returns the domain role
' Requires a reference to System.Management and the respective Imports
Function GetDomainRole() As DomainRole
  Dim mos As New ManagementObjectSearcher _
    ("SELECT * FROM Win32_ComputerSystem")
  Dim mo As ManagementObject
  For Each mo In mos.Get()
    Return CType(Integer.Parse(mo("DomainRole").ToString()), DomainRole)
  Next
End Function