Find Orphan Logins in SQL Server2000

IF exists (SELECT * FROM dbo.sysobjects WHERE id = object_id(N'[dbo].[usp_OrphanLogins]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
DROP PROCEDURE [dbo].[usp_OrphanLogins]
GO
USE tempdb
GO
CREATE PROCEDURE usp_OrphanLogins
AS
SET NOCOUNT ON

--**********************************************************************************
-- 1. File Name: usp_OrphanLogins.sql
-- 2. Description: Displays The Logins not mapped to any database and 
--   not a member of any fixed server role
-- 3. Usage: EXEC usp_OrphanLogins
-- 4. Modification Log    
-- Ver.No.DateAuthorModification     
-- 0.0006/20/2007   Madhur Agarwal Initial Version  
-- 0.0006/21/2007   Madhur Agarwal Taken care of fixed server roles
-- 0.0006/21/2007   Madhur Agarwal Taken care of offline/suspect databases
--**********************************************************************************

DECLARE @query nvarchar(3550)
,@DBName sysname

SET @DBName = ''

--create work tables
CREATE TABLE #tb2_logins (LoginName sysname NOT Null, IsOrphan char(5)Null)
CREATE TABLE #tb1_users  (LoginName sysname NOT Null, DBName sysname NOT Null)

--Only SA can run this
If is_srvrolemember('sysadmin') = 0
BEGIN
PRINT 'only SYSADMIN can EXEC the utility'
RETURN 
END

--Loop thru Databases
WHILE @DBName IS NOT NULL
BEGIN   --Loop A
SET @DBName = ( 
SELECT MIN(name) 
FROM master..sysdatabases 
WHERE name NOT IN 
('model','distribution', 'pubs', 'northwind')
AND name > @DBName
)
If (SELECT DATABASEPROPERTYEX(@DBName, 'status'))<>'ONLINE'
BEGIN
PRINT 'Error::'
PRINT 'The Database '+@DBName+' is not ONLINE. Exiting from the SP. Please try again later'
RETURN
END
ELSE --If
BEGIN
IF @DBName IS NULL BREAK

--Add the User info to work table
SELECT @query = '
INSERT #tb1_users (DBName, LoginName)
SELECT N' + quotename(@DBName, '''') + ',l.loginname
      FROM ' + quotename(@DBName, '[') + '.dbo.sysusers u, master.dbo.syslogins l
        WHERE u.sid  = l.sid' 

EXEC(@query)
END --Else
END --Loop A

--Checkpoint
--select * from #tb1_users

--Populate Logins Work Table
INSERT #tb2_logins (LoginName ,IsOrphan) SELECT loginname, 'Yes' FROM master.dbo.syslogins

-- Update Login Status
UPDATE #tb2_logins
SET IsOrphan = 'No' 
FROM #tb2_logins tl, master.dbo.syslogins l, #tb1_users tu
WHERE 
(tl.LoginName = l.LoginName and 
(l.sysadmin = 1 
or l.securityadmin = 1 
or l.serveradmin = 1 
or l.setupadmin = 1
or l.processadmin = 1
or l.diskadmin = 1
or l.dbcreator = 1
or l.bulkadmin = 1
))
or tl.LoginName = tu.LoginName

--Display Results
SELECT * FROM #tb2_logins WHERE IsOrphan = 'Yes' ORDER BY loginname
GO