[Win32::TieRegistry] Récupérer : DefaultIcon & command

**dmganges** · 17/02/2013, 18h07

Bonjour,
En vue de récupérer les icônes et les commandes des programmes dans la base de registre, j'utilise Win32::TieRegistry

Je n'obtiens ces informations qu'une fois sur deux... et encore !

Exemple de registres similaires :

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
27
28
29
30
31
32
33
34
[HKEY_CLASSES_ROOT]
	|
	+--mailto-------------------(par défaut)--------REG_SZ---------Thunderbird URL
	|    |                  |
	|    |                  +---EditFlags-----------REG_WORD-------2
	|    |                  |
	|    |                  +---FriendlyTypeName----REG_SZ---------Thunderbird URL
	|    |                  |
	|    |                  +---URL Protocol--------REG_SZ
	|    |
	|    +---DefaultIcon--------(par défaut)--------REG_SZ---------C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe,0
	|    |
	|    +---shell--------------(par défaut)--------REG_SZ---------(Valeur non définie)
	|         |
	|         +---open----------(par défaut)--------REG_SZ---------(Valeur non définie)
	|             |
	|             +---command---(par défaut)--------REG_SZ---------"C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" -osint -compose "%1"
	|
	=
	|
	+--migfile-------------------(par défaut)-------REG_SZ---------Migration Store
	|    |                  |
	|    |                  +---FriendlyTypeName----REG_EXPAND_SZ--@%systemroot%\system32\migwiz\wet.dll,-726RL
	|    |
	|    +---DefaultIcon--------(par défaut)--------REG_SZ---------%systemroot%\system32\migwiz\migwiz.exe,0
	|    |
	|    +---shell--------------(par défaut)--------REG_SZ---------(Valeur non définie)
	|         |
	|         +---open----------(par défaut)--------REG_SZ---------(Valeur non définie)
	|             |
	|             +---command---(par défaut)--------REG_SZ---------"C:\Windows\System32\migwiz\migwiz.exe" /Restore "%1"
	|
	|
	=

Mon programme, en fait 2 extraits :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
 
    sub win32_reg_read {
     my $sub_key = shift;
     my $value = shift;
 
     print "PRINT  $sub_key    $value\n\n";
 
     use Win32::TieRegistry ( Delimiter => '/' );
 
     my $HKEY_CLASSES_ROOT  = Win32::TieRegistry->new("HKEY_CLASSES_ROOT");
     if ($HKEY_CLASSES_ROOT) {
     	 print "OK HKEY  $HKEY_CLASSES_ROOT\n";
     	 #my $skey = $HKEY_CLASSES_ROOT->Open("mailto", { 'Delimiter' => '/' });
 
       my $skey = $HKEY_CLASSES_ROOT->Open($sub_key, { 'Delimiter' => '/' });
       if ($skey) {
       	print "OK SUBKEY $sub_key\n";
         my %key_values = $skey->GetValue($value);
         foreach (sort keys %key_values) {
         		print "EACH $_\n";
            print $_, "\n"; # a toi d'adapter ton code à ce que tu avais dans ta boucle
         }
       }
     }
    }
 
 
    # DefaultIcon & command
    print "\n\nNOT OK :\n"; 
    win32_reg_read("migfile/DefaultIcon","" );					# NOT OK
    print "\n\nNOT OK :\n";
    win32_reg_read("migfile","DefaultIcon" );						# NOT OK
    print "\n\nNOT OK :\n";
    win32_reg_read("migfile/shell/open/command","" );		# NOT OK
 
    print "\n\nOK :\n";
    win32_reg_read("mailto/DefaultIcon","" );						# OK
    print "\n\nOK :\n";
    win32_reg_read("mailto/shell/open/command","" );		# OK
    # -> renvoie Windows Standard
 
print "##################################################################\n";
print "\n\nAutre pgm :\n\n";
 
