Xailer & OZ Software

Saludos.
Alguien sabe..
Como puedo detectar si una terminal o pc está activa dentro de la red local.
O como detectar si una ip esta en uso.
Por sus ayudas, mil gracias
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5002 (20100405) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

Pedro,
Não procurei a funçao em xHarbour, mas tente procurar uma função que
faça um PING no numero IP do Terminal.
atenciosamente,
Marcelo Coelho Silva
Brasil
Em 06/04/2010 02:11, PEDRO DE LEON RODAS escreveu:
> Saludos.
> Alguien sabe..
> Como puedo detectar si una terminal o pc está activa dentro de la red local.
> O como detectar si una ip esta en uso.
>
> Por sus ayudas, mil gracias
>
>
>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5002 (20100405) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
>

Marcelo.
Gracias por tu respuesta.
Lo hice a la antigua.
METHOD BtnBmp4Click( oSender ) CLASS PRUEBA
Local archivo,nSize
nSize=0
MEMOWRIT("detecta.bat","net.exe view "+::Terminal:Value+" > terminal.txt")
// GENERO UN ARCHIVO BAT
/// NET.EXE ES UN COMANDO EN MSDOS CON EL PARAMETRO VIEW
//// ::TERMINAL ES UN TEDIT EN EL CUAL PONGO LA TERMINAL
/// EL > SIRVE PARA ENVIAR LA INFORMACION AL ARCHIVO TERMINAL.TXT
Execute("detecta.bat",.f.,,SW_HIDE) /// EJECUTO EL ARCHIVO BAT
inkey(4) /// ESPERO 4 SEGUNDOS
archivo = Fopen(".terminal.txt") ABRO EL ARCHIVO TXT EN DONDE SE GUARDA EL
RESULTADO DEL NET.EXE VIEW
nSize = Fseek(archivo, 0, 2) // MUEVE EL PUNTERO AL FINAL
IF nSize <= 0 // SI ESTA VACIO EL ARCHIVO
ELSE
nSize= FSEEK(archivo, 0, 0) ARCHIVO CON INFORMACION
ENDIF
Fclose(archivo) // CIERRA EL ARCHIVO
Delete File(".terminal.txt")
Delete File(".detecta.bat")
Return nil
EN FOXPRO EXISTE ESTO:
SET LIBRARY TO FoxTools ADDITIVE
DIMENSION aFileVer[12]
nRetVal = GetFileVersion(GetFile("EXE"),@aFileVer)
IF nRetVal = 0
DISPLAY MEMO LIKE aFileVer
ENDIF
SET LIBRARY TO Posiblemente y es mas seguro que exista otro metodo con menos
codigo.
Esto me funciona perfectamente bien
Por si a alguien le sirve.
Saludos.
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5008 (20100407) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

Pedro,
En la ayuda xHarbour contiene muchas funciones de red.
Talvez algunos puede resolver su problema como lo Netname () por ejemplo:
NetName()
Retrieves the current user name or the computer name.
Syntax
NetName( [<lInfo>] ) --> cComputerName | cUserName
Arguments
<lInfo>
If <lInfo> is set to .T. (true), the function returns the user account name,
otherwise
it returns the computer name.
Return
The function returns a character string containing either the computer name
or the user name. If this information cannot be retrieved, an empty string
("") is returned.
Description
NetName() serves informational purposes and is used when
Manual xHarbour: http://www.sendspace.com/pro/dl/xit7ed
Saludos!
Mário Angelini
www.eMeAsOfT.com
http://emeasoft.blogspot.com/
http://twitter.com/emeasoft