Discussion :

[phberanger]

Bonjour,

Après recherche, je cale sur un test:

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 HKLM = &H80000002
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
   ".\root\default:StdRegProv")
sUninstallPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKLM, sUninstallPath, aSubkeys,

For Each sSubkey In aSubkeys
	oReg.GetStringValue HKLM, sUninstallPath & "\" & sSubkey, "DisplayName", sAppName

'mon soucis: comment tester la présence de DisplayVersion , car elle n'existe pas toujours...

	oReg.GetStringValue HKLM, sUninstallPath & "\" & sSubkey, "DisplayVersion", sVersion

WScript.Echo sAppName & sVersion

Next

Merci pour vos avis eclairés
Philippe

[ced600]

http://msdn2.microsoft.com/en-us/library/aa390387.aspx -> pour énumérer les sous clés.

Sur la même page a gauche juste en dessous il y a la même chose mais pour les valeurs.

C'est l'aide MSDN pour StdRegProv

[phberanger]

Merci, j'y vais de suite...