print "\n\nOK :\n";
my %RegHash;
use Win32::TieRegistry( TiedHash => \%RegHash );
use Data::Dumper;
my $Key = $RegHash{"HKEY_CLASSES_ROOT\\mailto"};
print Dumper $Key->SubKeyNames;
 
print "\n\nNOT OK :\n";
$Key = $RegHash{"HKEY_CLASSES_ROOT\\migfile"};
print Dumper $Key->SubKeyNames;

Et enfin les résultats sur la console :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
C:\DevPerl\Registre>perl regedit.pl
 
 
NOT OK :
PRINT  migfile/DefaultIcon
 
OK HKEY  Win32::TieRegistry=HASH(0x354eedc)
 
 
NOT OK :
PRINT  migfile    DefaultIcon
 
OK HKEY  Win32::TieRegistry=HASH(0x354dd2c)
 
 
NOT OK :
PRINT  migfile/shell/open/command
 
OK HKEY  Win32::TieRegistry=HASH(0x354ef4c)
 
 
OK :
PRINT  mailto/DefaultIcon
 
OK HKEY  Win32::TieRegistry=HASH(0x354dc8c)
OK SUBKEY mailto/DefaultIcon
EACH C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe,0
C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe,0
 
 
OK :
PRINT  mailto/shell/open/command
 
OK HKEY  Win32::TieRegistry=HASH(0x354ef3c)
OK SUBKEY mailto/shell/open/command
EACH "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" -osint -compos
e "%1"
"C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" -osint -compose "%1
"
##################################################################
Autre pgm :
 
 
OK :
$VAR1 = 'DefaultIcon';
$VAR2 = 'shell';
 
 
NOT OK :
Can't call method "SubKeyNames" on an undefined value at regedit.pl line 58.
 
C:\DevPerl\Registre>

C'est ma première expérience de manipulation du registre en perl...
MERCI d'avance pour vos suggestions !

**dmganges** · 19/02/2013, 05h51

Bonjour,

Résolu en partie seulement !
Pour pouvoir accéder en lecture à [HKEY_CLASSES_ROOT] , je n'ai pas vérifié les autres... il faut supprimer totalement les contrôles d'accès à la machine au niveau des paramètres de sécurité de l'utilisateur (Registre_1.jpg).

Bizarre avec sécurité maximum et intermédiaires, j'accède uniquement à la SubKey mailto :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
C:\DevPerl\Registre>perl extensions.pl
 
Ruche HKEY_CLASSES_ROOT   = Win32::TieRegistry=HASH(0x18dfbc)
=======================================
SubKey = .mcl
Impossible d'ouvrir Win32::TieRegistry=HASH(0x18dfbc) avec SubKey = .mcl
=======================================
SubKey = ANO.ano
Impossible d'ouvrir Win32::TieRegistry=HASH(0x18dfbc) avec SubKey = ANO.ano
=======================================
SubKey = MAIL.mail
Impossible d'ouvrir Win32::TieRegistry=HASH(0x18dfbc) avec SubKey = MAIL.mail
=======================================
SubKey = ManyCam.Effect
Impossible d'ouvrir Win32::TieRegistry=HASH(0x18dfbc) avec SubKey = ManyCam.Effect
=======================================
SubKey = RealPlay.exe
Impossible d'ouvrir Win32::TieRegistry=HASH(0x18dfbc) avec SubKey = RealPlay.exe
=======================================
SubKey = anifile
Impossible d'ouvrir Win32::TieRegistry=HASH(0x18dfbc) avec SubKey = anifile
=======================================
SubKey = batfile
Impossible d'ouvrir Win32::TieRegistry=HASH(0x18dfbc) avec SubKey = batfile
=======================================
SubKey = brmFile
Impossible d'ouvrir Win32::TieRegistry=HASH(0x18dfbc) avec SubKey = brmFile
=======================================
SubKey = mailto
Win32::TieRegistry=HASH(0x18dfbc) OUVERTE !
        Chemin de recherhe = Win32::TieRegistry=HASH(0x34af024)
 
