一次性压缩Sqlserver2005中所有库日志的存储过程

通过下面这个可以执行单个数据库日志压缩，问题每次都要写数据库名字，日志大的话执行速度没有那么快

alter database 数据库名 
set recovery simple 
go 
dbcc shrinkdatabase (数据库名) 
go 
alter database 数据库名 
set recovery full 
go 
 
目前也有压缩日志的工具，一个B/S界面形式的操作压缩数据库的，就是在选择数据库的时候老需要重新去选择具体的库，而且数据库数量很大的时候，有些库被压缩了，并没有自动排序; 目前需要的是被压缩后的数据库自动滚到最后面，每次下拉列表中打开的始终是日志记录容量最大的那个库，这个容易实现，要求就是执行日志压缩的时候，执行速度要快些？ 
如何优化？有没有办法一次性压缩所有的库？ 
通过存储过程实现，一次性压缩所有数据库:在Sqlserver2005中测试通过 
 代码如下:

create procedure shrinkDatabase 
as 
declare @name nvarchar(2000) 
declare getDataBaseCursor cursor for 
select name from sysdatabases //取出所有库名 
open getDataBaseCursor 
fetch next from getDataBaseCursor 
into @name //将取出来的值放在一个变量中 
while @@fetch_status=0 //根据值循环执行压缩 
begin 
exec ('alter database '+ @name+' set recovery simple') 
exec ('dbcc shrinkdatabase('+@name+')') 
exec ('alter database'+@name+' set recovery full') 
fetch next from getDataBaseCursor 
into @name end 
close getDataBaseCursor //关闭 
deallocate getDataBaseCursor //释放 
sp_helpdb urltest //比对数据库大小 
exec shrinkDatabase //执行