13. oktober 2004 - 10:03Der er
11 kommentarer og 1 løsning
Opdater ur
Jeg skal have windows uret opdateret via en tidsserver. Dette skal ske enten ved tryk på en knap eller på et bestemt tidspunkt.
Indtil videre kan jeg hente tiden fra en tidsserver og få den vist i en msgbox på skærmen ved hjælp af følgende kode samt et Winsock komponent.
Private Sub Command1_Click() Winsock1.RemoteHost = "pogostick.net" Winsock1.RemotePort = 13 Winsock1.Connect End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim strData As String Winsock1.GetData strData, vbString MsgBox strData Winsock1.Close End Sub
Nu vil jeg så gerne have at den opdaterer uret med den nyfundne tid. Jeg er sikker på det er lavet før men jeg kan ikke finde noget om det.
NET TIME [\\computer | /WORKGROUP:agnavn] [/SET] [/YES]
computer Angiver navnet på den computer (tidsserver), hvis tid du vil kontrollere eller synkronisere computerens ur med. /WORKGROUP Angiver, at du vil benytte uret på en computer (tidsserver) i en anden arbejdsgruppe. agnavn Angiver navnet på den arbejdsgruppe, der indeholder en computer, hvis ur du vil kontrollere eller synkronisere computerens ur med. Hvis der er flere tidsservere i den arbejdsgruppe, bruger NET TIME den første, den finder. /SET Synkroniserer computerens ur med uret på den computer eller arbejdsgruppe, du angiver. /YES Udfører kommandoen NET TIME uden først at bede dig om at give oplysninger eller bekræfte handlinger.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
