create table #ip(id int identity(1,1),re varchar(200))declare @s varchar(1000)
set @s='ping '+host_name()+' -a -n 1 -l 1'
insert #ip(re) exec master..xp_cmdshell @sselect 服务器名=host_name(),IP地址=stuff(left(re,charindex(']',re)-1),1,charindex('[',re),'')
from #ip
where id=2drop table #ip
set @s='ping '+host_name()+' -a -n 1 -l 1'
insert #ip(re) exec master..xp_cmdshell @sselect 服务器名=host_name(),IP地址=stuff(left(re,charindex(']',re)-1),1,charindex('[',re),'')
from #ip
where id=2drop table #ip
解决方案 »
- 求SQL增加删除标识列的语句
- 在2003上装SQL2000提示112错误,不能安装,怎么弄?
- 关于导表的问题。。请几位版主和各位高手进来帮帮忙。。在此先谢过了。。在线等。。
- 请教邹建(zjcxc)大哥一个问题,
- SQLSERVER锁/进程ID里面有很多类似于spid100(阻塞者81)等的问题!导致程序出错。
- 在线急问!varchar数据类型支持字符数问题
- 求一个查询语句,跟SQL过不去的大侠进来看看.
- 如何读取超过VARCHAR(8000)的Xml文档到过程变量中?
- 求计算字段的值?
- 设计sql表时,小数点后面的位数怎么定???
- 关于3万条数据的查询
- [求助]MS sqlserver2000装不上
-*/ /*--调用示例
--显示所有本机的连接信息
exec p_getlinkinfo --显示所有本机的连接信息,包含ip地址
exec p_getlinkinfo @includeip=1 --显示连接指定数据库的信息
exec p_getlinkinfo '客户资料'
--*/
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 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
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,IP地址=net_ip,应用程序名称=prog_name from #tb go
显示不出私网IP或本地的公网IP。