知道怎么增加一个用户吗？在windows中，要用.net代码实现

[iwebsms]

知道怎么增加一个用户吗？在windows中，要用.net代码实现

[aycn]

Private Sub AddUser(ByVal strDoamin As String, ByVal strLogin As String, ByVal strPwd As String)
Dim obDirEnTry As System.DirectoryServices.DirectoryEntry = Nothing
Try
obDirEnTry = New System.DirectoryServices.DirectoryEntry("WinNT://" + strDoamin)
Dim entries As System.DirectoryServices.DirectoryEntries = obDirEnTry.Children
Dim obUser As System.DirectoryServices.DirectoryEntry = entries.Add(strLogin, "User")
obUser.Properties("FullName").Add("Amigo")
Dim obRet As Object = obUser.Invoke("SetPassword", strPwd)
obUser.CommitChanges()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub


记得要在解决方案资源管理器添加 System.DirectoryServices 的引用.
调用例子：
AddUser("YourComputerName", "TestUser", "TestUser")