• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 215
  • Last Modified:

Getting the server time

Hi everyone,

I'm working on a project where I need to get the current date/time from an NT server rather than using the local PC system clock (on Windows 95 PC's).  I've seen loads of code for doing the same thing from an NT workstation to an NT server, using NETAPI32.dll but this does not work for Win 95.

Any help gratefully received !

Jules
0
JulianDavies
Asked:
JulianDavies
1 Solution
 
jrspanoCommented:
from planet source code

'**************************************
'Windows API/Global Declarations for :Ge
'     t Windows NT Server Time
'**************************************


Private Type TIME_OF_DAY
    t_elapsedt As Long
    t_msecs As Long
    t_hours As Long
    t_mins As Long
    t_secs As Long
    t_hunds As Long
    t_timezone As Long
    t_tinterval As Long
    t_day As Long
    t_month As Long
    t_year As Long
    t_weekday As Long
    End Type


Private Declare Function NetRemoteTOD Lib "netapi32.dll" (ByVal server As String, buffer As Any) As Long


Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (pTo As Any, uFrom As Any, ByVal lSize As Long)


Private Declare Function NetApiBufferFree Lib "netapi32.dll" (ByVal Ptr As Long) As Long



'**************************************
' Name: Get Windows NT Server Time
' Description:Returns the time of day fr
'     om a Windows NT workstation or server. A
'     ccounts for time zones. Requires Windows
'     NT.
' By: Matthew Ruffell
'
' Inputs:ServerName [string] = name of t
'     arget server.
'
' Returns:Return the time of day.
'
' Assumes:Requires Windows NT.
'
' Side Effects:Noen.
'
'This code is copyrighted and has' limited warranties.Please see http://w
'     ww.Planet-Source-Code.com/xq/ASP/txtCode
'     Id.3792/lngWId.1/qx/vb/scripts/ShowCode.
'     htm'for details.'**************************************



Public Function Get_ServerTime(ByVal strServerName As String) As String
    Dim lngBuffer As Long
    Dim strServer As String
    Dim lngNet32ApiReturnCode As Long
    Dim days As Date
    Dim TOD As TIME_OF_DAY
    On Error Resume Next
    '// Get server time
    strServer = StrConv(strServerName, vbUnicode) '// Convert the server name To unicode
    lngNet32ApiReturnCode = NetRemoteTOD(strServer, lngBuffer)


    If lngNet32ApiReturnCode = 0 Then
        CopyMem TOD, ByVal lngBuffer, Len(TOD)
        days = DateSerial(70, 1, 1) + (TOD.t_elapsedt / 60 / 60 / 24) '// Convert the elapsed time since 1/1/70 to a date
        days = days - (TOD.t_timezone / 60 / 24) '// Adjust For TimeZone differences
        Get_ServerTime = days
    End If
    '// Free pointers from memory
    Call NetApiBufferFree(lngBuffer)
End Function
0
 
glass_cookieCommented:
Hi!  I don't know if this is applicable, but here's the code:

Download...
http://www.vb-helper.com/Howto/wintime.zip

Description: See how long Windows has been running (2K)

That's it!

glass cookie : )
0
 
jrspanoCommented:
the above I gave you is the only way i know to do this, of course it doesn't work in win 95 which really doesn't help you.  Have you tried installing the netapi.dll on a win 95 machine?  It probably won't work but is worth a try.
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
ArkCommented:
Hi
You can save dummy file on server and get this file time stamp, smth like this:

Const DummyFile = "\\servername\c\dummy.txt"
Open DummyFile for OutPut As #1
Print #1, "Test"
Close #1
ServerTime = FileDateTime(DummyFile)
Kill DummyFile

Cheers
0
 
JulianDaviesAuthor Commented:
Nice piece of lateral thinking !!! Thanks Ark and thankyou to everyone else who added comments.

Jules
0
 
ArkCommented:
Thanks for points, glad I could help you
0

Featured Post

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now