CLEF    1.                        GetValue =      Thunderbird URL
CLEF    2.            EditFlags   GetValue =           0x00000002
CLEF    3.     FriendlyTypeName   GetValue =      Thunderbird URL
 
CLEF    4.           mailto/DefaultIcon  GetValue = C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe,0
 
CLEF    5.    mailto/shell/open/command  GetValue = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" -osint -compose "%1"
 
=======================================
SubKey = migfile
Impossible d'ouvrir Win32::TieRegistry=HASH(0x18dfbc) avec SubKey = migfile
=======================================
SubKey = wmplayer.exe
Impossible d'ouvrir Win32::TieRegistry=HASH(0x18dfbc) avec SubKey = wmplayer.exe
 
C:\DevPerl\Registre>

Avec sécurité minimum, j'accède à TOUT :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
C:\DevPerl\Registre>perl extensions.pl
 
Ruche HKEY_CLASSES_ROOT   = Win32::TieRegistry=HASH(0x2c0dfbc)
 
 
=======================================
SubKey = .mcl
Win32::TieRegistry=HASH(0x2c0dfbc) OUVERTE !
        Chemin de recherhe = Win32::TieRegistry=HASH(0x343f024)
 
CLEF    1.                        GetValue =      MediaCenter.MCL
 
CLEF    2.             .mcl/DefaultIcon  GetValue = %SystemRoot%\eHome\ehdrop.dll,-205
Impossible d'ouvrir Win32::TieRegistry=HASH(0x2c0dfbc) avec SubSubKey = .mcl/shell/open/command
 
COMMENTAIRE : NORMAL /shell/ n'existe pas
 
=======================================
SubKey = ANO.ano
Win32::TieRegistry=HASH(0x2c0dfbc) OUVERTE !
        Chemin de recherhe = Win32::TieRegistry=HASH(0x34325cc)
 
 
CLEF    1.          ANO.ano/DefaultIcon  GetValue =     C:\Mail\Warn.ico
Impossible d'ouvrir Win32::TieRegistry=HASH(0x2c0dfbc) avec SubSubKey = ANO.ano/shell/open/command
 
COMMENTAIRE : NORMAL /shell/ n'existe pas
 
=======================================
SubKey = MAIL.mail
Win32::TieRegistry=HASH(0x2c0dfbc) OUVERTE !
        Chemin de recherhe = Win32::TieRegistry=HASH(0x343ee3c)
 
CLEF    1.                        GetValue =            Perso DUF
 
CLEF    2.        MAIL.mail/DefaultIcon  GetValue =     C:\Mail\Mail.ico
Impossible d'ouvrir Win32::TieRegistry=HASH(0x2c0dfbc) avec SubSubKey = MAIL.mail/shell/open/command
 
COMMENTAIRE : NORMAL /shell/ n'existe pas
 
=======================================
SubKey = ManyCam.Effect
Win32::TieRegistry=HASH(0x2c0dfbc) OUVERTE !
        Chemin de recherhe = Win32::TieRegistry=HASH(0x343e97c)
 
 
CLEF    1.   ManyCam.Effect/DefaultIcon  GetValue = C:\Program Files (x86)\ManyCam\Bin\effect.ico, 0
 
CLEF    2. ManyCam.Effect/shell/open/command  GetValue = "C:\Program Files (x86)\ManyCam\Bin\ManyCam.exe" /effect "%1"
 
 
COMMENTAIRE : OK
 
=======================================
SubKey = RealPlay.exe
Impossible d'ouvrir Win32::TieRegistry=HASH(0x2c0dfbc) avec SubKey = RealPlay.exe
 
COMMENTAIRE : NORMAL RealPlay.exe n'existe pas à ce niveau
 
