批量删除存储过程语句

DECLARE @procName VARCHAR(500) 
 DECLARE cur CURSOR FOR
  SELECT [name]  FROM   sys.objects  WHERE  type = 'p'
  OPEN cur 
  FETCH next FROM cur INTO @procName 
  WHILE @@fetch_status = 0 
  BEGIN
      EXEC('drop procedure ' + @procName) 
      FETCH next FROM cur INTO @procName 
  END
 CLOSE cur   
 DEALLOCATE cur