Liste des logiciels installés

Version imprimable

05/10/2004, 15h26
Civodul4

Liste des logiciels installés

Bonjour,

Je cherche à obtenir la liste des logiciel installés sur un poste sous windows ( si possible quel que soit la version ).

J'ai essayé par un script WMI mais je ne trouve que ceux installés par Windows Installer.

Merci par avance pour vos idées !
05/10/2004, 15h39
Higgins

Tu peux peut-être compléter ta liste avec les infos dans HKey_CURRENT_USER\SOftware\microsoft\windows\currentversion\uninstall
et
HKey_LOCAL_MACHINE\SOftware\microsoft\windows\currentversion\uninstall
05/10/2004, 16h07
Civodul4

Oui c'était aussi mon idée de départ, mais comme je n'ai pas trop le temps de me faire le script, je cherchais si un script Wmi ou autre " tout cuit " existait ! :wink:

Merci en tout cas !

Bon j'ai réccupéré les sous-clé qui correspondent aux logiciels installés :
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\Microsoft\Windows\CurrentVersion\Uninstall" oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath,_ arrValueNames, arrValueTypes For Each subkey In arrSubKeys wscript.echo subkey Next
Mais je n'arrive pas a accéder à la valeur "Displayname" pour avoir le nom du logiciel !

Bon je boucle:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
on error resume next
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set oReg=GetObject&#40;"winmgmts&#58;&#123;impersonationLevel=impersonate&#125;!\\" &_
strComputer & "\root\default&#58;StdRegProv"&#41;

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath,_
 arrValueNames, arrValueTypes


For Each subkey In arrSubKeys
    wscript.echo subkey
     strKeyPath2 = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" &  subkey
     strValueName = "DisplayName"
    oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath2,_
strValueName,strValue
        wscript.echo strKeyPath2
    wscript.echo strValue
Next

Voilou j'ai résolu mon problème !