<font color=green>' benötigte API-Deklaration</font>
Private Declare Function WaitForSingleObject Lib _
  "kernel32" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long

<font color=green>' Ewartet wird die Zeitangabe in Millisekunden!
' z.B. 1000 für 1 Sekunde
Private Function Wait(ByVal mSek As Long)
  WaitForSingleObject -1, mSek
End Function

Private Sub Command1_Click()
  Dim sTempFile As String
  Dim F As Integer
  Dim sDateTime As String
  Dim sDomain As String
 
  sTempFile = "C:NETTIME.TXT"
  sDomain = "\Rechnername"
  Shell Environ$("COMSPEC") + " /C NET TIME " & sDomain & " >" + sTempFile
 
  <font color=green>' kurz warten</font>
  Wait 250
 
  F = FreeFile
  Open sTempFile For Input As F
  Line Input #F, sDateTime
  Close F
 
  MsgBox sDateTime, vbOKOnly, "NET Time"
End Sub