VB: get_local_admingroup

Nachfolgend ein Beispiel, wie man den Namen der lokalen Administrator-Gruppe auslesen kann, unabhängig von der OS-Sprache, oder hier als Download.

'Option Explicit Off
Imports System.Management
Imports System.Threading
Module Module1
    Private Function GetLocalAdminGroup() As String
        Dim query As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_Group Where LocalAccount = TRUE And SID = 'S-1-5-32-544'")
        Dim queryCollection As ManagementObjectCollection = query.Get()
        For Each mo As ManagementObject In queryCollection
            'Console.WriteLine(mo.GetPropertyValue("Name"))
            Return mo.GetPropertyValue("Name")
        Next
    End Function

    Sub Main()
        Console.WriteLine(GetLocalAdminGroup())
        Thread.Sleep(5000)
    End Sub
End Module