COMO LEER LA HORA DE UN SERVIDOR, ASI LO HICE
Publicado por juan (78 intervenciones) el 23/04/2008 16:39:23
Como leer la hora desde una estacion de trabajo y sincronizar con el del servidor, de manera que la hora registrada sea del servidor y no de las estaciones de trabajo
el servidor esta localizado en "\server1"
se ejecuta asi la rutina
DO actualizarhora WITH "\server1"
....................
PROCEDURE actualizarhora
PARAMETERS lcserver
IF EMPTY(lcserver)
RETURN
ENDIF
DECLARE LONG WinExec IN kernel32 STRING lpCmdLine, LONG nCmdShow
**lcServer = "\foxparaguay"
ccomando = 'NET TIME ' + lcserver + ' /SET /YES'
winexec(ccomando,0)
ENDPROC
el servidor esta localizado en "\server1"
se ejecuta asi la rutina
DO actualizarhora WITH "\server1"
....................
PROCEDURE actualizarhora
PARAMETERS lcserver
IF EMPTY(lcserver)
RETURN
ENDIF
DECLARE LONG WinExec IN kernel32 STRING lpCmdLine, LONG nCmdShow
**lcServer = "\foxparaguay"
ccomando = 'NET TIME ' + lcserver + ' /SET /YES'
winexec(ccomando,0)
ENDPROC
Valora esta pregunta
0