Discussion :

[jeepi]

Bonjour,

Je commence tout juste à écrire des scripts en Perl pour automatiser des installations de logiciels.
Je vérifie les logiciels installés en listant les clées contenues dans:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

Le code ne marche que pour les clés ayant un nom d'application "en clair".
Les logiciels identifiés par leur clsid ne sont pas listés. Quelqu'un aurait une idée de contourner le problème ? J'imagine que ce sont les signes {} qui ne passent pas ...

(exemple : GanttProject <=> {06DD33C9-F258-4681-9269-FF0283D7C4EA} )

Voici mon extrait de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
# Open Registry keys:
use Win32::TieRegistry ( Delimiter=>"/", ArrayValues=>1 );
    $Registry->Delimiter("/");                  # Set delimiter to "/".
    $swKey= $Registry->{"LMachine/Software/"};
    $uninstallKey= $swKey->{"Microsoft/Windows/CurrentVersion/Uninstall/"};
# Scan Uninstall key
foreach $subKey ( $uninstallKey->SubKeyNames  ) {
    # Get value data:
    $valueString= $subKey->GetValue("DisplayName");
    print "Found registry key $UninstallKey->SubKeyNames = $valueString \n";

Merci d'avance !

Balises [ code ] et [ /code ] ajoutées par 2Eurocents.

[nematoad]

qu'est-ce qui ne marche pas exactement ? Je crois me rappeler avoir fait un truc comme ca dans le passe, mais je n'ai pas de machine windows sous la main a l'instant. En tout cas je ne vois pas pourquoi les accoladess viendraient compliquer la donne. Tu lances le programme depuis un compte admin ?

N

[jeepi]

nematoad,

Tu avais raison.
Les clés que je n'arrivais pas à lire n'étaient accessibles qu'en lecture.
Et ces clés (je ne pense pas que ce soit un coïncidence) ont des noms codés sous forme de clsid.
Je ne me suis pas méfié car je pensais ne faire que de la lecture, mais il fallait spécifier l'ouverture de la clé en lecture seule.
- Voici un exemple qui fonctionne sans avoir besoin des droits administrateurs pour ceux que cela interesse:

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
 
# Open Registry keys: 
use Win32::TieRegistry ( Delimiter=>"//", ArrayValues=>1 ); 
use Win32::TieRegistry qw(:KEY_);
    $LMKey= $Registry->Open( "LMachine", {Access=>KEY_READ(),Delimiter=>"//"} )
      or  die "Can't open HKEY_LOCAL_MACHINE key: $^E\n";
    $uninstallKey= $LMKey->{"Software//Microsoft//Windows//CurrentVersion//Uninstall"} or  die "Can't open Software/Microsoft/Windows/CurrentVersion/Uninstall key: $^E\n";
 
# Scan Uninstall subkeys 
foreach $subKey ( $uninstallKey->SubKeyNames  ) { 
    print "Application subkey is: \"$subKey\" \n"; 		
    $appKey= $uninstallKey->{$subKey} or print "\"$subKey\",\"ERROR: $^E\n";
    # Get value data:  
    $valueString= $appKey->GetValue("DisplayName"); 
    print "DisplayName for \"$subKey\" is \"$valueString\" \n";

Merci.

[nematoad]

voila une bonne nouvelle. Comme quoi on apprend tout les jours... je ne savais même pas qu'on pouvait ouvrir le registry en lecture seule.

En attendant, je crois que tu peux marquer ce thread comme étant résolu :)

N

[Nickname]

yop, comme j'ai un ti probleme sur le meme module je ne recreer pas de nouveau topic.Si y a besoin je le ferai

Enfait j'aimerai lancer un script perl a chaque demarrage de mon ordinateur.Par exemple un script qui efface ce que j'ai dans mon fichiers temporary internet files etc...

Petit probleme, je n'arrive vraiment pas a comprendre ce module, si quelqu'un pourrai m'aider, je vous en remercie.

Bonne journée a tous 8)

[nematoad]

bon ben, continuons la discussion ici, pas de problème..

Ce qui me tracasse pourtant, est que je suis incapable de trouver le lien entre le module Tie::Registry et l'envie de lancer un script au démarrage. Pourquoi, s'il s'agit de Windows, ne pas le mettre dans le dossier démarrage ?

A moins que tu ne veuilles le mettre dans la liste des taches a démarrer au moment de bouter Windows, qui se trouve dans je ne sais plus quelle clé.

Mais bon, expliques ton problème et après on verra :)

N

[Nickname]

justement le but c'est de ne rien toucher dans le fichier de demarrage et que le script perl ajoute de lui meme une clé pour pouvoir s'auto lancer.
Tu peux lancer comme ca pleins de petit programmes qui automatise des taches sur ton pc en un simple clic.Ou sinon imaginons un firewall ecris en perl et tu veux qu'il se lance automatiquement sans rien que tu ai besoin de faire.tu mets dans une sub l'ajout de la key.Faudra juste modifier le nom mais bon c'est pas le plus chiant.loool mais c'est vrai que c'est assez complexe de comprendre ce module et je n'arrive pas a trouver un site ou un script qui utilise bien ceci.