Discussion :

[PiuPiu]

Voila mon chti problème, je souhaiterai aller récupérer la valeur d'une clé dans la base de registre. J'utilise un programme pour caher des dossiers tant qu'on a pas tapé le mot de passe (Lockfolder XP). J'ai trouvé dans la bdr la clé qui prend la valeur 1 si la protection est activée (dossier caché) ou valeur 0 si la protection est desactivé. J'aurai donc voulu avoir un script qui me permet d'aller cherché cette valeur et qui en fonction m'affiche protection activée ou désactivée. Voila j'éspère avoir été assez claire dans ma question et espère que quelqu'un trouvera (vite ) une réponse à ma question.
Merci

[ced600]

regarde ici : http://msdn.microsoft.com/library/de...stdregprov.asp

[Eric_78180]

L'appel de la fonction se fait par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lire_registre oComputer.CN,path_CEDS,"Version",sValue

où oComputer.CN est le nom de l'ordinateur (utilise les variable d'envirronement pour récupérer le Computername pour le local)


Et voici le code de la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function lire_registre(strComputer,strKeyPath,valeur,sValue)
 
'Option Explicit
On Error Resume Next
dim oReg
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv") 
 
'Const HKCU = &H80000001 
const HKLM = &H80000002 
oReg.GetStringValue HKLM, strKeyPath, valeur, sValue 
 
Set oReg = nothing
 
end function

Bonnes fêtes !