Obtener del nombre del equipo de red

2,207 views
Skip to first unread message

PETACA

unread,
May 2, 2011, 6:20:52 PM5/2/11
to Comunidad de Visual Foxpro en Español
Hola a todos. Alguien sabe como puedo obtener el nombre del equipo en
la red desde donde estoy ejecutando mi aplicación.
Gracias.

Ing.Daniel Bojorge

unread,
May 2, 2011, 6:30:48 PM5/2/11
to publice...@googlegroups.com
Para saber el nombre de la pc, podés usar las variables de entorno, como por ejemplo %COMPUTERNAME% y lo podés convinar con el getenv, ejemplo, tratá de ejecutar 

?getenv("COMPUTERNAME")

También podés utilizar sys(0)


Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

Desarrollos EfiMax

unread,
May 2, 2011, 6:40:36 PM5/2/11
to publice...@googlegroups.com
Revise la función:
 
?sys(0)
 
Que estés bien.
=====================================
Desarrollos EfiMax
Ing. Carlos Omar Figueroa López
http://www.efimax.com.mx
Hermosillo,Sonora
=====================================

Armando Rodríguez

unread,
May 3, 2011, 10:31:16 AM5/3/11
to publice...@googlegroups.com
Pituca. Prueba con sys(0)

Saludos
Armando

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de PETACA
Enviado el: Lunes, 02 de Mayo de 2011 05:21 p.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Obtener del nombre del equipo de red

Luis Maria Guayan

unread,
May 3, 2011, 10:34:10 AM5/3/11
to publice...@googlegroups.com
? GETWORDNUM(SYS(0),1)

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

Rene Ricardo

unread,
May 3, 2011, 10:52:10 AM5/3/11
to publice...@googlegroups.com
Prueba con el siguiente codigo:

lcNomMachine1 = ALLTRIM(ID())
lcNomMachine2 = ""
FOR k = 1 TO LEN(lcNomMachine1)
        cChar = SUBSTR(lcNomMachine1,k,1)
        IF cChar = "#"
            EXIT
        ENDIF
        lcNomMachine2 = lcNomMachine2 + cChar  
ENDFOR

Ing.Daniel Bojorge

unread,
May 3, 2011, 10:56:39 AM5/3/11
to publice...@googlegroups.com
Ya dije anteriormente, es más fácil con un
?getenv("COMPUTERNAME")

y listo.




Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)



Adrian Fiandrino

unread,
May 3, 2011, 1:31:53 PM5/3/11
to Comunidad de Visual Foxpro en Español
Me parece más práctico la opción de Luis María Guayán, porque te da la
opción de saber también el usuario que inicio sesión:

? GETWORDNUM(SYS(0),1) &&& Nombre del Equipo

? GETWORDNUM(SYS(0),3) &&& Nombre Usuario de sesión

Saludos
Adrián



On 3 mayo, 11:56, "Ing.Daniel Bojorge" <debs.fo...@gmail.com> wrote:
> Ya dije anteriormente, es más fácil con un
> ?getenv("COMPUTERNAME")
>
> y listo.
>
> Dios L@s Bendiga
>
> Saludos,
>
> Daniel (Con 1 Estrella DCE de Microsoft)
> Nicaragua
>
> "Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas,
> pidan lo que quieran y se les dará.
> (Juan 15:7 DHH)
> Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
> (Jeremías 17:7 RV2000)
>
Reply all
Reply to author
Forward
0 new messages