Tableau des logiciels installés

[invite687cb95f]

Bonjour,

J'utilise Windows 7.
Quand je vais sur "Panneau de configuration", "Programmes et fonctionnalités",
j'obtiens un tableau qui me donne la liste de tous les logiciels installés sur mon PC avec beaucoup de renseignements.
J 'aimerais enregistrer ce tableau sur un tableur genre Excel.
Apparemment Windows ne me le permet pas directement.
Connaissez vous une solution?

Merci pour vos renseignements.
Tournesoleil
-----

[kryok]

Sur un tableur excel je ne sais pas, par contre il existe un petit VBS de BillJames qui permet de lister tous les logiciels installés dans un txt il lit simplement les Uninstall Key du registre: le voici à copier/coller dans un fichier texte renommé logicielsinst.vbs et à lancer en administrateur:

Option Explicit

Dim sTitle
sTitle = "InstalledPrograms.vbs de Bill James"
Dim StrComputer
strComputer = InputBox("Entrer I.P. ou nom du PC à tester pour " & _
                       "voir les logiciels installés (laisser vide pour  " & _
                       "systéme local)." & vbcrlf & vbcrlf & "Remote " & _
                       "checking only from NT type OS to NT type OS " & _
                       "with same Admin level UID & PW", sTitle)
If IsEmpty(strComputer) Then WScript.Quit
strComputer = Trim(strComputer)
If strComputer = "" Then strComputer = "."

'Wscript.Echo GetAddRemove(strComputer)

Dim sCompName : sCompName = GetProbedID(StrComputer)

Dim sFileName
sFileName = sCompName & "_" & GetDTFileName() & "_Software.txt"

Dim s : s = GetAddRemove(strComputer)

If WriteFile(s, sFileName) Then
  'optional prompt for display
  If MsgBox("Test Fini.  Resultats sauvegardés dans " & sFileName & _
            vbcrlf & vbcrlf & "Voir les Résultats ?", _
            4 + 32, sTitle) = 6 Then
    WScript.CreateObject("WScript.Shell").Run sFileName, 9
  End If
End If

Function GetAddRemove(sComp)
  'Function credit to Torgeir Bakken
  Dim cnt, oReg, sBaseKey, iRC, aSubKeys
  Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
              sComp & "/root/default:StdRegProv")
  sBaseKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
  iRC = oReg.EnumKey(HKLM, sBaseKey, aSubKeys)

  Dim sKey, sValue, sTmp, sVersion, sDateValue, sYr, sMth, sDay

  For Each sKey In aSubKeys
    iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, "DisplayName", sValue)
    If iRC <> 0 Then
      oReg.GetStringValue HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
    End If
    If sValue <> "" Then
      iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _
                                "DisplayVersion", sVersion)
      If sVersion <> "" Then
        sValue = sValue & vbTab & "Ver: " & sVersion
      Else
        sValue = sValue & vbTab 
      End If
      iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _
                                "InstallDate", sDateValue)
      If sDateValue <> "" Then
        sYr =  Left(sDateValue, 4)
        sMth = Mid(sDateValue, 5, 2)
        sDay = Right(sDateValue, 2)
        'some Registry entries have improper date format
        On Error Resume Next 
        sDateValue = DateSerial(sYr, sMth, sDay)
        On Error GoTo 0
        If sdateValue <> "" Then
          sValue = sValue & vbTab & "Installed: " & sDateValue
        End If
      End If
      sTmp = sTmp & sValue & vbcrlf
    cnt = cnt + 1
    End If
  Next
  sTmp = BubbleSort(sTmp)
  GetAddRemove = "PROGRAMMES INSTALLES (" & cnt & ") - " & sCompName & _
                 " - " & Now() & vbcrlf & vbcrlf & sTmp 
End Function

Function BubbleSort(sTmp)
  'cheapo bubble sort
  Dim aTmp, i, j, temp
  aTmp = Split(sTmp, vbcrlf)  
  For i = UBound(aTmp) - 1 To 0 Step -1
    For j = 0 to i - 1
      If LCase(aTmp(j)) > LCase(aTmp(j+1)) Then
        temp = aTmp(j + 1)
        aTmp(j + 1) = aTmp(j)
        aTmp(j) = temp
      End if
    Next
  Next
  BubbleSort = Join(aTmp, vbcrlf)
End Function

Function GetProbedID(sComp)
  Dim objWMIService, colItems, objItem
  Set objWMIService = GetObject("winmgmts:\\" & sComp & "\root\cimv2")
  Set colItems = objWMIService.ExecQuery("Select SystemName from " & _
                                         "Win32_NetworkAdapter",,48)
  For Each objItem in colItems
    GetProbedID = objItem.SystemName
  Next
End Function

Function GetDTFileName()
  dim sNow, sMth, sDay, sYr, sHr, sMin, sSec
  sNow = Now
  sMth = Right("0" & Month(sNow), 2)
  sDay = Right("0" & Day(sNow), 2)
  sYr = Right("00" & Year(sNow), 4)
  sHr = Right("0" & Hour(sNow), 2)
  sMin = Right("0" & Minute(sNow), 2)
  sSec = Right("0" & Second(sNow), 2)
  GetDTFileName = sMth & sDay & sYr & "_" & sHr & sMin & sSec
