Mssql 查询数据库中所有有自增ID的表

declare curtablename cursor local for
select name from sys.objects where type='u'
open curtablename 
declare @Table_name varchar(100)
begin

fetch next from curtablename into @Table_name
while @@FETCH_STATUS=0
begin
fetch next from curtablename into @Table_name

if Exists(Select top 1 1 from sysobjects
    Where objectproperty(id, 'TableHasIdentity') = 1
      and upper(name) = upper(@Table_name)
  )
 print @Table_name
end
end
close curtablename
deallocate curtablename