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