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
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
detectar terminal activa en red local
-
PEDRO DE LEON RODAS[3]
- Mensajes: 266
- Registrado: Mar Oct 28, 2008 4:41 am
-
Marcelo Coelho Silva
- Mensajes: 269
- Registrado: Sab May 31, 2008 4:49 pm
- Ubicación: Brasil
- Contactar:
detectar terminal activa en red local
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
>
>
>
>
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
>
>
>
>
Att.
Marcelo Coelho Silva
Brasil.
Marcelo Coelho Silva
Brasil.
-
PEDRO DE LEON RODAS[3]
- Mensajes: 266
- Registrado: Mar Oct 28, 2008 4:41 am
detectar terminal activa en red local
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
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
detectar terminal activa en red local
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
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