查询所有SQL用户的连接信息(可显示IP)代码,MSSQL代码库,德仔网

代码语言

代码分类

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

作者:Dezai.CN / 发布于2012/12/13/ 747

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

试试其它关键字

　连接信息　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)