Dim dom As DirectoryEntry = New DirectoryEntry("LDAP://vpcdomain.local", "vpcdomain\administrator", "control" ) Dim ouToAddTo As DirectoryEntry = dom.Children.Find("OU=OurUsers" )
Dim newUser As DirectoryEntry = ouToAddTo.Children.Add("CN=TESTUSER", "User" )
Marsh Posté le 29-04-2004 à 11:38:16
Salut, j'ai un problème lorsque je crée un nouveau user
Je programme en VB.NET et voici ce que je fais :
(Ce code provient de http://www.experts-exchange.com/Pr [...] 7595.html)
Dim dom As DirectoryEntry = New DirectoryEntry("LDAP://vpcdomain.local", "vpcdomain\administrator", "control" )
Dim ouToAddTo As DirectoryEntry = dom.Children.Find("OU=OurUsers" )
Dim newUser As DirectoryEntry = ouToAddTo.Children.Add("CN=TESTUSER", "User" )
newUser.Properties("sAMAccountName" ).Value = "TESTUSER"
newUser.Properties("userPrincipalName" ).Add("TESTUSER@vpcdomain.local" )
newUser.Properties("mail" ).Value = "testuser@vpcdomain.local"
newUser.Properties("givenName" ).Add("FIRSTNAME_TEST" )
newUser.Properties("initials" ).Add("TU" )
newUser.Properties("sn" ).Add("LASTNAME_USER" )
newUser.Properties("displayName" ).Add("TEST USER" )
newUser.Properties("description" ).Add("TEST USER ADDED FROM ASP.NET" )
newUser.Properties("userPassword" ).Add("Passw0rd" )
newUser.CommitChanges() <-- Là ça plante.Ca me dit que l'utilisateur à déjà ete crée or je ne le vois pas dans l'AD
Please help