如何获得当前连接本地Sql Server的所有连接信息?

Question

-- 获得当前连接的客户端的IP和机器名
Create proc usp_getClient_infor 
as 
set nocount onDeclare @rc int
Declare @RowCount intSelect @rc=0
Select @RowCount=0begin
Create table #tspid(
 spid int null,
 ecid int null,
 status nchar(60) null,
 loginname nchar(256) null,
 hostname nchar(256) null,
 blk bit null,
 dbname nchar(256) null,
 cmd nchar(32)
  )
 Create table #userip(
 [id]int identity(1,1),
 txt varchar(1000),
)
 Create table #result(
 [id]int identity(1,1),
 ClientIP varchar(1000),
 hostname nchar(256),
 login_time datetime default(getdate()) )
 insert into #tspid(spid,ecid,status,loginname,hostname,blk,dbname,cmd) exec sp_who declare @cmdStr varchar(100), 
 @hostName nchar(256), 
 @userip varchar(20), 
 @sendstr varchar(100)
 
 
declare tspid cursor 
for select distinct hostname from #tspid  with (nolock) where spid>50 
for read onlyopen tspid
   fetch next from tspid into @hostname
   While @@FETCH_STATUS = 0
   begin
 select @cmdStr='ping '+rtrim(@hostName)
 
 insert into #userip(txt) exec master..xp_cmdshell @cmdStr 
 
 select @rowcount=count(id) from #userIP  if @RowCount=2  
  begin
  insert into #Result(ClientIP,hostname) values('Can not get feedback package from Ping!',@hostname)
  end
 if @RowCount>2 
  begin
  select @userip=substring(txt,charindex('[',txt)+1,charindex(']',txt)-charindex('[',txt)-1) 
  from #userIP
  where txt like 'Pinging%'
  
  insert into #Result(ClientIP,hostname) values(@userIP,@hostname)
  end
 select @rc=@@error
 if @rc=0
  truncate table #userip  
   fetch next from tspid into @hostname
 end close tspid
deallocate tspidselect * from #result with(nolock)drop table #tspid 
drop table #userip
drop table #result
end
go
exec usp_getClient_infor

Answer 1

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_getlinkinfo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_getlinkinfo]
GO/*--获取连接SQL服务器的信息 所有连接本机的:操作的数据库名,计算机名,用户名,网卡物理地址,IP地址,程序名--邹建 2003.11(引用请保留此信息)--*//*--调用示例
--显示所有本机的连接信息
exec p_getlinkinfo --显示所有本机的连接信息,包含ip地址
exec p_getlinkinfo @includeip=1 --显示连接指定数据库的信息
exec p_getlinkinfo '客户资料'
--*/
create proc p_getlinkinfo
@dbname sysname=null, --要查询的数据库名,默认查询所有数据库的连接信息
@includeip bit=0 --是否显示IP地址,因为查询IP地址比较费时,所以增加此控制
as
declare @dbid int
set @dbid=db_id(@dbname)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
endupdate #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.hostnamelb_show:
select id,数据库名=dbname,客户机名=hostname,用户名=loginname
,网卡物理地址=net_address,IP地址=net_ip,应用程序名称=prog_name from #tbgo