先谢谢各位的帮忙,如果有一点代码的帮忙就更好了 下面是我定的vb.net代码 Public Function AddUser(ByVal uname As String, ByVal upwd As String) As Integer Dim Username, UserPass Dim oDomain, oUser Username = uname UserPass = upwd oDomain = GetObject("WinNT://salesman") oUser = oDomain.Create("user", Username) If (Err.Number = 0) Then oUser.SetInfo() oUser.SetPassword(UserPass) oUser.SetInfo() oUser = Nothing oDomain = Nothing Return 1 Else Return 0 End If End Function请楼上的帮帮忙转成C#吧
.NET Data Sevice Centren
你把VB.net代码帖出来我给你翻译
下面是我定的vb.net代码
Public Function AddUser(ByVal uname As String, ByVal upwd As String) As Integer Dim Username, UserPass
Dim oDomain, oUser
Username = uname
UserPass = upwd
oDomain = GetObject("WinNT://salesman")
oUser = oDomain.Create("user", Username)
If (Err.Number = 0) Then
oUser.SetInfo()
oUser.SetPassword(UserPass)
oUser.SetInfo()
oUser = Nothing
oDomain = Nothing
Return 1
Else
Return 0
End If End Function请楼上的帮帮忙转成C#吧
如果有更好的办法,请大家不防提出来啦
http://www.c-sharpcorner.com/UploadFile/jodonnell/AddContactsToAD07022005010718AM/AddContactsToAD.aspx?ArticleID=223a905c-94e0-4266-a20f-75a0619807f2
http://www.microsoft.com/china/technet/default.mspx我写了一个创建域用户的脚本 参数就是用户名、初始密码和第一次登录后是否要修改密码程序中调用用户列表能实现批量创建