Bonjour,
 
 
Alors voilà, je dispose d'un fichier txt contenant sur chacune de ses lignes :  
- un login
- un mot de passe
- une description
 
Je souhaite ajouter ces utilisateurs sur mon domaine AD. J'ai fait le script suivant (généré à partir du txt) :  
Set oRoot   = GetObject("LDAP://rootDSE" )
Set oDomain = GetObject("LDAP://" &  oRoot.Get("defaultNamingContext" ))
 
Set oOU=oDomain.Create("organizationalUnit","ou=Internet" )
oOU.Put "Description", "Utilisateurs internet"
oOU.SetInfo
 
Set oUser = oOU.Create("User", "cn=5499998" )
oUser.Put "sAMAccountName", "5499998"
oUser.Put "Description", "Utilisateur test"
oUser.SetInfo
 
oUser.SetPassword "199998"
 
oUser.AccountDisabled = False
oUser.SetInfo
 
 
Set oUser = oOU.Create("User", "cn=54X99999" )
oUser.Put "sAMAccountName", "5499999"
oUser.Put "Description", "Utilisateur test"
oUser.SetInfo
 
oUser.SetPassword "in45h61fo"
 
oUser.AccountDisabled = False
oUser.SetInfo
 
Ca marche sans problème, si ce n'est qu'il est possible qu'un moment ou un autre les utilisateurs changent de mots de passe, à ce moment j'ai un fichier txt mis à jour, mais mon script ne fonctionne plus (normal les users existent déja). Comment mettre à jour les mots de passe sans passer par la création de users ?
 
Merciiii !!

Ca me semble pas mal ça non ?
 
http://www.computerperformance.co.uk/ezine/ezine11.htm
 
PS: http://www.google.fr/search?hl=fr& [...] word&meta=
 
C'était pas dur de trouver

 
Bah non !!
 
En fait, je sais déja :
- crée un user
- modifier un user
 
Ce que je souhaite faire c'est tester si le user existe :
- si c'est le cas, on modifie ses données avec celles données par le fichier texte
- si c'est pas le cas, on crée un nouveau user avec les données du fichier texte
 
Actuellement mon fichier vbs est comme ça :
Set oRoot   = GetObject("LDAP://rootDSE" )
Set oDomain = GetObject("LDAP://" &  oRoot.Get("defaultNamingContext" ))
Set objNetwork = CreateObject("Wscript.Network" )
 
 
Set oOU = GetObject("LDAP://ou=Internet, dc=domaine, dc=local" )
 
objNetwork = GetObject("LDAP://cn=5499998, ou=Internet, dc=domaine, dc=local" )
If objNetwork="" Then  
 Set oUser = oOU.create("User", "cn=5499998" )
 oUser.Put "sAMAccountName", "5499998"
 oUser.Put "Description", "Utilisateur crée"
 oUser.SetPassword "nouveau"
 oUser.AccountDisabled = False
 oUser.SetInfo
Else
 oUser.SetPassword "nouveau"
 oUser.Put "Description", "Utilisateur mis à jour"
 oUser.AccountDisabled = False
 oUser.SetInfo
 
End IF
 
Mais il me retourne une erreur au niveau du objnetwork = getobject si le user n'existe pas    
Que faire ?
 
Merci !!

On Error Resume Next
objnetwork = getobject  
If Err <> 0 Then
  MsgBox("S'pice di counasse" )
End If
On Error Goto 0