sp_help_revlogin_2000_2000

 

USE master

IF OBJECT_ID ('sp_hexadecimal') IS NOT NULL
  DROP PROCEDURE sp_hexadecimal
GO

CREATE PROCEDURE sp_hexadecimal
    @binvalue varbinary(256),
    @hexvalue varchar(256) OUTPUT
AS
DECLARE @charvalue varchar(256),
  @i int,
  @length int,
  @hexstring char(16)

SELECT @charvalue = '0x'
SELECT @i = 1
SELECT @length = DATALENGTH (@binvalue)
SELECT @hexstring = '0123456789ABCDEF'

WHILE (@i <= @length)
  BEGIN
    DECLARE @tempint int
    DECLARE @firstint int
    DECLARE @secondint int
    SELECT @tempint = CONVERT(int, SUBSTRING(@binvalue,@i,1))
    SELECT @firstint = FLOOR(@tempint/16)
    SELECT @secondint = @tempint - (@firstint*16)
    SELECT @charvalue = @charvalue + SUBSTRING(@hexstring, @firstint+1, 1) + SUBSTRING(@hexstring, @secondint+1, 1)
    SELECT @i = @i + 1
  END
SELECT @hexvalue = @charvalue
GO

IF OBJECT_ID ('sp_help_revlogin') IS NOT NULL
  DROP PROCEDURE sp_help_revlogin
GO

CREATE PROCEDURE sp_help_revlogin @login_name sysname = NULL,
@include_db bit = 1,
@include_role bit = 1
AS
DECLARE @name sysname,
  @xstatus int,
  @binpwd  varbinary (256),
  @txtpwd  sysname,
  @tmpstr  varchar (256),
  @SID_varbinary varbinary(85),
  @SID_string varchar(256),
  @dfltdb varchar (256)

IF (@login_name IS NULL)
  DECLARE login_curs CURSOR SCROLL FOR
  SELECT sid, name, xstatus, password, isnull(db_name(dbid), 'master') FROM master..sysxlogins
  WHERE srvid IS NULL AND name <> 'sa'
ELSE
  DECLARE login_curs CURSOR SCROLL FOR
  SELECT sid, name, xstatus, password, isnull(db_name(dbid), 'master') FROM master..sysxlogins
  WHERE srvid IS NULL AND name = @login_name
OPEN login_curs
FETCH NEXT FROM login_curs INTO @SID_varbinary, @name, @xstatus, @binpwd, @dfltdb
IF (@@fetch_status = -1)
  BEGIN
    PRINT 'No login(s) found.'
    CLOSE login_curs
    DEALLOCATE login_curs
    RETURN -1
  END
