begin process at 2012 02 17 08:48:47
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Système

 > [VBS]SCRIPT QUI ECRIT DANS UN FICHIER TEXTE LA LISTE DES APPLICATIONS INSTALLÉES SUR L'ORDINATEUR

[VBS]SCRIPT QUI ECRIT DANS UN FICHIER TEXTE LA LISTE DES APPLICATIONS INSTALLÉES SUR L'ORDINATEUR


 Information sur la source

Note :
7,5 / 10 - par 2 personnes
7,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Système Classé sous :vbs, registre, lire Niveau :Débutant Date de création :21/02/2007 Date de mise à jour :21/02/2007 10:51:14 Vu :9 773
Auteur : honginator

Ecrire un message privé
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

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

  • '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 
'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



 Historique

21 février 2007 10:51:14 :
....

 Sources du même auteur

Source avec Zip Source avec une capture RÉCUPÉRER LES APPLICATIONS INSTALLÉES SUR UN ORDINATEUR DIST...
Toutes les sources de honginator

 Sources de la même categorie

Source avec Zip Source avec une capture AUTORISER/REFUSER L'EXECUTION DE PROCESSUS par pierreh51
Source avec Zip Source .NET (Dotnet) CLONE/FORK DES FLUX DE LA CONSOLE : PERMETTRE LA REDIRECTION... par ShareVB
Source avec Zip Source .NET (Dotnet) DÉFRAGMENTER UN FICHIER par ShareVB
Source avec Zip Source .NET (Dotnet) ECRAN DE VEILLE : DÉTECTER LE LANCEMENT/DÉCLENCHER/EMPÊCHER par ShareVB
Source avec Zip Source avec une capture DESACTIVER / ACTIVER LES MISES EN VEILLES PC par Arsena
Toutes les sources de la catégorie Système

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture FLÉCHES DES ICONES DU BUREAU par Sechaud
Source avec Zip Source avec une capture Source .NET (Dotnet) OUVRIR BASE ACCESS PAR CLIC DROIT par Le Pivert
Source avec Zip LIRE ET MODIFIER LES PERMISSIONS ET LES AUDITS DES CLES DE R... par ShareVB
ACCÈS COMPLET À LA BASE DE REGISTRE par cOllO
TOUT POUR LA BASE DE REGISTRE par GreGleTurK

Commentaires et avis

Commentaire de G4industri le 22/02/2007 09:32:35

Il esxiste une solution sans le ActiveX du RegEdit et qui fonctionne à merveille:
http://www.vbfrance.com/code.aspx?ID=38060

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Comment lire dans la base de registre le Logon NT (en ASP)? [ par JT ] Comment lire dans la base de registre le Logon NT (en ASP)? Comment lire une clef de la base de registre ? [ par DArKCroW ] Bon voila je voudrais savoir comment lire ou ouvrir une clef de la base de registre !!Serasi t'il possible que l'on me face un exemple avec les donner BASE DE REGISTRE (Lire dedans) [ par TheWaxWeaZle ] coment obtenir une clé du registre et la mettre dans une variable ???? base de registre lire une clé binaire [ par martienfou ] bha tt est ds le titre :p je cherche a lire une valeur binaire situé ds la base de registre++ & thx all Comment lire une valeur par défaut dans la base de registre [ par letoiia ] Bonjour !Je cherche le moyen de lire une valeur par defaut dans une clef de registre !quelqu'un peut il m'aider ?Mon Logiciel à pour vocation l'intern registre windows [ par microzhg ] Bonjours !grace au nombreuse source disponible g pu voir comment lire et afficher les information d'un "valeur" de la base de registre.mais je n'arriv Probleme VBS registre page web [ par pascal59200 ] Salut,J'ai fait une page web en VBS pour recuperer les infos dans une page web, en faite ca consite à faire un genre de site de warez entre personne e lire la base de registre et envoyer des clés par mail [ par Cybernus ] bonjour tlm je voudrai faire un prog ki lit des clé de la base de registrer et ki les envoie par mail mais je sais pas comment envoyer une variable pa Lire une donnée de la base de registre [ par linkinpar236737 ] Pouvez vous me donner le code pour lire une donnée dans la base de registre ? Par exemple, je veux lire cette clef : HKEY_USER\S-1-5-19\Control\Deskto écrire ou lire la base de registre de windows [ par Migs ] Bonjour, je voudrais savoir s'il existe une façon simple de lire ou d'écrire dans la BR de windows. Toutes les sources que j'ai lu sont super compliqu


Nos sponsors


Sondage...

Comparez les prix


Samsung LE26B350 LCD
Entre 359€ et 417€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Monument Valley Utah known as The Mittens
Photo Pêche au Carrelet, la Barre-de-Monts, vendée (85), Pays de loire 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,920 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)