Get SQL Server default collation

create proc sp_default_collation
as
set nocount on
declare @servercollation sysname
select @servercollation = convert(sysname, serverproperty('collation'))

if @servercollation is not NULL
      BEGIN
      select 'Server default collation' = description
            from ::fn_helpcollations() C
            where @servercollation = C.name
      END

set nocount off
go

original link: http://www.sqlservercentral.com/scripts/Miscellaneous/30410/