Discussion :

[stefanelle]

Bonjour à tous,

je reviens vers vous avec le script qui modifie le mot de passe d'un compte celui là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set WshNet = CreateObject("Wscript.Network" ) 
computername = WshNet.ComputerName 
set objUser= GetObject("WinNT://" & computername & "/Administrateur,user") 
objUser.SetPassword "mdp" 
objUser.SetInfo

par contre je voudrais que si le compte administrateur n'existe pas le script ne fasse rien et sorte proprement

j'avais pensé à cela mais ca ne amrche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set WshNet = CreateObject("Wscript.Network" ) 
computername = WshNet.ComputerName 
set objUser= GetObject("WinNT://" & computername & "/Administrateur,user") 
if objuser = Administrateur then objUser.SetPassword "mdp" 
objUser.SetInfo

[pitchalov]

Bonjour,

Si le compte Administrateur n'existe pas, la ligne suivante te renverra une erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set objUser= GetObject("WinNT://" & computername & "/Administrateur,user")

La ligne te renverra toujours "Administrateur" si l'utilisateur existe, vu que c'est lui tu appelle dans ton "GetObject".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if objuser.Name = Administrateur then objUser.SetPassword "mdp"

Donc plusieurs solutions (comme d'hab) :
- La plus simple (et la plus sale) : tu teste l'erreur après la récupération de l'objet utilisateur. Si il y a une erreur, on peut penser que l'utilisateur n'existe pas (ou que c'est une autre erreur...) bref :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
On Error Resume Next
Set WshNet = CreateObject("Wscript.Network" ) 
computername = WshNet.ComputerName 
set objUser= GetObject("WinNT://" & computername & "/Administrateur,user") 
If Err.Number <> 0 Then
  Wscript.Echo "Erreur n° " & Err.Number & vbCrLf & Err.Description
  Err.Clear
Else
  objUser.SetPassword "mdp" 
  objUser.SetInfo
End If

- Une autre solution serait de lister tous les utilisateurs locaux de ta machine, et de vérifier que l'utilisateur "Administrateur" en fait partie avant de créer ton objet utilisateur. Cela t'éviterait d'appeler un utilisateur qui n'existe pas, ce qui génère des erreurs.

A toi de voir.

[stefanelle]

Merci pour cette réponse,

vu que je suis mauvais en VB j'ai essayé de faire l'équivalent en batch mais ca ne marche pas je vais voir dans les deux directions

Merci