Discussion :

[kenji_lol]

Bonjour à tous,

C'est ma premiere je suis ému

Je me lance dans le VBS (Admin System oblige), et j'ai trouvé un script pour changer le mot de passe Admion local de chaque PC qui se trouve dans une OU spécial de mon Active Directory.

Set objOU = GetObject("LDAP://OU=OU-PC, DC=MonDomaine, DC=fr")
objOU.Filter = Array("Computer")

For Each objItem in objOU
strComputer = objItem.CN
Set objUser = GetObject("WinNT://" & StrComputer & "/Administrateur")
objUser.SetPassword("NeMDPAdmin")
Next

Ca fonctionne super bien, sauf que si j'ai un PC qui est éteind il me renvoie :
Erreur : Le chemin reseau n'a pas été trouvé"
Code : 80070035
Source : (null)

J'aimerai qu'il me renvoie la liste des pc ou cela n'a pas été appliqué à la rigueur et continuer sa tache ce serait le meilleur des mondes

Avez vous une idée.
Merci

[Danyel]

Enrobe ta function par un TryCatch ou avec une gestion de Timeout.

[kenji_lol]

Enrobe ta function par un TryCatch ou avec une gestion de Timeout.

Euh..Oui oki j'ai essayer mais ne voit pas trop comment utiliser cette en fait.
Pourrais tu m'aiguiller là dessus

Moi j'ai fais ca pour essayer :

Imports System.IO

Set objOU = GetObject("LDAP://OU=OU-PC, DC=Domaine, DC=fr")
objOU.Filter = Array("Computer")

Try
For Each objItem in objOU
strComputer = objItem.CN
Set objUser = GetObject("WinNT://" & StrComputer & "/Administrateur")
objUser.SetPassword("NewMDPAdmin")
Next

Catch

Wscript.Echo objItem.CN
EndTry

J'ai vu sur un site qu'il fallait Imports Sy...
Mais avec ou sans ca marche pas.

Merci de ton aide

[Danyel]

Le tout est de savoir si le trycatch va etre pris en compte pour le timeout.
Sinon, c'est ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set objOU = GetObject("LDAP://OU=OU-PC, DC=Domaine, DC=fr")
objOU.Filter = Array("Computer")
 
For Each objItem in objOU
     Try
           'ici on lance le test
           strComputer = objItem.CN
           Set objUser = GetObject("WinNT://" & StrComputer & "/Administrateur")
           objUser.SetPassword("NewMDPAdmin")
Catch
           'ici si erreur
EndTry
 
Next

Pas sur que le timeout soit pris en compte ... essaye