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

Question

我正在尝试编写一个程序，使用VB.NET将名为grp1的组添加到本地管理员组。 我已经尝试了本文中提到的方法： 将组添加到本地管理员 ，但是这对我不起作用。 以下是我到目前为止的内容：

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})