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

Sub zGen_RegistryDelete(sKey)

	'Delete a key from the registry

	'Usage:
	'	Call zGen_RegistryDelete(sKey)

	'Where:
		'sKey = The root and path of the key to be deleted

	Dim oShell, sRet

	Set oShell = CreateObject("WScript.Shell")

	sRet = oShell.RegDelete(sKey)

	Set oShell = Nothing

End Sub

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