FiveTech Software tech support forums

... SWPanelRefresh( oPan, cStr )
inkey(1)

SWPanelClose( oPan )

? 'Tempo da leitura dos registros: ' + CRLF +;
ElapTime(cTime,TIME()) + CRLF +;
NETNAME()

SELECT MULTIFUN
MULTIFUN->(DBSETORDER(1))
MULTIFUN->(DBGOTOP())
MULTIFUN->(DBSEEK("00132"))

? MULTIFUN->NOMFUN , MULTIFUN->CODFUN ...

This function will give you the current user logged into the machine. ( like netname )

Rick Lipkin

NetName() devuelve el nombre del PC, pero creo que en entornos de escritorio remoto te dara el nombre del servidor.

pruebalo!


Saludos

Carito
Saludos
Tambien puedes utilizar NETNAME()
Estas son nativas desde clipper.

... como especie de bitacora que guarde las operaciones que se hacen desde cada estacion.

Gracias de antemano.
Una sugerencia: ¿Que te parece usar NetName (El nombre en la red del equipo)? Lo de la IP es muy relativo: Puede venir asignada por DHCP, pueden haber diferentes IPs segun se conecte por ...

... Function MAIN()
SET COLOR TO
CLEAR

? HB_VERSION()
? HB_BuildDate()
? HB_PCodeVer()
?
? HB_COMPILER()
?
? OS()
?
? Version()
? "Database Engine: "+RDDSetDefault()+" "+DBTableEXT()+"/"+ORDBagEXT()
? "Nome Computer: "+NETNAME()
?
WAIT

Return .T.

=====================

Regards

... Nil
NationMsg(<nMessageID>)->cMessage
NetCancel(<cLocalDevice>)->lIsReleased
NetDisk(<cDrive>)->lIsNetworkDrive
NetErr(<lNewError>)->lError
NetName()->cWorkstationName
NetPrinter()->lIsNetworkPrinter
NetRedir(<cLocal>,<cServer>,[<cPassword>],[<lShowError>])->lSuccess
NetRmtName(<cLocal ...

... MLPos
Mod
Month
MPosToLC
MPresent
MRestState
MRightDown
MRow
MSaveState
MSetBounds
MSetCursor
MSetPos
MShow
NationMsg
NetCancel
NetDisk
NetErr
NetName
NetPrinter
NetRedir
NetRmtName
Network
NextKey
NNetwork
NoSnow
Notify
NotifyAll
NtoC
NtoCDoW
NtoCMonth
NtoColor
Nul
NumAND
NumAt
NumButtons ...

... algún dato más?
Para poder controlar que no hagan mal uso de ésta aplicación de prueba? Por ejemplo, copiar ideas...
Voy a utilizar el NetName para saber el nombre de la compu, pero se podrá tomar algo más
del registro de Windows? Obvio que sin invadir su privacidad, solo para conocer y ...

Thanks!
I'll try all the options

I'm using NetName(.T.) but don't work as I want.

This may provide what you are looking for:

In xharbour you can use the netname() function. It takes one logical argument, which defaults to .t. and returns the user name. If set to false it returns the name of the device.

In harbour the function hb_UserName() will return the user and netname() with ...

Hola a todos.
Estoy buscando alguna funcion que me devuelva el nombre de todas las pc que esten en la red local, encuentro NetName() del viejo clipper pero solo me da el nombre de la PC local. Gracias.

Jorge Jaurena

Have you tried :
FileCopy( "C:\File.zip" , "\\NetName\DestineFolder\File.zip" )

Gracias RSalazarU por tu ayuda, realmente con NetName() se consigue el nombre del usuario o lo que para el windows es el USERDOMAIN.
Gracias también a ti Silvio.Falconi por el interesante enlace.

Con todo y con eso, estoy estudiando una solución para poder cambiar el USERNAME de windows. Tan pronto ...

Gabriel:

Creo que deberias usar NetName() en vez de WNetGetUser() , esta funcion te da el nombre del equipo donde se esta corriendo la aplicacion.

El nombre del equipo es unico en cada LAN, no puede haber duplicados, si los hay fallaria la conexion. Es un tema de REDES.

Cada equipo en una LAN tiene ...