Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datum eijnes Lokalen Servers lesen.... Aber wie
Autor: Rippler
Datum: 27.09.09 10:47
Option Explicit Private Type TIME_OF_DAY 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 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 Function NetApiBufferFree _ Lib "NETAPI32.DLL" _ (ByVal Buffer As Long) As Long Private Declare Sub CopyMemory _ Lib "kernel32" Alias "RtlMoveMemory" _ (hpvDest As Any, _ hpvSource As Any, _ ByVal cbCopy As Long) Public Function GetTimeFromServer(ByVal LogonServer As String) As Date Dim TOD As TIME_OF_DAY Dim TPtr As Long Dim lngRet As Long Dim todays As Date LogonServer = StrConv(LogonServer, vbUnicode) lngRet = NetRemoteTOD(LogonServer, TPtr) If lngRet = 0 Then CopyMemory TOD, ByVal TPtr, Len(TOD) NetApiBufferFree (TPtr) GetTimeFromServer = DateAdd _ ("n", -TOD.tod_timezone, _ DateSerial(TOD.t_year, TOD.t_month, TOD.t_day) _ + TimeSerial _ (TOD.tod_hours, TOD.tod_mins, TOD.tod_secs)) Else MsgBox "NetRemoteTOD Fehler: " & lngRet GetTimeFromServer = 0 End If End Function Private Sub Command1_Click() Text1.Text = GetTimeFromServer("\\server") End Sub

Datum eijnes Lokalen Servers lesen.... Aber wie	841	NWK	27.09.09 09:44
Re: Datum eijnes Lokalen Servers lesen.... Aber wie	506	Rippler	27.09.09 10:47
Re: Datum eines Lokalen Servers lesen.... Aber wie	476	bfritz	27.09.09 21:35

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen