GetDomainRole - Retrieving the domain role

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