来源：http://www.itpub.net/thread-193247-1-1.html
先保存，以后研究一下
1 *--获取连接SQL服务器的信息 2 3 所有连接本机的:操作的数据库名,计算机名,用户名,网卡物理地址,IP地址,程序名 4 -*/ 5 6 /*--调用示例 7 --显示所有本机的连接信息 8 exec p_getlinkinfo 9 10 --显示所有本机的连接信息,包含ip地址 11 exec p_getlinkinfo @includeip=1 12 13 --显示连接指定数据库的信息 14 exec p_getlinkinfo '客户资料' 15 --*/ 16 if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_getlinkinfo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) 17 drop procedure [dbo].[p_getlinkinfo] 18 GO 19 20 create proc p_getlinkinfo 21 @dbname sysname=null, --要查询的数据库名,默认查询所有数据库的连接信息 22 @includeip bit=0 --是否显示IP地址,因为查询IP地址比较费时,所以增加此控制 23 as 24 declare @dbid int 25 set @dbid=db_id(@dbname) 26 27 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)) 28 insert into #tb(hostname,dbname,net_address,loginname,prog_name) 29 select distinct hostname,db_name(dbid),net_address,loginame,program_name from master..sysprocesses 30 where hostname<>'' and (@dbid is null or dbid=@dbid) 31 32 if @includeip=0 goto lb_show --如果不显示IP地址,就直接显示 33 34 declare @sql varchar(500),@hostname nchar(128),@id int 35 create table #ip(hostname nchar(128),a varchar(200)) 36 declare tb cursor local for select distinct hostname from #tb 37 open tb 38 fetch next from tb into @hostname 39 while @@fetch_status=0 40 begin 41 set @sql='ping '+@hostname+' -a -n 1 -l 1' 42 insert #ip(a) exec master..xp_cmdshell @sql 43 update #ip set hostname=@hostname where hostname is null 44 fetch next from tb into @hostname 45 end 46 47 update #tb set net_ip=left(a,patindex('%:%',a)-1) 48 from #tb a inner join ( 49 select hostname,a=substring(a,patindex('Ping statistics for %:%',a)+20,20) from #ip 50 where a like 'Ping statistics for %:%') b on a.hostname=b.hostname 51 52 lb_show: 53 select id,数据库名=dbname,客户机名=hostname,用户名=loginname 54 ,网卡物理地址=net_address,IP地址=net_ip,应用程序名称=prog_name from #tb 55 56 go
