Solved

Getting the server time

Posted on 2001-06-11
6
211 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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
Technology Partners: 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!

 
LVL 28

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 28

Expert Comment

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

Featured Post

SharePoint Admin?

Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.

Question has a verified solution.

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

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
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…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

707 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