Sinkronisasi Jam Local dengan Jam Server (Visual Foxpro)

* sinkronisasi jam dengan server
* =timeserver(cNamesvr)
*-------------------------------------
FUNCTION timeserver
PARAMETERS cNmsvr
myServerName=cNmsvr
lcCmd = GETENV("ComSpec") + " /C NET TIME \\"+ ;
myServerName+" /SET /YES"
loShell = CREATEOBJECT("wscript.shell")
loShell.Run(lcCmd,0,.t.)
ENDFUNC