查询所有SQL用户的连接信息(可显示IP)

if object_id('p_getlinkinfo','P')is not null drop proc p_getlinkinfo
go
create proc p_getlinkinfo  
@dbname sysname=null, --要查詢的數據庫名,默認表示所有 
@includeip bit=0      --是否顯示IP信息
as  
  begin
    declare @dbid int  
    set @dbid=db_id(@dbname)
    if object_id('tempdb..#tb')is not null drop table #tb
    if object_id('tempdb..#ip')is not null drop table #ip   
    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 distinct 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,
           net_ip,
           prog_name  
    from #tb  
  end 
  go    
exec p_getlinkinfo @dbname='DB_WIP',@includeip=1

http://topic.csdn.net/u/20100326/16/ae43bae7-248b-4232-9e75-0364ef963f5c.html?seed=527292788&r=64221203#r_64221203

 

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/htl258/archive/2010/03/26/5420360.aspx