Discussion :

[olivierm67]

Bonjour à tous,

Je me permets de demander votre aide pour un script qui parcours ma base de registre.

Ce script fonctionne en .vbs, mais je n'arrive pas à l'intégrer dans mon HTA, j'obtiens une erreur :

Objet requis : Wscript

Voici le script en question :

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
		Const HKEY_LOCAL_MACHINE = &H80000002
 
 
		strComputer = "."
 
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
		    strComputer & "\root\default:StdRegProv")
 
		strKeyPath = "SOFTWARE\Logiciel\"
 
		oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, _
		    arrValueNames, arrValueTypes
 
		For i=0 To UBound(arrValueNames)
		    Wscript.Echo "Value Name: " & arrValueNames(i)  
		Next

C'est la ligne 14 qui pose problème, avec le UBound.

Pourriez-vous m'aider ?

Je vous remercie.

[omen999]

bonjour,

C'est la ligne 14 qui pose problème, avec le UBound.

je dirais plutôt la ligne 15...
l'objet root WScript n'est pas disponible en dehors de l'environnement WSH
utilise à la place la fonction MsgBox

[l_autodidacte]

Un peu plus ...

La clé Logiciel est peut-être inexistante dans le registre; et même si elle y est, elle ne contient aucune valeur !!! d'où le message d'erreur.

Essaie avec ce

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const HKEY_LOCAL_MACHINE = &H80000002
 
strComputer = "."
 
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")
	strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\" ' ou bien "SOFTWARE\Macromedia\FlashPlayer\"
	oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, arrValueNames, arrValueTypes
	If not IsNull(arrValueNames) then 
	   For i=0 To UBound(arrValueNames)
	      S =S & "Value Name: " & arrValueNames(i)  & vbcrlf
	   Next
        End If
   Msgbox S

EDIT : Quelqu'un m'a devancé et répondu au moment où je rédigeais ma réponse .... n'empêche que cela peut être utile !!!!

[olivierm67]

C'est très utile l'autodidacte, merci !

Excusez-moi mais j'ai encore une question à vous poser..

Comment peut-on rajouter la récupération du contenu de la valeur des différentes chaînes contenues dans

SOFTWARE\Logiciel\

?

Existe-t-il un argument que l'on peut rajouter à cette ligne ?

Code :

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

S =S & "Value Name: " & arrValueNames(i)  & vbCrLf

J'ai en effet, à l'intérieur de cette clef de registre, différentes chaînes qui correspondent à différentes étapes, et qui contiennent la valeur "oui" ou "non".
J'ai essayé avec cette fonction, mais ça ne fonctionne pas, et cela me semble compliqué.

Code :

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

reponse = WshShell.RegRead ("HKLM\Software\Logiciel\" &etape)

(où étape correspond au nom de la chaîne, que j'ai réussi à récupérer grâce à vos aides précédentes.)

Je vous remercie encore pour votre aide

[l_autodidacte]

Voici comment récupérer les données des valeurs en question :

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
Const HKEY_LOCAL_MACHINE = &H80000002
 
strComputer = "."
    Set WshShell = CreateObject("Wscript.Shell")
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")
	strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\" ' ou bien "SOFTWARE\Macromedia\FlashPlayer\"
	oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, arrValueNames, arrValueTypes
	If not IsNull(arrValueNames) then 
	   For i=0 To UBound(arrValueNames)
	     ' S =S & "Value Name: " & arrValueNames(i)  & vbcrlf
		  Reponse = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\" & arrValueNames(i))
		  If arrValueNames(i) <> "" Then MsgBox arrValueNames(i) & " => " & Reponse
	   Next
    End If
	'MsgBox S

[olivierm67]

Merci beaucoup pour ton aide.


Je pense rajouter quelque chose de ce genre pour écrire les résultats en fichier texte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\temp\W7.log", ForAppend,true)
 
etape = arrValueNames(i)
Reponse = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\" & arrValueNames(i))
 
f.writeLine("/****************/")
f.WriteLine(etape)
f.WriteLine(reponse)
f.writeLine("")

Merci encore,
Cordialement.

[Cachlab]

Salut Olivierm67 !

Effectivement, tel que tu l'as posté, ton code fonctionne ...
A part peut-être la gestion de l'absence de clé correspondante ...

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
Const HKEY_LOCAL_MACHINE = &H80000002
 
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Logiciel\"
oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, arrValueNames, arrValueTypes
 
If Not IsArray( arrValueNames ) Then
arrValueNames = Array( "" )
arrValueTypes = Array( REG_SZ )
End If
 
For i= 0 To UBound(arrValueNames)
Wscript.Echo "Value Name: " & arrValueNames(i)  
Next

Pourrais-tu poster le code HTA plutôt ? Ce serait plus facile pour t'aider !

EDIT : (Post simultané) Ah oui, bien vu Omen, c'est sûrement ça !

[olivierm67]

Bonjour omen999 et Cachlab,
Merci pour vos réponses !

Effectivement, c'est bien

Wscript.echo

qui pose problème

Je l'ai remplacé par une affectation de variable.
Il me reste ensuite à écrire dans un fichier texte le contenu de chaque clef de registre avec son nom.

Merci pour la gestion d'erreurs.
Je posterai la fonction ici une fois finie