[vbs]script qui ecrit dans un fichier texte la liste des applications installées sur l'ordinateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 765 fois - Téléchargée 21 fois

Contenu du snippet

Ben voila j'ai fini, mais bon il y a un souci ce script affiche bien la liste dans un fichier texte ( il faudra modifier la racine si vous voulez l'utiliser) maius ce script necessite le composant activeX regedit qui n'est pas gratuit (enfin 60 jours puis après 40$ donc environ 35 ?) Ceci est bien gênant et je chercher deja un autre moyen de faire ou bien si quelqu'un sait comment récupérer cet activeX gratuitement je l'écoute!!!! Je reste donc à votre disposition pour des indications futures ou si vous avez trouver une solution a ce probleme qui n'est négligeable

Source / Exemple :


'The script writes all installed software on the computer.
dim a
Const ForAppend = 8	
Set WshShell = CreateObject("Wscript.Shell")							
Set Shell = WScript.CreateObject("Scripting.FileSystemObject")			
Set fichier = Shell.OpenTextFile("Y:\Perso\NomApp1.txt", ForAppend, True)

Fichier.write(" ---------- " & Now & " ---------- " & vbcrlf)	

 Set S = CreateObject("RegEdit.Server")
 For Each Key In S.Keys("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall").SubKeys
    If Key.ExistsValue("DisplayName") Then 
       a = Key.Values("DisplayName").Value
		fichier.write(a & vbcrlf)	   
      End If
  Next

A voir également

Ajouter un commentaire

Commentaires

G4industri
Messages postés
6
Date d'inscription
mardi 18 octobre 2005
Statut
Membre
Dernière intervention
14 mai 2007
-
Il esxiste une solution sans le ActiveX du RegEdit et qui fonctionne à merveille:
http://www.vbfrance.com/code.aspx?ID=38060

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.