?
Solved

Retrieve NT Server time over network from 95 machine.

Posted on 1998-10-15
9
Medium Priority
?
151 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
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 2

Accepted Solution

by:
Poddy earned 100 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
 
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

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

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.
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
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…
Suggested Courses
Course of the Month9 days, 9 hours left to enroll

609 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