=======================================
SubKey = anifile
Win32::TieRegistry=HASH(0x2c0dfbc) OUVERTE !
        Chemin de recherhe = Win32::TieRegistry=HASH(0x343f054)
 
CLEF    1.                        GetValue =      Animated Cursor
CLEF    2.     FriendlyTypeName   GetValue = @%SystemRoot%\system32\main.cpl,-2000
 
CLEF    3.          anifile/DefaultIcon  GetValue =                   %1
Impossible d'ouvrir Win32::TieRegistry=HASH(0x2c0dfbc) avec SubSubKey = anifile/shell/open/command
 
COMMENTAIRE : NORMAL /shell/ n'existe pas
 
=======================================
SubKey = batfile
Win32::TieRegistry=HASH(0x2c0dfbc) OUVERTE !
        Chemin de recherhe = Win32::TieRegistry=HASH(0x343258c)
 
CLEF    1.                        GetValue =   Windows Batch File
CLEF    2.            EditFlags   GetValue =                 0?
CLEF    3.     FriendlyTypeName   GetValue = @%SystemRoot%\System32\acppage.dll,-6002
 
CLEF    4.          batfile/DefaultIcon  GetValue = %SystemRoot%\System32\imageres.dll,-68
 
CLEF    5.   batfile/shell/open/command  GetValue =              "%1" %*
 
 
COMMENTAIRE : OK
 
=======================================
SubKey = brmFile
Win32::TieRegistry=HASH(0x2c0dfbc) OUVERTE !
        Chemin de recherhe = Win32::TieRegistry=HASH(0x2c0d9cc)
 
CLEF    1.                        GetValue = Printer Migration File
CLEF    2.     FriendlyTypeName   GetValue = @%SystemRoot%\System32\printbrmui.exe,-10
 
CLEF    3.          brmFile/DefaultIcon  GetValue = %SystemRoot%\System32\printbrmui.exe,-104
Impossible d'ouvrir Win32::TieRegistry=HASH(0x2c0dfbc) avec SubSubKey = brmFile/shell/open/command
 
COMMENTAIRE : NORMAL /open/ n'existe pas, mais /Open/ existe !
 
=======================================
SubKey = mailto
Win32::TieRegistry=HASH(0x2c0dfbc) OUVERTE !
        Chemin de recherhe = Win32::TieRegistry=HASH(0x343eecc)
 
CLEF    1.                        GetValue =      Thunderbird URL
CLEF    2.            EditFlags   GetValue =           0x00000002
CLEF    3.     FriendlyTypeName   GetValue =      Thunderbird URL
 
CLEF    4.           mailto/DefaultIcon  GetValue = C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe,0
 
CLEF    5.    mailto/shell/open/command  GetValue = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" -osint -compose "%1"
 
 
COMMENTAIRE : OK
 
=======================================
SubKey = migfile
Win32::TieRegistry=HASH(0x2c0dfbc) OUVERTE !
        Chemin de recherhe = Win32::TieRegistry=HASH(0x3445d04)
 
CLEF    1.                        GetValue =      Migration Store
CLEF    2.     FriendlyTypeName   GetValue = @%systemroot%\system32\migwiz\wet.dll,-726
 
CLEF    3.          migfile/DefaultIcon  GetValue = %systemroot%\system32\migwiz\migwiz.exe,0
 
CLEF    4.   migfile/shell/open/command  GetValue = "C:\Windows\System32\migwiz\migwiz.exe" /Restore "%1"
 
 
COMMENTAIRE : OK
 
=======================================
SubKey = wmplayer.exe
Impossible d'ouvrir Win32::TieRegistry=HASH(0x2c0dfbc) avec SubKey = wmplayer.exe
 
COMMENTAIRE : NORMAL wmplayer.exe n'existe pas à ce niveau
 
C:\DevPerl\Registre>

Ce qui bien sûr le n'arrange pas le parano que je suis !

