>How do you get the server time, using VFP6, if it was NT server?

---

I got the idea from Ed Rauh.

lparameters tcDataFile && Any file that reside on server data path
lcOldFullpath = set("fullpath")
lcOldSeconds = set("seconds")
set fullpath on
use (tcDataFile) in 0 alias "crsDummy"
lcDataPath = substr(dbf("crsDummy"),1,rat("\",dbf("crsDummy")))
use in "crsDummy"
set fullpath &lcOldFullpath
lcTempFileName = lcDataPath + "T"+sys(2015)+".tmp"
handle = fcreate(lcTempFileName)
ltServerTime = ctot(dtoc(fdate(lcTempFileName))+" "+ftime(lcTempFileName))
=fclose(handle)
erase (lcTempFileName)
set seconds &lcOldSeconds
return ltServerTime

Cetin