I have 2 scripts, one to get columns, one to get tables will work for sql 2000
select sysobjects.name as 'table name'
from sysobjects
where
sysobjects.type = 'u'
and
sysobjects.name <> 'dtproperties'
order by sysobjects.name
Select
'Table Name ' = B.name,
'Column name' = A.name,
'Column No' = colid,
'Type' = type_name (xusertype),
'Length' = convert (int, length),
'Allow Nulls'= case when isnullable = 0 then 'No' else 'Yes' end
From syscolumns A, sysobjects B
Where A.id=B.id and B.type ='U' and A. number=0 and B.Status > 0
Order by b.name, colid