Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 298 fois - Téléchargée 36 fois
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"
27 janv. 2009 à 18:14
27 janv. 2009 à 18:13
14 sept. 2004 à 15:08
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
14 sept. 2004 à 13:51
16 août 2004 à 08:02
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.