devxlogo

GetDomainRole – Retrieving the domain role

GetDomainRole – Retrieving the domain role

Enum DomainRole As Integer    StandaloneWorkstation = 0    MemberWorkstation = 1    StandaloneServer = 2    MemberServer = 3    BackupDomainController = 4    PrimaryDomainController = 5End Enum' Returns the domain role' Requires a reference to System.Management and the respective ImportsFunction 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)    NextEnd Function

devx-admin

Share the Post: