Recuperer clée de registre dans page web

Signaler
Messages postés
13
Date d'inscription
samedi 4 mai 2002
Statut
Membre
Dernière intervention
10 mai 2005
-
Messages postés
13
Date d'inscription
samedi 4 mai 2002
Statut
Membre
Dernière intervention
10 mai 2005
-
Salut tout le monde,

Je voudrai recuperer dans une page web des infos de mon registre. Serait-il possible en VB ou autre et comment faire?

Merci

bye

2 réponses

Messages postés
2368
Date d'inscription
mardi 17 avril 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
23
en VBscript :

Avec WMI voici un exemple:

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

For Each subkey In arrSubKeys
msgbox subkey
Next

SANS WMI :

Dim WshShell, retArray, i
Set WshShell = WScript.CreateObject("WScript.Shell")
retArray = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
for i = 0 to ubound(retArray)-1
'Ce que tu veux faire
next

P.S : Ce n'est pas légal de lire une base de registre qui n'est pas la tienne !

::|The S@ib|::
0
Messages postés
13
Date d'inscription
samedi 4 mai 2002
Statut
Membre
Dernière intervention
10 mai 2005

sniffff snifffff snifff :dissapprove) Merci kan meme de l'aide, mais j'y arrive toujours pas.

j'ai essaye pour mettre la valeur dans un formulaire en HTML :

<HTML>

<SCRIPT Language="VBScript">
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

For Each subkey In arrSubKeys
msgbox subkey
Next

</SCRIPT>

</HTML>

Mais je sais pas le kel nom il faut donner a la zone de texte et si c'est bon.

Merci de m'aider

Bye
0