Drop all Databases (+the option to exclude one)

/*
Created:     18/08/2005
Created By:  QtombeD
Purpose(s):  Drop all Databases after a hard days work
Explenation: Will drop every Database except system
Keepdb:      To keep a database(s)add:
             AND name NOT IN ('Keepdb1','Keepdb2')
             or more if really needed (above is for 2)
             right under the line:
             SELECT name FROM sysdatabases WHERE sid <> 0x01
Previewdb:   add: -- before: exec sp_executesql @SQL and
             type print @SQL under it.
             It should read like this:
             --exec sp_executesql @SQL
             print @SQL   
Last Modified:  19/08/2005    
*/USE master 
GO 
DECLARE @dbname sysname 
DECLARE @SQL nvarchar(1000) 

DECLARE cur CURSOR FORWARD_ONLY KEYSET FOR 

SELECT name FROM sysdatabases WHERE sid <> 0x01 

OPEN cur 
FETCH NEXT FROM cur INTO @dbname 
WHILE @@FETCH_STATUS = 0 
BEGIN 
SET @SQL = N'DROP DATABASE ' + @dbname 
exec sp_executesql @SQL
FETCH NEXT FROM cur INTO @dbname 
END 
CLOSE cur 
DEALLOCATE cur