'========================================

Function zGen_RegistryRead(sKey)

	'Read a value from the Registry

	'Usage:
		'sValue = zGen_RegistryRead(sKey)

	'Where:
		'sKey = The root and path of the key required

	Dim oShell

	Set oShell = CreateObject("WScript.Shell")

	zGen_RegistryRead = oShell.RegRead(sKey)

	Set oShell = Nothing

End Function

'========================================