Discussion :

[roadmender]

Bonjour,
J'ai un script du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sPCName = WScript.CreateObject("WScript.Shell").RegRead ("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName") 
 
set objWMIService = GetObject("WinNT://" & PCName & "/Administrateur") 
objWMIService.SetInfo 
 
objWMIService.setPassword(PWD) 
 
if err = 0 then 
WScript.Echo "Mot de Passe changé avec succès!" 
WScript.Quit 
else 
Err.Clear 
end if

afin de modifier le compte Admin d'une de mes machines locales... jusque la tout va bien... Tout se complique quand j'essai de récupérer les éventuelles erreurs Win32 et non WMI remonter par la requête dans un fichier texte... Comment dois-je m'y prendre s'il vous plait ?
Pas besoin de dire que je débute ça parait sans doute évident...
Merci de votre aide.

[roadmender]

Aucune idée vraiment ?
Help Me Please !!!!!!!!!!!!!!!!!!!!!!!!!!

[pitchalov]

Salut.

Je ne sais pas comment récupérer les erreurs WMI spécifiquement, mais typiquement si ça ne marche pas tu auras une erreur dans ton VBS.

Après, ton test d'erreur ne doit pas marcher, car err est un objet et tu ne peux pas le comparer à un nombre. Tu peux aussi appeler d'autres propriétés de l'objet Err, comme par exemple description, pour avoir plus d'info.
Test à réaliser :

Code :

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

1
2
3
4
5
6
7
if err.number = 0 then 
  WScript.Echo "Mot de Passe changé avec succès!" 
  WScript.Quit 
else 
  WScript.Echo "Erreur " & err.number & " --> " & err.description
  Err.Clear 
end if

Après, si tu veux écrire une ligne de retour dans un fichier texte, c'est facile à partir du moment ou tu auras pris le temps de lire la partie dédiée à l'écriture des fichiers textes dans la FAQ VBScript
Bonne continuation.

[roadmender]

merci je vais proceder comme ca