[VBS] Ajout d'utilisateurs à un domaine AD
Ajout d'utilisateurs à un domaine AD [VBS] - VB/VBA/VBS - Programmation
Sujets relatifs:
- Ajout d'un son dans un document flash
- ajout d'un champ dynamique interface graphique
- [Résolu] Lancer un raccourci en VBS
- VBS et XML et SQL !
- VBS Prob d'éxécution
- moteur de recherche de nom de domaine
- [INF] ajout d'un champ dans un fichier ini
- sorte de javadoc pour VBS
- VBS connaitre la date de modification d'un fichier
- [VBS] Delete de fichiers dans répertoires et sous répertoires
Marsh Posté le 03-03-2005 à 12:05:21
Bonjour,
J'utilise ce script pour ajouter des users à mon domaine Active Directory :
Set oRoot = GetObject("LDAP://rootDSE" )
Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext" ))
Set oOU = GetObject("LDAP://ou=Internet, dc=MONDOMAINE, dc=local" )
Set oUser = oOU.create("User","cn=user1" )
oUser.Put "sAMAccountName", "user1"
oUser.SetInfo
oUser.SetPassword "password1"
oUser.Put "Description", "user1"
oUser.AccountDisabled = False
oUser.SetInfo
Ca marche parfaitement si ce n'est que j'ai l'impression que par cette méthode, le mot de passe finit par expirer...
Savez vous comment modifier ce script pour donner un temps d'expiration infini au mot de passe ?
Merci !!