Click here to Skip to main content
15,393,863 members
Articles / Programming Languages / Visual Basic
Posted 6 Jan 2004


24 bookmarked

Retrieving date and time from remote server using NetRemoteTOD in VB.NET

Rate me:
Please Sign up or sign in to vote.
4.27/5 (16 votes)
6 Jan 2004
This article will show how to retrieve the date and time from a remote server using the NetRemoteTOD function


This project shows how to use the NetRemoteTOD to retrieve the date/time from a remote server using VB.NET


Add the following imports line to your code:

Imports System.Runtime.InteropServices

API Functions

Add the following functions to your code:

Private Declare Unicode Function NetRemoteTOD Lib "netapi32" ( _
  <MarshalAs(UnmanagedType.LPWStr)> ByVal ServerName As String, _
  ByRef BufferPtr As IntPtr) As Integer
Private Declare Function NetApiBufferFree Lib _
  "netapi32" (ByVal Buffer As IntPtr) As Integer


Add the following structure to your code:

Dim tod_elapsedt As Integer
Dim tod_msecs As Integer
Dim tod_hours As Integer
Dim tod_mins As Integer
Dim tod_secs As Integer
Dim tod_hunds As Integer
Dim tod_timezone As Integer
Dim tod_tinterval As Integer
Dim tod_day As Integer
Dim tod_month As Integer
Dim tod_year As Integer
Dim tod_weekday As Integer
End Structure


Add the following function to your code:

Function GetNetRemoteTOD(ByVal strServerName As String) As Date
Dim iRet As Integer
Dim ptodi As IntPtr
Dim dDate As Date
strServerName = strServerName & vbNullChar
iRet = NetRemoteTOD(strServerName, ptodi)
If iRet = 0 Then
todi = CType(Marshal.PtrToStructure(ptodi, GetType(TIME_OF_DAY_INFO)), _
dDate = DateSerial(todi.tod_year, todi.tod_month, todi.tod_day) + " " + _
TimeSerial(todi.tod_hours, todi.tod_mins - todi.tod_timezone, todi.tod_secs)
GetNetRemoteTOD = dDate
MsgBox("Error retrieving time")
End If
MsgBox("Error in GetNetRemoteTOD: " & Err.Description)
End Try
End Function

Calling the function

Here is a sample code used to call the function. "servername" is replaced with the name of the actual server that you want to get the date/time from:

Dim dRemoteDate As Date
dRemoteDate = GetNetRemoteTOD("servername")
MsgBox("The remote date is " & dRemoteDate)


That's all folks! I wanted to make this as easy to understand as possible. I am also attaching a complete sample project which has this interface:

Sample screenshot

Let me know if you have any questions.


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


About the Author

Web Developer
United States United States
No Biography provided

Comments and Discussions

QuestionDoesn't work in Windows 10 Pin
Gerry Lindsay29-Dec-20 7:57
MemberGerry Lindsay29-Dec-20 7:57 
Questionnote for test Pin
Member 100456472-Jul-17 3:49
MemberMember 100456472-Jul-17 3:49 
GeneralMy vote of 1 Pin
Member 857381017-Jan-12 0:13
MemberMember 857381017-Jan-12 0:13 
GeneralDay Increment/Decrement Problem Pin
M. Ousama Ghazali7-Jul-09 20:22
MemberM. Ousama Ghazali7-Jul-09 20:22 
GeneralNetRemoteTOD Pin
cocacolacool9-Jun-09 20:41
Membercocacolacool9-Jun-09 20:41 
Generallinux version Pin
ctarsoaga5-Mar-07 7:47
Memberctarsoaga5-Mar-07 7:47 
GeneralWhere do I fill in my username and password Pin
karthik_885-Apr-06 6:16
Memberkarthik_885-Apr-06 6:16 
GeneralDoesn't work for me urgent pls... Pin
pugak23-Aug-05 18:14
Memberpugak23-Aug-05 18:14 
GeneralDoesn't work for me urgent pls... Pin
pugak23-Aug-05 18:12
Memberpugak23-Aug-05 18:12 
GeneralExtend to include milliseconds Pin
Member 17661643-Aug-05 7:44
MemberMember 17661643-Aug-05 7:44 
QuestionMust have a session first, but how in .NET ? Pin
msouphy15-Jun-05 23:10
Membermsouphy15-Jun-05 23:10 
GeneralDoesn't work with a unix server Pin
weezowazo19-Jan-05 6:19
Memberweezowazo19-Jan-05 6:19 
GeneralSame function fixed and compressed Pin
Ted14059-Nov-04 16:39
MemberTed14059-Nov-04 16:39 
QuestionRe: Same function fixed and compressed Pin
DorMarchan14-May-08 5:52
MemberDorMarchan14-May-08 5:52 
GeneralDoesn't always work Pin
Anonymous27-Sep-04 11:54
MemberAnonymous27-Sep-04 11:54 
GeneralRe: Doesn't always work Pin
Anonymous28-Sep-04 5:17
MemberAnonymous28-Sep-04 5:17 
GeneralRe: Doesn't always work - here's a cleaned up version Pin
plq110-May-08 19:00
Memberplq110-May-08 19:00 
GeneralVery Good Article... Pin
jkutsor13-Jan-04 1:18
Memberjkutsor13-Jan-04 1:18 
GeneralRe: Very Good Article... Pin
SeaWater13-Jan-04 2:14
MemberSeaWater13-Jan-04 2:14 
QuestionHow about net time Pin
hmlinder9-Jan-04 0:26
Memberhmlinder9-Jan-04 0:26 
AnswerRe: How about net time Pin
SeaWater9-Jan-04 2:38
MemberSeaWater9-Jan-04 2:38 
Smile | :) Hello, you can use net time but, net time is intended to be used as a command line tool and not an api. There are also a couple of disadvantages of using net time instead of NetRemoteTOD:

1. Net Time is an older command line tool from Microsoft.

2. You must be logged on to the system in order for net time to work. (Not the case with NetRemoteTOD). In the case the system boots up and no one is logged in, the net time command will not work unless you log in.

3. The main problem with net time is that it behaves differently on Windows NT/2K/XP/2003 and Win3x/95/98 in how it handles time zones. On the other hand, when using NetRemoteTOD, you have complete control of the time zone as you see in the code above.


GeneralWhy not just use a web service Pin
hmlinder7-Jan-04 15:27
Memberhmlinder7-Jan-04 15:27 
GeneralRe: Why not just use a web service Pin
SeaWater8-Jan-04 2:52
MemberSeaWater8-Jan-04 2:52 
GeneralRe: Why not just use a web service Pin
Anonymous4-Feb-04 6:40
MemberAnonymous4-Feb-04 6:40 
GeneralRe: Why not just use a web service Pin
Anonymous4-Feb-04 7:03
MemberAnonymous4-Feb-04 7:03 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.