Ip del cliente

Bueno, esto mas bien se resuelve en el FRONT END de VB.

Existe un ActiveX de MS que hace lo que usted necesita en
VB, se llama DNS y el codigo para obtener la IP es:

Dim lswName As String
Dim lsTcpIp As String
Dim loutil As New Utileria.Utilerias

' Obtiene la Ip de la Maquina
lswName = loutil.ComputerName
DNS1.HostName = lswName
lsTcpIp = DNS1.HostIP

La DLL de Utilerias, fue diseñada por nosotros.

Espero que esto le ayude a resolver su problema.

Respondi a este mensaje hace un rato y no veo mi posta ... Antes me paso lo
mismo con un mensaje de como obtener la version del SQL Server. Envie un
adjunto en ambos, sera por eso ? Alguien sabe si hubo problemas mientras no
estuve por aca ? Pongo el texto del adjunto. Es un stored procedure hecho
por 'un tal' Jasper Smith ...


-

-

create proc sp_get_hostip (@spid int = NULL)
as
set nocount on

declare @host varchar(100)
declare @ip varchar(15)
declare @cmd varchar(200)
declare @temp varchar(255)
create table #ip(iptext varchar(255))

If @spid is null select @host = host_name()
else
select @host = max(hostname)
from master..sysprocesses
where spid = @spid

if @host is not null
begin
set @cmd = 'ping -n 1 ' + @host
insert #ip exec master..xp_cmdshell @cmd
select @ip = ISNULL(substring(iptext,(charindex('[',iptext)+1),
(charindex(']',iptext)-(charindex('[',iptext)+1))),'')
from #ip
where charindex('[',iptext)>0
end

drop table #ip
select NULLIF(rtrim(@host),'') as 'Hostname',
rtrim(@ip) as 'IP_Address'

return


Saludos !

Emilio Boucau
Microsoft MVP SQL Server
http://www.portalsql.com
PASS Spanish Group
http://www.sqlpass.org

Buenos Aires - Argentina

funciona de maravilla segun veo, pero @spid lleva doble "@", es decir,
@@spid

"Emilio Boucau" escribió en el mensaje
news:

Respondi a este mensaje hace un rato y no veo mi posta ... Antes me paso

lo

mismo con un mensaje de como obtener la version del SQL Server. Envie un
adjunto en ambos, sera por eso ? Alguien sabe si hubo problemas mientras

no

estuve por aca ? Pongo el texto del adjunto. Es un stored procedure hecho
por 'un tal' Jasper Smith ...




create proc sp_get_hostip (@spid int = NULL)
as
set nocount on

declare @host varchar(100)
declare @ip varchar(15)
declare @cmd varchar(200)
declare @temp varchar(255)
create table #ip(iptext varchar(255))

If @spid is null select @host = host_name()
else
select @host = max(hostname)
from master..sysprocesses
where spid = @spid

if @host is not null
begin
set @cmd = 'ping -n 1 ' + @host
insert #ip exec master..xp_cmdshell @cmd
select @ip = ISNULL(substring(iptext,(charindex('[',iptext)+1),
(charindex(']',iptext)-(charindex('[',iptext)+1))),'')
from #ip
where charindex('[',iptext)>0
end

drop table #ip
select NULLIF(rtrim(@host),'') as 'Hostname',
rtrim(@ip) as 'IP_Address'

return


Saludos !

Emilio Boucau
Microsoft MVP SQL Server
http://www.portalsql.com
PASS Spanish Group
http://www.sqlpass.org

Buenos Aires - Argentina

Diego,

es el nombre del parametro, no te confundas ...

Saludos !

Emilio Boucau
Microsoft MVP SQL Server
http://www.portalsql.com
PASS Spanish Group
http://www.sqlpass.org

Buenos Aires - Argentina

funcionó de maravilla Emilio,


saludos para 'un tal' Jasper Smith ...y Emilio


JuanE!, desde Chile
"_JuanE" <no+ escribió en el mensaje
news:

voy a probarlo Emilio, luego te cuento, gracias!!!

JuanE!, desde Chile
"Emilio Boucau" escribió en el mensaje
news:
> Respondi a este mensaje hace un rato y no veo mi posta ... Antes me paso
lo
> mismo con un mensaje de como obtener la version del SQL Server. Envie un
> adjunto en ambos, sera por eso ? Alguien sabe si hubo problemas mientras
no
> estuve por aca ? Pongo el texto del adjunto. Es un stored procedure

hecho

> por 'un tal' Jasper Smith ...
>
>

>

>
> create proc sp_get_hostip (@spid int = NULL)
> as
> set nocount on
>
> declare @host varchar(100)
> declare @ip varchar(15)
> declare @cmd varchar(200)
> declare @temp varchar(255)
> create table #ip(iptext varchar(255))
>
> If @spid is null select @host = host_name()
> else
> select @host = max(hostname)
> from master..sysprocesses
> where spid = @spid
>
> if @host is not null
> begin
> set @cmd = 'ping -n 1 ' + @host
> insert #ip exec master..xp_cmdshell @cmd
> select @ip = ISNULL(substring(iptext,(charindex('[',iptext)+1),
> (charindex(']',iptext)-(charindex('[',iptext)+1))),'')
> from #ip
> where charindex('[',iptext)>0
> end
>
> drop table #ip
> select NULLIF(rtrim(@host),'') as 'Hostname',
> rtrim(@ip) as 'IP_Address'
>
> return
>
>
> Saludos !
>
> Emilio Boucau
> Microsoft MVP SQL Server
> http://www.portalsql.com
> PASS Spanish Group
> http://www.sqlpass.org
>
> Buenos Aires - Argentina
>
>