プログラム開発「備忘録」

Option Compare Database Option Explicit

Private Declare Function NetApiBufferFree Lib "netapi32.dll"

   （ByVal Buffer As Long) As Long

'Private Declare Function RtlMoveMemory Lib "kernel32"

   （Destination As Any, Source As Any, ByVal 

Length As Long)

Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory"

   （Destination As Any, Source As Any, ByVal Length As 

Long)

Private Declare Function NetRemoteTOD Lib "netapi32.dll"

   （ByVal servername As String, BufferPtr As Any) 

As Long

Private Type TIME_OF_DAY_INFO

   tod_1 As Long
   tod_2 As Long
   tod_3 As Long
   tod_4 As Long
   tod_5 As Long
   tod_6 As Long
   tod_7 As Long
   tod_8 As Long
   tod_9 As Long
   tod_10 As Long
   tod_11 As Long
   tod_12 As Long

End Type

Private Sub リモートＰＣシステム時間_Click()

   Dim udtTODInfo As TIME_OF_DAY_INFO
   Dim strServerName As String
   Dim lngBufPtr As Long
   Dim lngReturn As Long
   
   strServerName = StrConv&（"\\SERVER", vbUnicode)

' strServerName = StrConv&（"", vbUnicode)'自ＰＣの時間

   
   lngReturn = NetRemoteTOD（strServerName, lngBufPtr)
   
   MoveMemory udtTODInfo, ByVal lngBufPtr, Len（udtTODInfo)
   
   If lngBufPtr <> 0 Then
       lngReturn = NetApiBufferFree&（lngBufPtr)
   End If
   
   With udtTODInfo
       Debug.Print .tod_1; "秒(from 1970/1/1 GNT)"
       Debug.Print .tod_2; "ミリ秒"
       Debug.Print .tod_3; "時"
       Debug.Print .tod_4; "分"
       Debug.Print .tod_5; "秒"
       Debug.Print .tod_6; "1/100秒"
       Debug.Print .tod_7; "分（タイムゾーン）"
       Debug.Print .tod_8; "1/10000秒（インターバル）"
       Debug.Print .tod_9; "日"
       Debug.Print .tod_10; "月"
       Debug.Print .tod_11; "年"
       Debug.Print .tod_12; "番目の曜日"
   End With
    

「ＶＢ６．０　３００の技」参考

End Sub