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

Commenter

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

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 (honginator)