Registry Reading and Writing UDF's

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fnRegRead]') and xtype in (N'FN', N'IF', N'TF'))
drop function [dbo].[fnRegRead]
GO

CREATE   FUNCTION fnRegRead (@rootkey varchar(100) = 'HKEY_LOCAL_MACHINE', 
@key varchar(500),
@value_name varchar(100))
RETURNS varchar(4000)
AS
BEGIN
DECLARE @ret varchar(4000)

/* 
xp_regread 
xp_regread [@rootkey=]'rootkey', [@key=]'key'[, [@value_name=]'value_name'][, [@value=]@value OUTPUT] 

@rootkey Possible values :
HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS
HKEY_CURRENT_CONFIG
*/

EXEC master..xp_regread @rootkey, @key, @value_name, @ret OUTPUT

RETURN @ret
END

GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fnRegWrite]') and xtype in (N'FN', N'IF', N'TF'))
drop function [dbo].[fnRegWrite]
GO

CREATE   FUNCTION fnRegWrite (@rootkey varchar(100) = 'HKEY_LOCAL_MACHINE', 
@key varchar(500),
@value_name varchar(100),
@type varchar(30) = 'REG_SZ',
@value varchar(1024))
RETURNS int
AS
BEGIN
DECLARE @ret int

/* 
xp_regwrite 
xp_regwrite [@rootkey=]'rootkey', [@key=]'key', [@value_name=]'value_name', [@type=]'type', [@value=]'value', 

@type can be REG_SZ for string values or REG_DWORD for integers 

@rootkey Possible values :
HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS
HKEY_CURRENT_CONFIG

*/
EXEC @ret = master..xp_regwrite @rootkey, @key, @value_name, @type, @value

RETURN @ret
END


GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO