Réinitialiser mot de passe OU active directory par script

Version imprimable

15/10/2008, 12h42
alex_m94

Réinitialiser mot de passe OU active directory par script

Bonjour je suis sous win server 2003 et j'ai un domaine qui s'appelle c-XXXX.Y.org avec comme OU EUROPE à l'interieur de EUROPE il y a France et dans FRANCE il y a Paris. Donc comme ceci

OU = EUROPE
OU = France
OU = Paris

J'aimerai bien par un script reinitialiser les mot de passe (azerty) de tout les utilisateurs de l'OU Paris (qui se trouve donc dans France et EUROPE).

J'ai fais un script.bat mais il ne marche pas j'obtiens des messages d'erreur du genre dsmod à échoué aucune valeur specifié pour pwd

@echo off
cls
echo.

SET /P nom=Paris
echo %nom%
SET /P mdp=azerty

dsquery user -scope onelevel -s dc -limit 0 "ou=%nom%,ou=France,ou=EUROPE,dc=c-XXXX,dc=Y,dc=org" | dsmod user -s dc -pwd %mdp%

SET nom=
SET mdp=
pause

Avez une idée pour me mettre sur la voie ?
15/10/2008, 13h16
Invité

Et ça, ça t'aide ?
16/10/2008, 08h41
alex_m94

Non pas trop je comprends pas. Une explication SVP ?
16/10/2008, 12h46
Invité

Bah c'est un Vbscript pour réinitialiser les mots de passe de comptes utilisateurs sur AD.
17/10/2008, 14h22
alex_m94

Bon en fait j'ai trouvé d'où venait mon problème. Quand je tape sur cmd un tiret - il le prend bien mais par contre quand je tape dans un fichier .bat un tiret par exemple -pwd il me marque ùpwd.

En fait c'est le tiret qui n'est pas reconnu.

Une idée sinon tant pi ce n'est pas dramatique ?

salut

Code:

1
2
3
4
5

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

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17


Liste des utilisateurs 
' J.C.BELLAMY © 2000 
'----------------------------------------------------------
Dim network, computer, SAM, Item 
Set network = Wscript.CreateObject("WScript.Network") 
computer=network.ComputerName 
wscript.echo "#Liste des utilisateurs et groupes de " & computer 
set SAM=GetObject("WinNT://" & computer & ",computer") 
for each Item in SAM 
   Classe=Item.Class 
   If Classe = "User" then 
      wscript.echo Classe & chr(9) & Item.name 
      End if 
   next

les script sont pas de moi je l ai est deja utilser c 'est tout

mais avec un while eof je pense que ca peu passer .

télécharge vbs factory pout les test ou script automatique

a+