Option Explict
Const HKCU = &H80000001
Const SCHLUESSELPFAD = "Control Panel\International"
Dim Registrierung, Werte, Item
 
Set Registrierung = GetObject( _
  "winmgmts:{impersonationLevel=impersonate}!\root\default:StdRegProv")
Registrierung.EnumValues HKCU, SCHLUESSELPFAD, Werte
 
For Each Item In Werte
  Wscript.Echo Item
Next