FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Obtener Fecha y Hora del Servidor Desde un Tarminal
Posts: 2
Joined: Thu Apr 17, 2008 06:54 AM
Obtener Fecha y Hora del Servidor Desde un Tarminal
Posted: Sat Apr 19, 2008 02:19 AM

Tengo una aplicacion instalada en un serviror, por medio de las terminalescaptan la fecha y hora de cada terminal pero por lo regular no estansinclonizadas la fecha y la hora.

La Pregunta es: como puedo captar la fecha y hora del servidor ignorando lade las terminales.

Mi aplicacion esta en FW2.6 XhB

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Obtener Fecha y Hora del Servidor Desde un Tarminal
Posted: Sat Apr 19, 2008 08:51 AM

Alfredo,

Prueba con:

WinExec( "NET TIME \Server" )

http://support.microsoft.com/kb/314090/es

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Obtener Fecha y Hora del Servidor Desde un Tarminal
Posted: Sat Apr 19, 2008 08:58 AM

Otra forma más elegante, sin tener que usar la función WinExec(), es usar la función NetRemoteTOD():

http://msdn2.microsoft.com/en-us/library/aa370612(VS.85).aspx

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Obtener Fecha y Hora del Servidor Desde un Tarminal
Posted: Sun Apr 20, 2008 12:55 AM

Yo le hago asi y actualizas tu terminal con la hora del servidor:

Function SETDATE() // esta funcion debe quitarse en versiones futuras
local vServer

vServer := "COMMAND.COM /C NET TIME \" + oApp:cPortServ + " /SET /YES"
WaitRun(vServer,0) // ejecutor externo

Return(Nil)

Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Obtener Fecha y Hora del Servidor Desde un Tarminal
Posted: Sun Apr 20, 2008 12:59 AM

UPs,,
oApp:cPortServ := "\server" //
Return(Nil)

Posts: 2
Joined: Thu Apr 17, 2008 06:54 AM
Obtener Fecha y Hora del Servidor Desde un Tarminal
Posted: Thu Apr 24, 2008 05:04 AM

Antonio y Willi, muchas gracias por su apoyo,
Probe la opcion de Antonio WinExec y la de Willi WaitRun y me funcionaron muy bien.

No me ha funcionado la otra opcion NetRemoreTOD(), Antonio tendras un ejemplo.

A los dos muchisimas gracias por su apoyo.

No habia escrito porque el forum tenia problemas.

NUEVAMENTE MUCHAS GRACIAS

Continue the discussion