16.htm

vb功能实例介绍。详细、很好的实例说明。

<p>保证连网计算机时间同步</p>
<p></p>
<p>执行命令：</p>
<p>net time "\\OhterComputerName" /set /yes 可以保证名称为OhterComputerName 的计算机与本机时间同步。</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>