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

时间:2018-06-20 15:17:54

标签: vb.net active-directory exe local directoryentry

我正在尝试编写一个程序,该程序使用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上发现了许多有关如何将用户添加到本地管理员组的文章,但是我应该怎么做才能向其中添加组?

谢谢。

1 个答案:

答案 0 :(得分:0)

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

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