Solved

Retrieve NT Server time over network from 95 machine.

Posted on 1998-10-15
9
137 Views
Last Modified: 2012-05-04
How can I retrieve the current TOD on the NT server (or any other machine connected to the network for that matter) from a 95 machine ?
0
Comment
Question by:TAD062998
  • 4
  • 2
  • 2
  • +1
9 Comments
 

Expert Comment

by:sjrl
ID: 1440054
Excuse my naivety, but what do you mean by TOD?
0
 
LVL 4

Expert Comment

by:mcix
ID: 1440055
0
 
LVL 4

Expert Comment

by:mcix
ID: 1440056
0
 
LVL 2

Accepted Solution

by:
Poddy earned 50 total points
ID: 1440057
This should do the trick

The RAdmin32 dll is part of the remote administration tools set if you don't have it installed (it also needs RLocal32 installed)

Private Declare Function NetRemoteTOD Lib "Radmin32.dll" Alias "NetRemoteTODA" (ByVal pstrServerName As String, rptrTodi As Long) As Long


Private Type TimeOfDayInfo
  tod_Elapsedt As Long
  tod_MSecs As Long
  tod_Hours As Long
  tod_Mins As Long
  tod_Secs As Long
  tod_Hunds As Long
  tod_Timezone As Long
  tod_TInterval As Long
  tod_Day As Long
  tod_Month As Long
  tod_Year As Long
  tod_Weekday As Long
End Type

Private Function GetTODI(ByVal pstrServerName As String, rtypTODI As TimeOfDayInfo) As Boolean
  Dim intLoop As Integer   ' Size of Time_Of_Day structure
  Dim lngRet As Long    ' result value
  Dim lngToad As Long
      ' Get Time of Day Structure
    lngRet = NetRemoteTOD(pstrServerName, lngToad)
        ' If Ok
      If lngRet = 0 Then
          ' Move result data to structure
        CopyMemory rtypTODI, lngToad, LenB(rtypTODI)
        GetTODI = True
      Else
        GetTODI = False
      End If
End Function
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 2

Expert Comment

by:Poddy
ID: 1440058
You'll need this as well !

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)

0
 
LVL 2

Expert Comment

by:Poddy
ID: 1440059
You'll need this as well !

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)

Also, watch out for time zone/summer time adjustments

0
 

Author Comment

by:TAD062998
ID: 1440060
For sjrl - Time Of day.
For mcix - The site you suggested and code written by Jim Huff makes use of TCP/IP which poses a problem as the site where I wish to implement this functionality is running peer-peer at the moment with the hopes of placing a NT Server as domain controller. To the best of my knowledge, the individual machines will not have IP addresses. This will, however, have to be investigated a bit further.
For Poddy - I would appreciate your patience before I accept/grade the answer as the local server I'm testing on does not have Remote Access Administration installed. I'll be able to test the code once this has been done (the machine does not belong to me so this may take some time). P.S. The site indicated by mcix addresses the problem of timezones and daylight saving.
0
 
LVL 2

Expert Comment

by:Poddy
ID: 1440061
I don't think you need to install the remote access on the server, simply on the Windows 95 client

In fact, all you need on the client is the two DLLs.


0
 

Author Comment

by:TAD062998
ID: 1440062
I must apologise for my late return but I've been unable to get my hands on the required Dll's for Remote Access Administration. I'll accept the answer before it is auto-accepted by the system in the hope that it is correct when I do eventually get a chance to test it.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
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…

895 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now