Solved

Getting the server time

Posted on 2001-06-11
6
208 Views
Last Modified: 2010-05-02
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
Comment
Question by:JulianDavies
6 Comments
 
LVL 3

Expert Comment

by:jrspano
ID: 6178033
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
 
LVL 8

Expert Comment

by:glass_cookie
ID: 6179875
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
 
LVL 3

Expert Comment

by:jrspano
ID: 6180945
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
Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

 
LVL 27

Accepted Solution

by:
Ark earned 200 total points
ID: 6189257
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
 

Author Comment

by:JulianDavies
ID: 6189945
Nice piece of lateral thinking !!! Thanks Ark and thankyou to everyone else who added comments.

Jules
0
 
LVL 27

Expert Comment

by:Ark
ID: 6190098
Thanks for points, glad I could help you
0

Featured Post

Are your AD admin tools letting you down?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question