Discussion :

[snorky94]

Bonjour,

j'ai un problème de noob mais je n'arrive pas à trouver

j'ai un script vbs qui va lire une liste de machines dans un fichier texte.

Pour chaque machine je vais lire une clé dans le registre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
'Constantes
On Error Resume Next
Const ForReading = 1
Const HKEY_LOCAL_MACHINE = &H80000002
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("LISTE.txt", ForReading)
 
'Lecture du fichier juqu'a la fin, si erreur passer au suivant
Do Until objTextFile.AtEndOfStream
		strComputerName = objTextFile.Readline
 
		Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputerName & "\root\default:StdRegProv")
 
		strKeyPath = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"
		strValueName = "Identifier"
 
		objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 
		If IsNull(strValue) Then
			Wscript.echo strComputerName & " valeur de la clé: La valeur est nulle ou ne peut pas être trouvé"
		Else
			Wscript.echo strComputerName & " valeur de la clé: ", strValue
		End If	
Loop

Dans mon fichier texte j'ai :

MONPC
TOTO
MONPC
TOTO
MONPC
TOTO

Cette clé existe sur MONPC.
La machine TOTO n'existe pas.

Cependant à l’exécution du script il me ressort :

MONPC : valeur de la clé: x86 Family 6 Model 15 Stepping 2
TOTO : valeur de la clé: x86 Family 6 Model 15 Stepping 2
MONPC : valeur de la clé: x86 Family 6 Model 15 Stepping 2
TOTO : valeur de la clé: x86 Family 6 Model 15 Stepping 2
MONPC : valeur de la clé: x86 Family 6 Model 15 Stepping 2
TOTO : valeur de la clé: x86 Family 6 Model 15 Stepping 2

Comment faire pour qu'a chaque fin de boucle ma valeur strValue soit à zéro.

Et que ca me sorte :

MONPC : valeur de la clé: x86 Family 6 Model 15 Stepping 2
TOTO : valeur de la clé: La valeur est nulle ou ne peut pas être trouvée
MONPC : valeur de la clé: x86 Family 6 Model 15 Stepping 2
TOTO : valeur de la clé: La valeur est nulle ou ne peut pas être trouvée
MONPC : valeur de la clé: x86 Family 6 Model 15 Stepping 2
TOTO : valeur de la clé: La valeur est nulle ou ne peut pas être trouvée

Merci d'avance.

[snorky94]

bon je suis vraiment c*****

Avec err.number c'est beaucoup mieux ....

Code :

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

1
2
3
4
5
6
7
8
 
			If err.number = 0 Then
			Wscript.echo strComputerName & " : valeur de la clé: ", strValue
			Err.Clear
			Else
			Wscript.echo strComputerName & " : valeur de la clé: La valeur est nulle ou ne peut pas être trouvé"
			Err.Clear
			End If