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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu][AD/2000] Changer les mots de passe de plusieurs comptes

Wolfman

Modérateur
Lobo'tomizado

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

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 ), 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

Message édité par Wolfman le 23-06-2006 à 11:42:53

Publicité

ShonGail

En phase de calmitude ...

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

:hello:

Wolfman

Modérateur
Lobo'tomizado

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

Wolfman

Modérateur
Lobo'tomizado

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

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

Modérateur
Lobo'tomizado

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

sidewinder

Tu veux bien partager ton script avec nous ?

Sidewinder

Wolfman

Modérateur
Lobo'tomizado

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 )

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.

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"

@++

moi95800

ou se trouvent les mots de passe dans active directory?

FORUM HardWare.fr

Windows & Software

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

Sujets relatifs
[SBS 2000 / SBS 2003] Comparatif	[Résolu] Problème avec HP Open View Network Node
changer de HDD et l'utiliser sur un autre PC (XP PRO)	Serveur introuvable... (Livebox Wifi) que faire? ~ Résolu ~
[résolu] plus que le compte "invité" à l'ouverture de session	[résolu] fenetre pub
Changer d'onglet sous Firefox avec la molette horizontale?	plusieurs pb sous windows
Quel groupe pour changer l'ip - 2003	Résolu - Récupération de fichiers
Plus de sujets relatifs à : [Résolu][AD/2000] Changer les mots de passe de plusieurs comptes

Page générée en 0.041 secondes