<p>保證連網(wǎng)計(jì)算機(jī)時(shí)間同步</p>
<p></p>
<p>執(zhí)行命令：</p>
<p>net time "\\OhterComputerName" /set /yes 可以保證名稱為OhterComputerName 的計(jì)算機(jī)與本機(jī)時(shí)間同步。</p>
<p>Public Sub SyncTime()</p>
<p>Dim thecomp As String</p>
<p>Dim theshell As String</p>
<p>thecomp = "\\computername"</p>
<p>theshell = "net time " & Chr(34) & thecomp & Chr(34) & " /set /yes"</p>
<p>x = Shell(theshell) </p>
<p>End Sub</p>
<p></p>