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