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

Sub zGen_RegistryWrite(sKey, sValue)

	'Write a value to the Registry

	'Usage:
		'Call zGen_RegistryWrite(sKey, sValue)

	'Where:
		'sKey   = The root and path of the key required
		'sValue = The value to write to the key

	Dim oShell

	Set oShell = CreateObject("WScript.Shell")

	oShell.RegWrite sKey, sValue, "REG_SZ"

	Set oShell = Nothing

End Sub

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