SET @tmpstr = '/* sp_help_revlogin script '
PRINT @tmpstr
SET @tmpstr = '** Generated ' + CONVERT (varchar, GETDATE()) + ' on ' + @@SERVERNAME + ' */'
PRINT @tmpstr
PRINT ''
PRINT 'DECLARE @pwd sysname'
WHILE (@@fetch_status <> -1)
  BEGIN
    IF (@@fetch_status <> -2)
      BEGIN
        PRINT ''
        SET @tmpstr = '-- Login: ' + @name
        PRINT @tmpstr
        IF (@xstatus & 4) = 4
          BEGIN -- NT authenticated account/group
            IF (@xstatus & 1) = 1
              BEGIN -- NT login is denied access
                SET @tmpstr = 'EXEC master..sp_denylogin ''' + @name + ''''
                PRINT @tmpstr
              END
            ELSE
              BEGIN -- NT login has access
                SET @tmpstr = 'EXEC master..sp_grantlogin ''' + @name + ''''
                PRINT @tmpstr
              END
          END
        ELSE
          BEGIN -- SQL Server authentication
            IF (@binpwd IS NOT NULL)
              BEGIN -- Non-null password
                EXEC sp_hexadecimal @binpwd, @txtpwd OUT
                IF (@xstatus & 2048) = 2048
                  SET @tmpstr = 'SET @pwd = CONVERT (varchar(256), ' + @txtpwd + ')'
                ELSE
                  SET @tmpstr = 'SET @pwd = CONVERT (varbinary(256), ' + @txtpwd + ')'
                PRINT @tmpstr
               EXEC sp_hexadecimal @SID_varbinary,@SID_string OUT
                SET @tmpstr = 'EXEC master..sp_addlogin ''' + @name + ''', @pwd, @sid = ' + @SID_string + ', @encryptopt = '
              END
            ELSE
              BEGIN
                -- Null password
               EXEC sp_hexadecimal @SID_varbinary,@SID_string OUT
                SET @tmpstr = 'EXEC master..sp_addlogin ''' + @name + ''', NULL, @sid = ' + @SID_string + ', @encryptopt = '
              END

            IF (@xstatus & 2048) = 2048
              -- login upgraded from 6.5
              SET @tmpstr = @tmpstr + '''skip_encryption_old'''
            ELSE
              SET @tmpstr = @tmpstr + '''skip_encryption'''

            PRINT @tmpstr
          END
      END
    FETCH NEXT FROM login_curs INTO @SID_varbinary, @name, @xstatus, @binpwd, @dfltdb
  END

IF @include_db = 1
  BEGIN
    PRINT ''
    PRINT ''
    PRINT ''
    PRINT '/***** SET DEFAULT DATABASES *****/'

    FETCH FIRST FROM login_curs INTO @SID_varbinary, @name, @xstatus, @binpwd, @dfltdb

    WHILE @@fetch_status = 0
      BEGIN
        PRINT ''
        SET @tmpstr = '-- Login: ' + @name
        PRINT @tmpstr

        SET @tmpstr = 'exec master..sp_defaultdb ''' + @name + ''', ''' + @dfltdb + ''''
        PRINT @tmpstr

        FETCH NEXT FROM login_curs INTO @SID_varbinary, @name, @xstatus, @binpwd, @dfltdb
      END
  END

IF @include_role = 1
  BEGIN
    PRINT ''
    PRINT ''
    PRINT ''
    PRINT '/***** SET SERVER ROLES *****/'

    FETCH FIRST FROM login_curs INTO @SID_varbinary, @name, @xstatus, @binpwd, @dfltdb

    WHILE @@fetch_status = 0
      BEGIN
        PRINT ''
        SET @tmpstr = '-- Login: ' + @name
        PRINT @tmpstr

        IF @xstatus &16 = 16 -- sysadmin
          BEGIN
            SET @tmpstr = 'exec master.dbo.sp_addsrvrolemember @loginame=''' + @name + ''', @rolename=''sysadmin'''
            PRINT @tmpstr
          END

        IF @xstatus &32 = 32 -- securityadmin
          BEGIN
            SET @tmpstr = 'exec master.dbo.sp_addsrvrolemember @loginame=''' + @name + ''', @rolename=''securityadmin'''
            PRINT @tmpstr
          END

        IF @xstatus &64 = 64 -- serveradmin
          BEGIN
            SET @tmpstr = 'exec master.dbo.sp_addsrvrolemember @loginame=''' + @name + ''', @rolename=''serveradmin'''
            PRINT @tmpstr
          END

        IF @xstatus &128 = 128 -- setupadmin
          BEGIN
            SET @tmpstr = 'exec master.dbo.sp_addsrvrolemember @loginame=''' + @name + ''', @rolename=''setupadmin'''
            PRINT @tmpstr
          END

        IF @xstatus &256 = 256 --processadmin
          BEGIN
            SET @tmpstr = 'exec master.dbo.sp_addsrvrolemember @loginame=''' + @name + ''', @rolename=''processadmin'''
            PRINT @tmpstr
          END

        IF @xstatus &512 = 512 -- diskadmin
          BEGIN
            SET @tmpstr = 'exec master.dbo.sp_addsrvrolemember @loginame=''' + @name + ''', @rolename=''diskadmin'''
            PRINT @tmpstr
          END

        IF @xstatus &1024 = 1024 -- dbcreator
          BEGIN
            SET @tmpstr = 'exec master.dbo.sp_addsrvrolemember @loginame=''' + @name + ''', @rolename=''dbcreator'''
            PRINT @tmpstr
          END

        IF @xstatus &4096 = 4096 -- bulkadmin
          BEGIN
            SET @tmpstr = 'exec master.dbo.sp_addsrvrolemember @loginame=''' + @name + ''', @rolename=''bulkadmin'''
            PRINT @tmpstr
          END

        FETCH NEXT FROM login_curs INTO @SID_varbinary, @name, @xstatus, @binpwd, @dfltdb
      END
  END

CLOSE login_curs
DEALLOCATE login_curs
RETURN 0
GO
 ----- End Script -----