Liste des prg installés

[Cousinhub]

Bonjour,

Tout d'abord, quelques news de Kanakie.....(tout va bien....)

Puis :

Dans le panneau de config de Windows, on peut voir tous les programmes installés, via "Ajout/Suppression de Programme...."

Cette liste de prg installés ne tient pas en compte tous les ".....exe" qu'on peut avoir sur un PC, mais uniquement les "programmes installés", ainsi que les "mises à jour", en cochant la case qui va bien....

Et donc, la question :

"Est-il possible de récupérer tous les prg installés, sans prendre en compte les mises à jour, via un code VBA?"

Liste à copier, of course, in one sheet....

Merci, bien évidemment...

PS, dans quelques jours, quelques photos.....

 

[gwenlorin]

Re : Liste des prg installés

Salut bhbh,

une première piste ci-dessous, issue de scipt MS
Par contre je crois que ca ne sort que les prog installés à partir d'un .msi.
Je regarde si on peut faire mieux.

Sub liste_pgr()
Dim i As Integer

Application.ScreenUpdating = False
Application.StatusBar = "Recherche en cours ..."

Set objFSO = CreateObject("Scripting.FileSystemObject")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery("Select * from Win32_Product")

libelles = Array("Caption", "Description", "Identifying Number", "Install Date", "Install Location" _
    , "Install State", "Name", "Package Cache", "SKU Number", "Vendor", "Version")
For i = 0 To UBound(libelles)
    ThisWorkbook.ActiveSheet.Cells(1, i + 1) = libelles(i)
Next i

For Each objSoftware In colSoftware
    i = ActiveSheet.Cells(65536, 1).End(xlUp).Row
    
    ThisWorkbook.ActiveSheet.Cells(i + 1, 1) = objSoftware.Caption
    ThisWorkbook.ActiveSheet.Cells(i + 1, 2) = objSoftware.Description
    ThisWorkbook.ActiveSheet.Cells(i + 1, 3) = objSoftware.IdentifyingNumber
    ThisWorkbook.ActiveSheet.Cells(i + 1, 4) = objSoftware.InstallDate2
    ThisWorkbook.ActiveSheet.Cells(i + 1, 5) = objSoftware.InstallLocation
    ThisWorkbook.ActiveSheet.Cells(i + 1, 6) = objSoftware.InstallState
    ThisWorkbook.ActiveSheet.Cells(i + 1, 7) = objSoftware.Name
    ThisWorkbook.ActiveSheet.Cells(i + 1, 8) = objSoftware.PackageCache
    ThisWorkbook.ActiveSheet.Cells(i + 1, 9) = objSoftware.SKUNumber
    ThisWorkbook.ActiveSheet.Cells(i + 1, 10) = objSoftware.Vendor
    ThisWorkbook.ActiveSheet.Cells(i + 1, 11) = objSoftware.Version
Next

Application.StatusBar = ""
Application.ScreenUpdating = True
End Sub

 

[mutzik]

Re : Liste des prg installés

Bonjour bhbh,

en fenetre de commande, c'est:
c:\ [entrée]
dir *.exe /S [entrée]
pour l'avoir dans un fichier :
dir *.exe /S >ListeEXE.txt [entrée]
si tu fais un fichier batch dos, tu peux l'executer en VBA par shell (je crois)

 

[Cousinhub]

Re : Liste des prg installés

Re-,

@ gwenlorin :

Superbe, ton code, mais comme tu le précises, uniquement les programmes issus d'un .msi....

Un jeu installé n'apparait pas....😱

@ Mutzig, Effectivement, ton script répertorie tous les "*.exe" du lecteur C...
Cependant, ils ne sont pas tous forcément installés....

Merci pour vos contributions

PS, ici, début de l'été.....😛😛

 

[Guest]

Re : Liste des prg installés

Bonjour Le fil,

Je ne pouvais passer par ici sans saluer mon ami BH².😀😀😀

A+

Vive le caillou!

 

[gwenlorin]

Re : Liste des prg installés

Re,

je retente ma chance.

Cette fois-ci j'ai travaillé sur la base de registre et la clé "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" qui est censé contenir la liste que l'on retrouve via "Ajout/Suppression de Programme...."

En rendu j'ai conservé les clés qui ont un nom qui ne contient pas les termes "correctif " et "mise à jour" pour coller au mieux à ta demande. A modifier au besoin.

La liste des informations retournée peut être plus importante que ce que j'ai mis. Il suffit d'explorer la base de registre pour trouver son bonheur 🙂

dans le fichier joint, 2 modules :
- 1 pour la macro
- l'autre pour les fonctions liées à la base de registre

Pour ces dernières merci au site de Frédéric sigonneau (j'adore ce site) et aux auteurs

a+

 

[tototiti2008]

Re : Liste des prg installés

Bonjour à tous,

une page web que j'avais mise en mémoire parce que ça risquait de me servir à l'avenir :

List installed programs (VBScript) lewisroberts.com

au cas où ça puisse aider.... 😉

 

[Cousinhub]

Re : Liste des prg installés

Bonsoir,

@ Gwenlorin : Magnifique, ton programme fonctionne à merveille... C'est fou tout ce qu'on peut installer sur un PC...
Merci beaucoup

@ Mutzik, merci également pour ta participation

@ tototiti2008 : Merci également, mais je ne connais rien en VBScript, et donc je ne sais pas trop comment l'utiliser

@ Hasco : Le bonjour également de ce "magnifique caillou", comme tu l'appelles si bien. Le séjour se passe très bien, on commence à avoir de plus en plus chaud, et le tsunami d'hier nous a quand même fait arriver une vague de 20 cm sur les côtes....(on s'en sort bien, malgré tout...). J'en profite pour passer le bonjour à tout le monde.

A+