VB: get_local_admingroup

0

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
Teilen.

Über den Autor

Seit der Ausbildung zum Fachinformatiker Systemintegration (2002-2005) bei der DaimlerChrysler AG, beruflich im Bereich der E-Mail Kommunikation (Exchange, Linux) sowie des ActiveDirectory, mit entsprechenden Zertifizierungen (MCSE 2003, MCITP Ent.-Admin 2008, MCSE 2012, LPIC 1-3) tätig. Abgeschlossenes Studium zum Master of Science der IT-Management an der FOM sowie zertifizierter Datenschutzbeauftragter. Aktuell im Projektmanagement tätig.

Antworten