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

我正在尝试编写一个程序，使用VB.NET将名为

grp1

的组添加到本地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上找到了很多关于如何将用户添加到本地管理员组的文章，但是我应该如何将用户添加到本地管理员组呢

---

提前感谢。

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

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

---

您的错误描述“它对我不起作用”没有多大帮助。您是否收到任何错误消息？您是否对代码进行了调试，以检查是否出现了try-catch可能会吞下的任何错误？@Capricorn它在“AdminGrp.Invoke（“Add”，grp1）”行停止并给出错误。我试着把grp1.path和grp1.path.tostring放在那里，但没有一个起作用