显示SQL SERVER数据库上连接信息

if   object_id(N'tempdb.dbo.#tb')   is   not   null     drop   table   #tb  if   object_id(N'tempdb.dbo.#ip')   is   not   null     drop   table   #ip  declare @dbname   sysname, --要查询的数据库名,默认查询所有数据库的连接信息   @includeip   bit, --是否显示IP地址,因为查询IP地址比较费时,所以增加此控制 @dbid   int    set @dbname='hospital2008' set @includeip=1 set   @dbid=db_id(@dbname)   select    *   from   master..sysprocesses  where   hostname<>''   and   (@dbid   is   null   or   dbid=@dbid)   create   table   #tb(id   int   identity(1,1),dbname   sysname,hostname   nchar(128),loginname   nchar(128),net_address   nchar(12),net_ip   nvarchar(15),prog_name   nchar(128))   insert   into   #tb(hostname,dbname,net_address,loginname,prog_name)   select     hostname,db_name(dbid),net_address,loginame,program_name   from   master..sysprocesses  where   hostname<>''   and   (@dbid   is   null   or   dbid=@dbid)  if   @includeip=0   goto   lb_show     --如果不显示IP地址,就直接显示  declare   @sql   varchar(500),@hostname   nchar(128),@id   int   create   table   #ip(hostname   nchar(128),a   varchar(200))  declare   tb   cursor   local   for   select   distinct   hostname   from   #tb   open   tb   fetch   next   from   tb   into   @hostname  while   @@fetch_status=0  begin  set   @sql='ping '  +@hostname+  ' -a   -n   1   -l   1' insert   #ip(a)   exec   master..xp_cmdshell   @sql   update   #ip   set   hostname=@hostname   where   hostname   is   null   fetch   next   from   tb   into   @hostname   end   update   #tb   set   net_ip=left(a,patindex('%:%',a)-1)   from   #tb   a   inner   join   (  select   hostname,a=substring(a,patindex('Ping   statistics   for   %:%',a)+20,20)   from   #ip   where   a   like   'Ping   statistics   for   %:%')   b   on   a.hostname=b.hostname   lb_show:   select   id,数据库名=dbname,客户机名=hostname,用户名=loginname   ,网卡物理地址=net_address,IP地址=net_ip,应用程序名称=prog_name   from   #tb    --sp_password 跟踪不到执行的脚步