1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Liste des programmes installes

Liste des programmes installes

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 271 fois - Téléchargée 19 fois

Commenter

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
ybenameur
Messages postés
2
Date d'inscription
dimanche 13 avril 2008
Statut
Membre
Dernière intervention
26 février 2011
26 févr. 2011 à 22:01
ce code est absolument identique à celui ci:
http://technet.microsoft.com/en-us/library/ee156540.aspx
akatha
Messages postés
3
Date d'inscription
lundi 10 mars 2008
Statut
Membre
Dernière intervention
15 novembre 2012
21 févr. 2011 à 19:28
Je ne comprends pas pourquoi le source bloque systématiquement sur la ligne Next (erreur 1025)
Bogibus
Messages postés
13
Date d'inscription
vendredi 22 décembre 2000
Statut
Membre
Dernière intervention
17 juin 2013
21 févr. 2011 à 12:33
Extraction très incomplète des programmes installés
aserf
Messages postés
114
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
1 juillet 2011
19 févr. 2011 à 09:45
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
S'inscrire maintenant

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.

Du même auteur (djebbipgm)