Retrieving Windows Time in Perl

[thebarslider]

Hello All,

I have a bit of a problem, i need to work out the date/time from a Perl script running on a local Windows box. But i need to retrieve the time from a Windows server to ensure it is accurate, does anyone have any ideas on how to do this?

All suggestions are much appreciated.

Mark.

 

[PaulTEG]

Have I got this right?

Windows Time on the Client
Windows Time on the Server
Compare

If so, you'll need some sort of service to get the time back from the server, so it's running under the server resources, as opposed to just running a file that resides on the server

You could use SRVANY to install a perl script as a service, which simply updates a file with the time each second, if thats granular enough, and have the local script read form that file

Or it could issue a request on a socket, and return the time of the server.

If it was me, i'd have all the windows machines taking their time from the same source, from an administration point of view

HTH
--Paul

cigless ...

 

[MikeLacey]

Net::NTP seems to do what you want, you can get the module from

http://www.cpan.org

and there's (poor) documentation at

http://cpan.uwinnipeg.ca/htdocs/Net-NTP/Net/NTP.html

To do this the server you want to check will have to be running an ntp time server.

You'll also have to have a look at RFC1305 which is available at

http://www.faqs.org/rfcs/rfc1305.html

as Net::NTP returns values in the format defined in RFC1305.

The Net::NTP "documentation" says that it "returns an associative array of the various parts of the packet as outlined in RFC1305" which isn't very helpful really, you'll have to dig through the contents of what it returns.

Mike

You cannot really appreciate Dilbert unless you've read it in the
original Klingon.

Want great answers to your Tek-Tips questions? Have a look at faq219-2884