Recherche un WMI qui affiche les applications de Windows !

Recherche un WMI qui affiche les applications de Windows ! - Divers - Programmation

Marsh Posté le 10-03-2004 à 14:39:30    

Comme le dit le sujet, je recherche le WMI qui permet d'afficher les applications installées sous Windows !
 
MERCI !
 :hello:

Reply

Marsh Posté le 10-03-2004 à 14:39:30   

Reply

Marsh Posté le 10-03-2004 à 15:25:40    

UP PLEASE

Reply

Marsh Posté le 10-03-2004 à 15:29:45    

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 :
  1. const HKLM = &H80000002
  3. strComputer = "."
  5. Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
  6. strComputer & "\root\default:StdRegProv" )
  8. strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
  9. objReg.EnumKey HKLM, strKeyPath, arrSubKeys
  11. For Each subkey In arrSubKeys
  12. ' If Left(subkey,1) = "{" Then 'this would only apply to some
  13. software,mostly managed.  Remove this condition to enumerate everything
  14. there.
  15.   'Wscript.Echo subkey
  16.   objReg.GetStringValue HKLM, strKeyPath & subkey,
  17. "DisplayName",strDisplayName
  18.   objReg.GetStringValue HKLM, strKeyPath & subkey,
  19. "DisplayVersion",strDisplayVersion
  20.   objReg.GetStringValue HKLM, strKeyPath & subkey, "Publisher", strPublisher
  21.   If  strDisplayName <> "" Then
  22.   'WScript.Echo strDisplayName & vbTab & strDisplayVersion & vbTab &
  23. strPublisher
  24.   WScript.Echo strDisplayName & vbTab & strDisplayVersion
  25. End If
  26. Next

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed