Cacher is the code snippet organizer for pro developers

Dim WshShell, Ndec, sep, grp , country
Set WshShell = WScript.CreateObject("WScript.Shell") 
ndec = WshShell.RegRead("HKCU\Control Panel\International\iCurrDigits") 
sep = WshShell.RegRead("HKCU\Control Panel\International\sDecimal") 
grp = WshShell.RegRead("HKCU\Control Panel\International\sMonGrouping") 
country = WshShell.RegRead("HKCU\Control Panel\International\sCountry")
WScript.Echo ndec & "|" & sep & "|" & grp 
WScript.Echo country