Get Server Date through visual basic

This will also work from Win98 where netremotetod api will not.Just paste this into a form with a command button and change the ServerIp string to the ip address of your server.

Private Declare Function OpenProcess Lib "Kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "Kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400

Private Sub ShellWait(ByVal JobToDo As String)
         Dim hProcess As Long
         Dim RetVal As Long
         hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(JobToDo, vbHide))
         Do
             GetExitCodeProcess hProcess, RetVal
             DoEvents: Sleep 100
         Loop While RetVal = STILL_ACTIVE
End Sub

Private Sub Command1_Click()
Dim ServerIp As String, Ln As String
Dim ff As Integer
ServerIp = "192.168.1.100"
ShellWait "command.com /c net time \\" & ServerIp & " > C:\time.tmp"
ff = FreeFile
Open "C:\time.tmp" For Input As #ff
Do Until EOF(ff)
Line Input #ff, Ln
If InStr(Ln, "Current") > 0 Then
    MsgBox Ln
End If
Loop
Close #ff
End Sub

ckavitha:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1
EXPERTS:
Post your closing recommendations!  No comment means you don't care.

Actually I found another/better way of doing this in someother site. It is by creating a file in the server and reading the date of the file created and deleting the file.

Hence I request to delete this question and refund the points.

bye,
kavitha

That is another way of doing it. As for it being a better way,I don't think so.In my opinion it is a sloppy way of doing it.

I agree with vinnyd79. There is a lot delay and not reliable when you do the way you do.

Anyway good luck

I welcome your comment vinnyd79. Could you please let me know which way it is sloppy?

There is a problem in using command.com and some machine it pops up as an error.

bye,
kavitha

use environ("COMSPEC") instead


ie

ShellWait environ("COMSPEC")  & " /c net time \\" & ServerIp & " > C:\time.tmp"


should give vinnyd79 credit


8->

I do agree that vinny79 deserves a credit. However, when I already have solution and have not used the solution provided, do I have to transfer my points.

bye,
kavitha

No, don't worry about the points.If your solution works for you use it.In my opinion the best solution is netremotetod API as EDDYKT has suggested but unfortunately if you need your solution to work on win98,then it will not help. Your solution is fine if you just need it to work as a tool on your network,but I don't think it is a better solution.I also believe it is slower and less reliable as well.

I have no problem with you asking for a points refund.

Vinny

No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in the Cleanup topic area that this question is:

 -->PAQ - with points refunded

Please leave any comments here within the next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER

GPrentice00
Cleanup Volunteer