[vbs] récupérer une valeur dans la base de registre
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
Voici une fonction que j'utilise, fonctionne parfaitement
L'appel de la fonction se fait par :
Code:
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:
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 !
