Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to get NT server date and time.
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00226416
Message ID:
00299310
Vues:
14
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!
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform