Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to get NT server date and time.
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00226416
Message ID:
00299310
Views:
15
I must be doing something wrong but I ran the code you posted below and it keeps returning the date and time for my workstation, not the NT Server. Any Thoughts? Here is my exact code:

#DEFINE _SERVER "CYSSERVER"
#DEFINE _PATH "NETC"

cServerName = _SERVER
cPath = _PATH

local cUNC,cTmpFile,tServerTime

if empty( cServerName )
cServerName = _SERVER
endif
if empty( cPath )
cPath = _PATH
endif

cTmpFile = '!'+right(SYS(2015),7)+'.tmp'

cUNC = addbs('\\'+cServerName)

if left(cPath,1) = '\'
cPath = subs(cPath,2)
endif

cUNC = addbs(cUNC+cPath)+cTmpFile
set alternate to ( cUNC )
?
set alternate to
tServerTime = FDATE( cUNC, 1 )
? tServerTime
delete file ( cUNC )

---------------------------------------------------------------------------



>>How do I get date and time of NT server to register in to log file, from application running from Win 95 node.
>>
>>TIA
>
>Here's a function I wrote, that doesn't require using the API... seems to work ok.
>
>
>#DEFINE _SERVER "svrgoliath"
>#DEFINE _PATH "storage"
>
>function ServerTime( cServerName, cPath )
>
>local cUNC,cTmpFile,tServerTime
>
>if empty( cServerName )
>	cServerName = _SERVER
>endif
>if empty( cPath )
>	cPath = _PATH
>endif
>
>cTmpFile = '!'+right(SYS(2015),7)+'.tmp'
>
>cUNC = addbs('\\'+cServerName)
>
>if left(cPath,1) = '\'
>	cPath = subs(cPath,2)
>endif
>
>cUNC = addbs(cUNC+cPath)+cTmpFile
>
>set alternate to ( cUNC )
>?
>set alternate to
>
>tServerTime = FDATE( cUNC, 1 )
>
>delete file ( cUNC )
>
>return tServerTime
>
>
>It actually returns a DateTime but you can pull the time out if you want. As you can see, the user will need write,read,delete access on the path you sepcify for this to work.
>
>BOb
CySolutions, Medical Information Technology
You're only as good as your last
success, so . . .If it works. . .don't fix it!
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform