Liste des programmes installes

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 408 fois - Téléchargée 17 fois

Contenu du snippet

ce script montre comment lister les programmes installés sur le PC dans un fichier TXT . code simple !!

Source / Exemple :


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("software.txt", True)

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

objTextFile.WriteLine "Caption" & vbtab & _
    "Description" & vbtab & "Identifying Number" & vbtab & _
    "Install Date" & vbtab & "Install Location" & vbtab & _
    "Install State" & vbtab & "Name" & vbtab & _ 
    "Package Cache" & vbtab & "SKU Number" & vbtab & "Vendor" & vbtab _
        & "Version" 

For Each objSoftware in colSoftware
    objTextFile.WriteLine objSoftware.Caption & vbtab & _
    objSoftware.Description & vbtab & _
    objSoftware.IdentifyingNumber & vbtab & _
    objSoftware.InstallDate2 & vbtab & _
    objSoftware.InstallLocation & vbtab & _
    objSoftware.InstallState & vbtab & _
    objSoftware.Name & vbtab & _
    objSoftware.PackageCache & vbtab & _
    objSoftware.SKUNumber & vbtab & _
    objSoftware.Vendor & vbtab & _
    objSoftware.Version
Next
objTextFile.Close

A voir également

Ajouter un commentaire

Commentaires

aserf
Messages postés
117
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
1 juillet 2011
-
Bonjour,

Pour ce type de script il vaut mieux utiliser le "scriptomatic" de microsoft. On y trouve tout les script WMI, y compris un exemple de la meme problematique.
http://www.microsoft.com/downloads/en/confirmation.aspx?FamilyID=09dfc342-648b-4119-b7eb-783b0f7d1178

Cordialement
Sébastien
Bogibus
Messages postés
13
Date d'inscription
vendredi 22 décembre 2000
Statut
Membre
Dernière intervention
17 juin 2013
-
Extraction très incomplète des programmes installés
akatha
Messages postés
3
Date d'inscription
lundi 10 mars 2008
Statut
Membre
Dernière intervention
15 novembre 2012
-
Je ne comprends pas pourquoi le source bloque systématiquement sur la ligne Next (erreur 1025)
ybenameur
Messages postés
2
Date d'inscription
dimanche 13 avril 2008
Statut
Membre
Dernière intervention
26 février 2011
-
ce code est absolument identique à celui ci:
http://technet.microsoft.com/en-us/library/ee156540.aspx

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.