Je laisse quelque temps en "Non résolu" au cas où quelqu'un aurait une illumination

MERCI d'avance !

[Edit 06:07]
Je précise que je lance le programme depuis un compte "Administrateur", ET le même que celui qui à installé Thunderbird !

[Edit 06:40]
Résolu ! Il suffit de lancer dans une console avec les droits "Administrateur".

MERCI

**djibril** · 19/02/2013, 09h30

Bonjour,

Quand tu lances le programme sous une console DOS lancée en mode admin, as-tu encore besoin de baisser toutes les sécurités ?

**dmganges** · 19/02/2013, 09h53

Slt !
Non, je suis toujours en sécurité maximum au niveau "Paramètres de contrôle de compte utilisateur".

Pour lancer il faut :
- soit lancer l'ouverture d'une console DOS depuis le menu "Démarrer" avec "Exécuter en tant qu'administrateur",
- soit ce que j'ai fait : un raccourci de la console DOS sur le bureau, avec pour paramètres :
--> Cible ==============> C:\Perl\bin\perl.exe C:\devperl\registre\extensions.pl
--> Démarrer dans =======> C:\DevPerl\Registre
--> Onglet Compatibilité
----> Niveau de privilège ==> coche "Exécuter ce programme en tant qu'administrateur"

**djibril** · 19/02/2013, 10h14

Es-tu intéressé pour en faire une QR pour la FAQ Perl de la rubrique ?

**dmganges** · 19/02/2013, 10h30

Dès l'instant où ça peut servir OUI, bien sûr !
Le pb est que je ne sais pas comment m'y prendre

**djibril** · 19/02/2013, 10h42

Tout se passe ici. Tu proposes et on en discute.

**magicshark** · 19/02/2013, 11h01

En voilà une bonne discussion ça résous mon problème d'icone au passage merci

**dmganges** · 19/02/2013, 11h09

@magicshark,
Ben c'est toi qui m'a donné le virus !
Je crois qu'on peut aller plus loin en extrayant les icônes des .dll
Je creuserai quand j'aurai un peu de temps...

@djibril,
OK, je prépare une [Q/R] d'ici la fin de la semaine.

**magicshark** · 19/02/2013, 11h12

effectivement si on pouvait ça serait encore plus fort mais après je me demande si ça fait pas un peu beaucoup de contrainte pour l'utilisateur de l'appli devoir la lancer en admin a chaque fois afin de seulement pouvoir avoir les icônes ... quand je parcoure mes fichiers sur mon pc il me demande pas de le faire en admin

etant donner que c'est devenu une future evo de mon appli je pence que je vais essayer de me replonger là dedans (j'ai peur de ne pas trouver d'autre solution )

**dmganges** · 19/02/2013, 12h57

Oui ! comme je l'ai souvent écrit, je fais çà pour occuper mon neurone...

quand je parcours mes fichiers sur mon pc il me demande pas de le faire en admin

Oui, mais là on parcourt le registre... ce n'est pas rien, bon seulement en lecture, pour le coup Bill est plus parano que moi

D'où la nécessité impérieuse, le cas échéant, de bétonner les droits d'accès à ce source perl, car le premier venu pourrait bien y insérer un : system ("Format c:\");

Pour la suite pas avant le mois prochain, mais c'est possible en VBA : http://www.developpez.net/forums/d99...e/#post5572583
Il suffit de trouver les bons paramètres d'entrée de l'API (quelques uns probablement dans le lien précédent) et d'utiliser http://search.cpan.org/~bulkdd/Win32-API-0.75/API.pm
Attention rien de certain, juste au pif !
@+

**djibril** · 08/05/2013, 13h27

Un article a été rédigé pour la base de registre : http://www.developpez.net/forums/d13...ndows-en-perl/.

[Win32::TieRegistry] Récupérer : DefaultIcon & command

Modules Perl

Discussions similaires

Partager

Partager