Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to get NT server date and time.
Message
De
04/06/1999 09:33:15
 
 
À
04/06/1999 07:43:51
Diptesh Patel
Unitelsoftware Ltd.
Mumbai, Inde
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00226416
Message ID:
00226472
Vues:
28
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform