Lire une clée de registre en vbs

Option Explicit

Dim objShell
Dim MaVariable

Set objShell = CreateObject("Wscript.Shell")

'Lecture de la clé
MaVariable = objShell.RegRead("HKLM\System\CurrentControlSet\Control\TimeZoneInformation\TimeZoneKeyName")


Wscript.echo "Valeur : " & MaVariable
Wscript.echo "Type de variable : " & UCase(TypeName(MaVariable))

Set objShell = Nothing

Lien vers le fichier : cliquez ici

'Lire un String
'http://msdn.microsoft.com/library/en-us/wmisdk/wmi/getstringvalue_method_in_class_stdregprov.asp
'Lire un Expanded String
'http://msdn.microsoft.com/library/en-us/wmisdk/wmi/getexpandedstringvalue_method_in_class_stdregprov.asp
'Lire un DWord
'http://msdn.microsoft.com/library/en-us/wmisdk/wmi/getdwordvalue_method_in_class_stdregprov.asp
'Lire un Binary
'http://msdn.microsoft.com/library/en-us/wmisdk/wmi/getbinaryvalue_method_in_class_stdregprov.asp

'Definition des constantes
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_DYN_DATA = &H80000006

'On pointe sur l'ordinateur local
strComputer = "."

'Je fais un objet qui represente la base de registre
Set objRegistry=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

'Chemin de la valeur String à lire : GetStringValue
PathRepertoireRegistre = "SOFTWARE\Microsoft\Windows\CurrentVersion"
NomCleeRegistre = "ProductId"
objRegistry.GetStringValue HKEY_LOCAL_MACHINE,PathRepertoireRegistre,NomCleeRegistre,ValeurCleeRegistre
Wscript.Echo "Valeur de " & PathRepertoireRegistre & "\" & NomCleeRegistre & " : " & ValeurCleeRegistre

'Chemin de la valeur ExpandedString à lire : GetExpandedStringValue
PathRepertoireRegistre = "SOFTWARE\Microsoft\Windows\CurrentVersion"
NomCleeRegistre = "ProgramFilesPath"
objRegistry.GetExpandedStringValue HKEY_LOCAL_MACHINE,PathRepertoireRegistre,NomCleeRegistre,ValeurCleeRegistre
Wscript.Echo "Valeur de " & PathRepertoireRegistre & "\" & NomCleeRegistre & " : " & ValeurCleeRegistre

'Chemin de la valeur DWord à lire : GetDWORDValue
PathRepertoireRegistre = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\setup.exe"
NomCleeRegistre = "RunAsOnNonAdminInstall"
objRegistry.GetDWORDValue HKEY_LOCAL_MACHINE,PathRepertoireRegistre,NomCleeRegistre,ValeurCleeRegistre
Wscript.Echo "Valeur de " & PathRepertoireRegistre & "\" & NomCleeRegistre & " : " & ValeurCleeRegistre

'Lire un Binary
'objRegistry.GetBinaryValue

Lien vers le fichier : cliquez ici