Donne les valeur des cle de registre run

Commenter

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

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