Donne les valeur des cle de registre run

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 298 fois - Téléchargée 36 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
27 janv. 2009 à 18:14
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
27 janv. 2009 à 18:13
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
14 sept. 2004 à 15:08
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
14 sept. 2004 à 13:51
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
16 août 2004 à 08:02
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
Afficher les 6 commentaires

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.