[VBS] Lister les applications installées

Version imprimable

29/04/2010, 20h32
Benj.

[VBS] Lister les applications installées

Bonsoir,

je souhaite lister les logiciels installés sur un poste avec un script en VBS. La liste sera ensuite sauvegardée au format CSV.

Je fais appel à WMI pour obtenir la liste des informations dont j'ai besoin (à savoir "Select * from Win32_Product") mais certaines applications ne sont pas dans la liste (Winrar, Fireworks, etc).

Lorsque je vais dans "Ajouter/supprimer des programmes" du panneau de configuration, toutes les applications sont bien listées (Winrar et autres citées plus haut).

Ce ne sont aucunement des versions portables, elles ont toutes été installées avec un setup régulier.

J'ai fait le tour (rapide) des possibilités dans WMI et j'avoue sécher. Une idée peut-être ?

Merci d'avance pour votre aide.

Voici le ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Set oShell = CreateObject("wscript.Shell")
Set env = oShell.environment("Process")
strComputer = env.Item("Computername")
Const HKEY_LOCAL_MACHINE = &H80000002
Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
".\root\default:StdRegProv")
oReg.EnumKey HKEY_LOCAL_MACHINE, UnInstPath, arrSubKeys
software = "*******************************" & Now & "****************************" & vbCrLf
software = software & "*******************************Logiciels installés********************************" & vbCrLf
For Each subkey In arrSubKeys
        'MsgBox subkey
        If Left (subkey, 1) <> "{" Then
                software = software & subkey & vbCrLf
        End If
Next
software = software & "*********************************************************" & vbCrLf
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
'Détermine si le fichier csv existe déjà ou s'il doit le créer
If Not fso.FileExists("inventaire " & strComputer & ".csv") Then
        set ts = fso.CreateTextFile("inventaire " & strComputer & ".csv", True)
Else
        set ts = fso.OpenTextFile("inventaire " & strComputer & ".csv", 2, True)
End If
 
ts.write software

30/04/2010, 20h54
Benj.

Edit : en fait ça marche effectivement comme il faut.

Si ça peut aider, j'ai trouvé la version plus ou moins similaire en Powershell :

Code:

Get-ChildItem HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall | foreach {gp $_.pspath DisplayName -ea 0} | format-list DisplayName, PSCHildName

Merci pour ton aide :P

Dommage qu'on ne puisse pas avoir (simplement en tout cas) cette même liste avec WMI mais je m'en accommoderai :)