Howto Create Active Directory Account

[Martijn]

Hello,

For those who are interested in creating Account in Active Directory here is
some code I used.

ublic Function create_user(ByV al firstname As String, ByVal lastname As
String, _
ByVal Address As String, ByVal pwd As String)
Try
Dim MyRoot As DirectoryServic es.DirectoryEnt ry
Dim MyUser As DirectoryServic es.DirectoryEnt ry
Dim MySearcher As DirectorySearch er
Dim MyResult As SearchResult
Dim Loginname As String
Dim x As Integer

x = 1
Loginname = Replace(lastnam e, " ", "")
MyRoot = New
DirectoryServic es.DirectoryEnt ry("LDAP://ASDVM01.milkywa y.com",
"milkyway\admin istrator", "knowledge" )
'create search option(looks if the user already exist)
MySearcher = New DirectorySearch er(MyRoot)
MySearcher.Filt er = "(userPrincipal Name=" & Loginname & ")"
MyResult = MySearcher.Find One()

Do While Not MyResult Is Nothing
If x <= Len(firstname) Then
Loginname = Replace(lastnam e, " ", "") & "-" &
Left(firstname, x)

Else
Loginname = Replace(lastnam e, " ", "") & "-" & firstname
& CStr(x - Len(firstname))
MsgBox(Loginnam e)
End If
MySearcher.Filt er = "(userPrincipal Name=" & Loginname & ")"
MyResult = MySearcher.Find One()
x = x + 1
Loop
'add user properties to the new user
MyUser = MyRoot.Children .Add("CN=" & Loginname, "user")
MyUser.Properti es("GivenName") .Add(firstname)
MyUser.Properti es("sn").Add(la stname)
MyUser.Properti es("DisplayName ").Add(firstnam e & " " & lastname)
MyUser.Properti es("name").Add( Loginname)
MyUser.Properti es("sAMAccountN ame").Add(Login name)
MyUser.Properti es("userPrincip alName").Add(Lo ginname &
"@milkyway.com" )
MyUser.Properti es("streetaddre ss").Add(Addres s)
MyUser.Properti es("mail").Add( firstname & "." &
Replace(lastnam e, " ", "") & "@milkyway.com" )
MyUser.CommitCh anges()

MyUser.NativeOb ject.AccountDis abled = False
MyUser.CommitCh anges()
MyUser.Invoke(" SetPassword", pwd)
MyUser.CommitCh anges()

Catch ex As Exception
MsgBox(ex.Messa ge)
End Try
End Function

this code checks if the user already exist if so it will create an new
account with lastname + fist char of the firstname.

Hopefully this code will help someone

Have fun!!!
Martijn