CREATE PROCEDURE [LoneUser]
--INPUT
@DBName nvarchar(50),
@UserName nvarchar(50)
AS
Exec sp_configure \'allow updates\',\'1\'
RECONFIGURE WITH OVERRIDE

Declare @ExecStr nvarchar(4000)

Select @ExecStr = \' Declare @b varbinary(85) \'
+ \' Use Master\'
+ \' Select @b = sid From syslogins Where Name = \'\'\' + @UserName + \'\'\'\'
+ \' Use \' + @DBName
+ \' Update sysusers Set sid = @b Where name = \'\'\' + @UserName + \'\'\'\'

--Print @ExecStr
Exec(@ExecStr)

Exec sp_configure \'allow updates\',\'0\'
RECONFIGURE WITH OVERRIDE