Donne les valeur des cle de registre run

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 945 fois - Téléchargée 34 fois

Contenu du snippet

Donne juste le nom des valeurs des cles run hcu et hklm

Source / Exemple :


On Error Resume Next

Dim fso

Const HCR  = &H80000000
Const HCU  = &H80000001
Const HKLM = &H80000002
Const HKU  = &H80000003

Set fso = CreateObject("Scripting.FileSystemObject") 
Set rapor= fso.OpenTextFile("reglog2.txt",2,True)    
rapor.WriteLine("------------------------------------------------------------------")
rapor.WriteLine("Information cle run de registre by racattac13 Le "&Now)
rapor.WriteLine("------------------------------------------------------------------")
rapor.WriteBlankLines(2) 

Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set wshNetwork = CreateObject("WScript.Network")
Mycomputer = wshNetwork.ComputerName
Set wmiNameSpace = wmiLocator.ConnectServer(Mycomputer,"root\default")
Set objRegistry = wmiNameSpace.Get("StdRegProv")

rapor.WriteLine("Cle HCU current user:") 
lRC = objRegistry.EnumValues(HKU,"Software\Microsoft\Windows\CurrentVersion\Run", sNames3, iTypes)
  For Each sKeyName3 In sNames3
   rapor.WriteLine("Valeur : "&sKeyName3)
  Next
 rapor.WriteBlankLines(1) 
rapor.WriteLine("Cle HKLM local machine:") 
lRC = objRegistry.EnumValues(HKLM,"Software\Microsoft\Windows\CurrentVersion\Run", sNames3, iTypes)
  For Each sKeyName3 In sNames3
   rapor.WriteLine("Valeur : "&sKeyName3)
  Next

Set ws= CreateObject("WScript.Shell")
 ws.Run "reglog2.txt"

Conclusion :


je ferais un listeur bien plus complet la prochaine fois

A voir également

Ajouter un commentaire

Commentaires

anouar1991
Messages postés
4
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
27 janvier 2009
-
je veux ce cle svp
anouar1991
Messages postés
4
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
27 janvier 2009
-
slt a tous esqu il nya un membre qui connais le clé de registre de tune up 2009
racattac13
Messages postés
62
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
14 février 2010
-
ben merci pour la note
et pour l'interface graphique en vbs , c'est impossible il faudrait que je l'adapte dans un autre language (vb ou du c ...)
sinon on peut passer par une page html
j'ai vu un truc du style dans ce site trés sympa

http://www.bellamyjc.net/fr/vbsdownload.html

le vbs en question est "setregedit.vbs"
Allez en plus
cs_viran
Messages postés
104
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
31 décembre 2006
-
Tres bonne source qui peuts ervir mais ca serait bien de pouvoir faire une interface ou on pourrait modifier les cles run et merci d'avoir penser a ceux qui voudraient modifier la source,tes efforts valent bien un 10!
racattac13
Messages postés
62
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
14 février 2010
-
Bon t' a un peu raison pour les antivirus, (perso ca me derange pas)

Le "on error resume next" permet pour ceux qui veulent changer le source de facon a afficher plus de cle de registre a ne pas planter le script qui s'arreterais a la lecture d'une cle protegé

Et moi je lui trouve une utilité, ex: tu n'a pas de logiciel comme TCA et tu pense que t'a un virus qui vient de s'incruster, au lieu de verifier tes cle run manuellement, tu te les fait lister en un double-click

Et pour ton ocx je verrai plus tard

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.