SQL获得当前连接客户端IP和机器名

create proc   usp_getClient_infor       as     set   nocount   on     Declare   @rc   int     Declare   @RowCount   int     Select   @rc=0     Select   @RowCount=0     begin     --//create   temp   table   ,save   sp_who   information     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   temp   table   save   all   SQL   client   IP   and   hostname   and   login   time     Create   table   #userip(     [id]int   identity(1,1),     txt   varchar(1000),     )     --//Create   result   table   to   return   recordset     Create   table   #result(     [id]int   identity(1,1),     ClientIP   varchar(1000),     hostname   nchar(256),     login_time   datetime   default(getdate())     )     --//get   host   name   by   exec   sp_who   ,insert   #tspid   from   sp_who,     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   a   cursor   from   table   #tspid     declare   tspid   cursor   for   select   distinct   hostname   from   #tspid   with   (nolock)   where   spid>50   for   read   only     open   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   --//no   IP   feedback   package     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   --//clear   #userIP   table     fetch   next   from   tspid   into   @hostname     end       close   tspid     deallocate   tspid     select   *   from   #result   with(nolock)     drop   table   #tspid       drop   table   #userip     drop   table   #result     end     go     exec   usp_getClient_infor