Harkonnen Modérateur
Un modo pour les bannir tous | 1/ pas la peine de upper tant que le topic est encore visible
2/ pas la peine de capser
3/ tu peux utiliser Win32_Product, mais tu n'auras que la liste des programmes installés avec Windows Installer. Le mieux est d'énumérer la section Uninstall de la base de registre.
J'ai trouvé ce bout de code en VBScript sur le net :
Code :
- const HKLM = &H80000002
- strComputer = "."
- Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
- strComputer & "\root\default:StdRegProv" )
- strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
- objReg.EnumKey HKLM, strKeyPath, arrSubKeys
- For Each subkey In arrSubKeys
- ' If Left(subkey,1) = "{" Then 'this would only apply to some
- software,mostly managed. Remove this condition to enumerate everything
- there.
- 'Wscript.Echo subkey
- objReg.GetStringValue HKLM, strKeyPath & subkey,
- "DisplayName",strDisplayName
- objReg.GetStringValue HKLM, strKeyPath & subkey,
- "DisplayVersion",strDisplayVersion
- objReg.GetStringValue HKLM, strKeyPath & subkey, "Publisher", strPublisher
- If strDisplayName <> "" Then
- 'WScript.Echo strDisplayName & vbTab & strDisplayVersion & vbTab &
- strPublisher
- WScript.Echo strDisplayName & vbTab & strDisplayVersion
- End If
- Next
|
|
