非常容易的问题！！！

如何通过程序（VB.net)向服务器中的活动目录下添加用户?  
  问题点数：100、回复次数：5Top

1 楼net_lover（【孟子E章】）回复于 2004-09-01 16:05:38 得分 100

Public   Function   AddUser(ByVal   domain   As   String,   ByVal   loginName   As   String,   ByVal   pwd   As   String,   ByVal   username   As   String,   ByVal   group   As   String)  
                          Dim   int1,   int2   As   Integer  
                          Dim   FirstName,   LastName,   MI   As   String  
                          int1   =   username.IndexOf("   ")  
                          int2   =   username.LastIndexOf("   ")  
                          If   Not   int2   =   int1   Then  
                                  FirstName   =   username.Substring(0,   int1)  
                                  MI   =   username.Substring(int1   +   1,   1)  
                                  LastName   =   username.Substring(int2   +   1)  
                          Else  
                                  FirstName   =   username.Substring(0,   int1)  
                                  LastName   =   username.Substring(int1   +   1)  
                          End   If  
                          Dim   DE   As   DirectoryEntry   =   New   DirectoryEntry(_path,   domain   &   "\"   &   loginName,   pwd)  
                          Dim   OU   As   DirectoryEntry   =   DE.Children.Find("CN=USERS")  
                          Dim   NewUser   As   DirectoryEntry   =   OU.Children.Add("CN="   &   username,   "User")  
                          NewUser.Properties("sAMAccountName").Value   =   username  
                          NewUser.Properties("userPrincipalName").Add(username   &   "@NLM.LAN")  
                          NewUser.Properties("GivenName").Add(FirstName)  
                          If   Not   MI   =   Nothing   Then  
                                  NewUser.Properties("initials").Add(MI)  
                          End   If  
                          NewUser.Properties("sn").Add(LastName)  
                          NewUser.Properties("displayName").Add(username)  
                          NewUser.Properties("description").Add(group)  
                          NewUser.CommitChanges()  
                          NewUser.Invoke("SetPassword",   "temp")  
                          Dim   grp   As   DirectoryEntry   =   OU.Children.Find("CN="   &   group)  
                          If   grp.Name   <>   ""   Then  
                                  grp.Invoke("Add",   NewUser.Path.ToString())  
                          End   If  
   
   
                          Dim   userACFlags   As   Object   =   NewUser.Properties("userAccountControl").Value  
                          NewUser.Properties("userAccountControl").Value   =   userACFlags   Xor   &H2  
                          NewUser.Properties("PwdLastSet").Value   =   0  
                          NewUser.CommitChanges()  
                          Console.WriteLine("Account   Created   Successfully")  
                  End   FunctionTop

2 楼net_lover（【孟子E章】）回复于 2004-09-01 16:07:35 得分 0

http://www.codeproject.com/dotnet/addnewuser.aspTop

3 楼net_lover（【孟子E章】）回复于 2004-09-01 16:08:43 得分 0

http://support.microsoft.com/default.aspx?scid=kb;EN-US;306271  
   
  How   To   Add   a   User   to   the   Local   System   by   Using   Directory   Services   and   Visual   Basic   .NETTop

4 楼kevingucool（无虑）回复于 2004-09-01 16:49:52 得分 0

谢谢了！我再研究一下！Top

5 楼zhushizu（从来就没有救世祖）回复于 2004-09-01 17:51:32 得分 0

不知道，帮你顶一下把。友情UP.............楼主加油了!Top

相关问题

• newuser
• directoryentry
• username
• lastname
• substring
• firstname
• byval
• dim
• properties
• add

• 帖主：kevingucool
• net_lover

• CSDN .NET频道
• .NET类图书
• C#类图书
• .NET类源码下载