declare @ip varchar(15),@sql varchar(1000)--得到ip地址 create table #ip(a varchar(200)) set @sql='ping '+host_name()+' -a -n 1 -l 1' insert into #ip exec master..xp_cmdshell @sqlselect @ip=left(a,patindex('%:%',a)-1) from( select a=substring(a,patindex('Ping statistics for %:%',a)+20,20) from #ip where a like 'Ping statistics for %:%') a--显示结果 select 用户计算机名=host_name(),ip地址=@ipdrop table #ip
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
TO zlp321002(飘过) 你的这个方法返回的结果是客户端的机器名称和IP吧
if exists( select * from sysobjects where xtype='P' and name='up_get_ip') drop procedure up_get_ip go -- /* declare @ip varchar(255) exec up_get_ip @ip output print @ip+')' */ create procedure dbo.up_get_ip @ip varchar(255) output as /*--summer.yang --2005.11--(引用请保留此信息)*/ set nocount on create table #tbl_ip(out_put varchar(255) null)insert into #tbl_ip exec master..xp_cmdshell 'ipconfig'set @ip='' select @ip=@ip+substring(out_put,charindex(': ',out_put)+2,15)+' ' from #tbl_ip where [out_put] like '%IP Address%' set @ip=rtrim(replace(@ip,char(13),'')) --select @ipGO
然后调用SP_OAGetProperty方法来获取DLL的返回值这样应该也可以获得服务器的IP地址也许你可以参考一下
1、sp_OACreate
2、sp_OAMethod
3、sp_OAGetProperty
4、sp_OADestroy具体要配合你的DLL来调用具我所知的也就这么多了,XX才尽,XX计穷啊,惭愧!:(
create table #ip(a varchar(200))
set @sql='ping '+host_name()+' -a -n 1 -l 1'
insert into #ip exec master..xp_cmdshell @sqlselect @ip=left(a,patindex('%:%',a)-1) from(
select a=substring(a,patindex('Ping statistics for %:%',a)+20,20)
from #ip where a like 'Ping statistics for %:%') a--显示结果
select 用户计算机名=host_name(),ip地址=@ipdrop table #ip
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
drop procedure up_get_ip
go
--
/*
declare @ip varchar(255)
exec up_get_ip @ip output
print @ip+')'
*/
create procedure dbo.up_get_ip @ip varchar(255) output
as
/*--summer.yang --2005.11--(引用请保留此信息)*/
set nocount on
create table #tbl_ip(out_put varchar(255) null)insert into #tbl_ip exec master..xp_cmdshell 'ipconfig'set @ip=''
select @ip=@ip+substring(out_put,charindex(': ',out_put)+2,15)+' ' from #tbl_ip where [out_put] like '%IP Address%'
set @ip=rtrim(replace(@ip,char(13),''))
--select @ipGO