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

Posted 2023-02-16

【中文标题】如何使用 VB.NET 将组添加到本地管理员组？

【英文标题】：How to add a group to local administrators group using VB.NET?

【发布时间】：2018-06-20 15:17:53

【问题描述】：

我正在尝试编写一个程序，使用 VB.NET 将名为 grp1 的组添加到本地管理员组。我已经尝试过这篇文章中提到的方法：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 上找到了很多关于如何将用户添加到本地管理员组的文章，但是我应该怎么做才能添加一个组呢？

提前致谢。

【问题讨论】：

您的错误描述“它对我不起作用”不是很有帮助。您收到任何错误消息吗？您是否通过代码进行调试以检查是否发生了您的 try-catch 可能会吞下的任何错误？

@Capricorn 它停在“AdminGrp.Invoke("Add", grp1)" 行并给出错误。我试图将 grp1.path 和 grp1.path.tostring 放在那里，但它们都不起作用

【参考方案1】：

Nvm 我自己找到了解决方案。下面的代码运行良好。

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