[HTA] Parcourir base de registre - UBound

Version imprimable

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 :

Citation:

Objet requis : Wscript

Voici le script en question :
Code:

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.

04/09/2012, 14h18
omen999

bonjour,

Citation:

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

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:

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 ! :mrgreen:

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

04/09/2012, 14h29
olivierm67

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

Effectivement, c'est bien

Citation:

Wscript.echo

qui pose problème :ccool:

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 ;)

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:

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 !!!!

05/09/2012, 10h04
olivierm67

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

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

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

Citation:

SOFTWARE\Logiciel\

?

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

Code:

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:

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 :merci:

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

Code:

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

Merci beaucoup pour ton aide.
:ccool:

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

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.

De cette façon, tu auras la valeur sur une ligne et sa donnée sur une autre.
Une autre approche serait la suivante avec en plus la date et l'heure de l'exécution du script :

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
Const HKEY_LOCAL_MACHINE = &H80000002
Const ForAppending = 8
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)
		  Reponse = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\" & arrValueNames(i))
		  If arrValueNames(i) <> "" Then 
		     ' MsgBox arrValueNames(i) & " => " & Reponse
			  S =S & "HKLM\SOFTWARE\Microsoft\Internet Explorer\" & arrValueNames(i)  & " => " & Reponse & vbcrlf
		  End If	  
	   Next
    End If
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile("C:\Temp\W7.log", ForAppending,true)
	f.writeLine("/****************/")
	f.Write Now() & VbCrLf & S & VbCrLf
	f.Close
	' Nettoyage
	Set f = Nothing : Set fso = Nothing : Set WshShell = Nothing