如何使用 VB.NET 将组添加到本地管理员组？

Question

我正在尝试编写一个程序，使用 VB.NET 将名为 grp1 的组添加到本地管理员组。 post: Adding group to local administrators中提到的方法我都试过了，但对我没有用。以下是我目前所拥有的：

Function AddToLocalAdmin(grp1 As String)
    Dim localComp As string = system.environment.MachineName
    Try
        Dim localMachine As New DirectoryEntry("WinNT://" & localComp & ",computer")
        Dim AdminGrp As DirectoryEntry = localMachine.Children.Find("Administrators", "group")

        AdminGrp.Invoke("Add", grp1)
        AdminGrp.CommitChanges()

        Return True
    Catch ex As Exception
        Return False
    End Try
End Function

我在Google上找到很多文章都在谈论如何将用户添加到本地管理员组，但是我应该如何添加一个组呢？

提前致谢。

Answer 1

Nvm 我自己找到了解决方案。下面的代码工作得很好。

    AdminGrp.Invoke("Add", New Object() {"WinNT://DOMAINNAME/" & grp1})

如何使用 VB.NET 将组添加到本地管理员组？

How to add a group to local administrators group using VB.NET?

vb.net

exe

local

active-directory

directoryentry