Lire registre, variable ne se remet pas à zero
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:
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 :
Citation:
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 :
Citation:
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 :
Citation:
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.
