Donne les valeur des cle de registre run
Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 082 fois - Téléchargée 34 fois
Contenu du snippet
Donne juste le nom des valeurs des cles run hcu et hklm
je ferais un listeur bien plus complet la prochaine fois
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
- Donne les valeur des cle de registre run
- Donner le droit de modifier une clé du registre ✓ - Forum - VB.NET
- Demande aide pour modification valeur de clé registre... ✓ - Forum - C++ & C++ .NET
- [vb .net] Lister les valeurs d'une clé du registre ✓ - Forum - Visual Basic
- Ecrire/modifier la valeur '(défaut)' d'une clé de registre ✓ - Forum - Delphi / Pascal
- Visual Basic / VB.NET : Lister les handles (fichiers, clé de registres,...) ouverts par un pr - Guide
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
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.