[Résolu][AD/2000] Changer les mots de passe de plusieurs comptes

Recherche :

Dernière réponse
Sujet : [Résolu][AD/2000] Changer les mots de passe de plusieurs comptes
moi95800	ou se trouvent les mots de passe dans active directory?

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

moi95800

ou se trouvent les mots de passe dans active directory?

arnaud1206

Salut,
Tu peux toujours faire une boucle for avec cela:

Set objUser = GetObject("LDAP://cn=Nom User,ou=Nom OU,dc=Nom domaine,dc=com" )
objUser.ChangePassword "Ancien Pass", "New Pass"

@++

Wolfman

C'est un peu un faux script... :whistle:
(NB: je fais de l'administration système et réseau, mais je suis une grosse brelle en terme de scripts :D )

J'ai simplement utilisé la commande dsmod (http://www.computerperformance.co.uk/Logon/DSadd_DSmod_DSrm.htm) , avec une ligne de commande par utilisateur. J'ai utilisé Excel et la fonction "concatener" pour générer rapidement les lignes de commande.

sidewinder

Tu veux bien partager ton script avec nous ?

Sidewinder

Wolfman

Finalement j'ai réussi à faire ma soupe grâce à la commande DSMOD de Win2003. Un petit fichier batch bien fait avec Excel, et zou ;)

cyberlau

Peut en regardant du coté des script vb en utilisant ADO par exemple en ouvrant un recordset sur "ADSDSOObject".

en quelques lignes cela pourrait être fait (c'est une supposition), j'avais chopé çà comme exemple sur le net (voir ici.

Code :

Dim X as IADs
Dim con As New Connection, rs As New Recordset
Dim MyUser As IADsUser
con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider", "CN=Test,CN=Users,DC=Fabrikam,DC=COM,O=INTERNET", "Password"
Set rs = con.Execute("<LDAP://MyMachine/DC=MyDomain,DC=Fabrikam,DC=com>;(objectClass=User);ADsPath;onelevel" )
While Not rs.EOF
' Bind to the object to make changes
' to it because ADO is currently read-only.
MyUser = GetObject(rs.Fields(0).Value)
MyUser.AccountDisabled = True
MyUser.SetInfo
rs.MoveNext
Wend

Doit bien y avoir le flag pour reset les mdp dans l'objet IADsUser ?

Wolfman

Bon, j'ai regardé Tools4Ever, et ça a l'air d'être un truc assez puissant. Et comme je n'ai pas trop de temps à m'y attarder, et que je veux éviter les bourdes, je vais passer...

Donc si quelqu'un a une meilleure solution ;)

Wolfman

Merci ;)
Je vais essayer le Tools4Ever. Les autres semblent plutôt être pour les comptes locaux des machines.
Si quelqu'un d'autre à une idée, foncez :D

ShonGail

http://forum.hardware.fr/hardwaref [...] 2288-1.htm

:hello:

Wolfman

Je suis sûr que quelqu'un a ce que je cherche sous le coude :D

J'ai un domaine AD sous Win2000. Il s'agit d'une plateforme de formation, sur laquelle j'ai notamment un ensemble de 60 utilisateurs, qui ont été créés il y a quelques semaines avec l'outil ADDUSERS.

Aujourd'hui, ils doivent réutiliser leurs comptes, et tous les mots de passe doivent être réinitialisés car ils ont expirés.
Etant d'un naturel femmard (si si çai vrai :D ), je me vois mal réinitialiser les comptes un par un.

Avez-vous un outil ou un script qui me permettrait de changer les mots de passe de tous ces utilisateurs d'un seul coup ? (en partant d'un fichier texte contenant les logins et les nouveaux mots de passe).

Thanks :)