Feedback

VB - Domain User zu lokaler Gruppe hinzufügen

Veröffentlicht von am 16.03.2007
(3 Bewertungen)
Dieser Code (mit Beispiel für den Aufruf) fügt einen Domainen-Account zu einer Localen Gruppe hinzu.

GFU-Schulungen  [Anzeige]

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

ASP.NET Core und Angular Komplett für .NET-Entwickler

Sie  lernen in drei (3) Tagen wie man mit  ASP.NET Core und den Technologien  MVC, Entity Framework, WebAPI und  Razor professionelle sowie moderne  Web-Anwendungsarchitekturen aufbaut.  Die Schulung ist der perfekte  Einstieg um insbesondere datengetriebene  und präsentationsorientierte  Applikationen auf Basis der robusten und  skalierbaren ASP.NET Core  Plattform zu erstellen. Nach der Veranstaltung kennen Sie die Konzepte von Angular und können Angular in neue und bestehende ASP.NET-Anwendungen einsetzen.

'Hier der Code


    Public Function AddDoaminUserToGroup(ByVal LocalSystemName As String, _
                                         ByVal DOMAIN As String, _
                                         ByVal DomainUserName As String, _
                                         ByVal AddToLocalGroup As String) As Boolean

        Try
            Dim LocalSystem As New DirectoryEntry("WinNT://" & LocalSystemName & ",computer")
            Dim DomainName As New DirectoryEntry("WinNT://" & DOMAIN)
            Dim DOMUSR As DirectoryEntry = DomainName.Children.Find(DomainUserName, "user")
            Dim LocalGroup As DirectoryEntry = LocalSystem.Children.Find("Test", "group")
            LocalGroup.Invoke("Add", New Object() {DOMUSR.Path.ToString})
            Return True
        Catch ex As Exception
            Return False
        End Try

    End Function


'So der Aufruf

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MessageBox.Show("Operation successfull: " & _
                                                  AddDoaminUserToGroup(System.Environment.MachineName, _
                                                  "Domain1", _
                                                  "DomainUser1", _
                                                  "LocaleGruppe"), "Adding Domain User", _
                                                  MessageBoxButtons.OK, MessageBoxIcon.Information)


    End Sub
Abgelegt unter ADS.

1 Kommentare zum Snippet

botcherO schrieb am 09.08.2007:
Imports System.DirectoryServices
muss noch dazu, dann passts!
Danke, war schon länger auf der Suche nach sowas, kann nun endlich das alte Batch-Konstrukt entsorgen.
 

Logge dich ein, um hier zu kommentieren!