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