End Function

Function WriteFile(sData, sFileName)
  Dim fso, OutFile, bWrite
  bWrite = True
  Set fso = CreateObject("Scripting.FileSystemObject")
  On Error Resume Next
  Set OutFile = fso.OpenTextFile(sFileName, 2, True)
  'Possibly need a prompt to close the file and one recursion attempt.
  If Err = 70 Then
    Wscript.Echo "Création de Fichier impossible  " & sFileName & ", résultats " & _
                 "non sauvegardés." & vbcrlf & vbcrlf & "Cause problable :le  " & _
                 "fichier est en cours d'utilisation."
    bWrite = False
  ElseIf Err Then
    WScript.Echo err & vbcrlf & err.description
    bWrite = False
  End If
  On Error GoTo 0
  If bWrite Then
    OutFile.WriteLine(sData)
    OutFile.Close
  End If
  Set fso = Nothing
  Set OutFile = Nothing
  WriteFile = bWrite
End Function

[invite687cb95f]

Merci kriok,

mais comment "créer un fichier texte" et ou ?
Et puis, comment "lancer en administrateur" ?

[kryok]

1/ clic droit sur le bureau>>"nouveau">>"document texte"

2/soit tu est déja connecté en administrateur, soit clic droit sur le vbs "lancer en administrateur",soit on te le propose quand tu clique (gauche) sur le vbs...

[A voir en vidéo sur Futura]

[invite687cb95f]

Bien kriok,
ça marche, mais il n'y a que des gros logiciel genre AMD, ATI, Microsoft qui apparaissent sur la liste.

J'aimerais y voir tous les logiciels installés pour détecter ceux qui sont inutiles ou nuisibles en fonctions des différentes données.
Merci

[invitea7c39420]

bonjour,

dans la plupart des logiciels "désinstalleur de programmes", parfois même dans ceux de type cleaner, il a moyen de copier (enregistrer) la liste en format txt

par ex. dans Ccleaner, outils, désinstallation des programmes, en bas clique sur enregistrer dans un fichier

[kryok]

J'aimerais y voir tous les logiciels installés pour détecter ceux qui sont inutiles ou nuisibles en fonctions des différentes données.
Merci

Plusieurs possibilités en te lisant, non exclusives :
-soit tu désires repérer/éliminer des softs parasites type crapwares/toolbars :
adwcleaner de xplode le réalise facilement:
http://general-changelog-team.fr/fr/...e/2-adwcleaner

-soit tu as installé des logiciels devenus inutiles et le fichier txt te permet de faire le tri;

-soit tu penses avoir un Pc infecté de manière plus sérieuse et il ne suffira pas de chercher dans la liste et dans ce cas >>direction forum désinfection...

[invite687cb95f]

Avec Ccleaner ça fonctionne, mais je n'ai que 5 colonnes de données:
Programmes
Editeur
Date d'installation
Taille
Version

Je voudrais en plus connaître l'emplacement ou a été installé le logiciel

[kryok]

On ne sait toujours pas ton but avec cette liste: que veux-tu exactement ? (cf: mon post précédent...)

sinon, les logiciels sont installés classiquement dans Program Files/Programs sous W7

[invite687cb95f]

Mon DD est partitionné.
La partition C: est réservé à Windows.
C'est sur la partition L: que j'installe les logiciels quand je peux choisir.
Certains logiciels qui sortent de je ne sais ou se sont installé sur C ( à mon insu ).
Mes données sont sur un autre DD.
Sinon, comme je le disais dans ma question d'origine, j 'aimerais enregistrer sur un tableur genre Excel la liste de tous les logiciels installés sur mon PC avec tous les renseignements qui sont donnés par le panneau de configuration, "Programmes et fonctionnalités".

[kryok]

Certains logiciels qui sortent de je ne sais ou se sont installé sur C

lesquels?

de toute façon, windows ne se laisse pas toujours forcer la main et certains s'installent automatiquement dans c:\ program files ,sauf bidouille complexe...

quand au fichier excel, il faudra le remplir "hand made" et surtout le mettre à jour en continu pour que cela ai un intéret (si intéret il y a...)

[JPL]

Un logiciel dont on a oublié l'existence est un logiciel qu'on ferait mieux de désinstaller (je dis ça mais j'en ai qui traînent sur mon disque dur )

[invite687cb95f]

A la fin du compte, comme je le disais dans ma question d'origine, j'aimerais enregistrer sur un tableur genre Excel la liste de tous les logiciels installés sur mon PC avec tous les renseignements qui sont donnés par le panneau de configuration, "Programmes et fonctionnalités".
C'est ça mon intérêt.
En ce qui concerne les logiciels dont on peut avoir oublié l'existence, tout cela dépend de ce que l'on veut faire avec l'ordinateur.

[invite687cb95f]

Pas d'autre solution?