16.txt

VB实用技巧124则之1-62则 为了使每包文件个数少于65(获得更快的解压速度),此包文件分为了两部分,请分别下载.

保证连网计算机时间同步

执行命令：
net time "\\OhterComputerName" /set /yes 可以保证名称为OhterComputerName 的计算机与本机时间同步。
Public Sub SyncTime()
Dim thecomp As String
Dim theshell As String
thecomp = "\\computername"
theshell = "net time " & Chr(34) & thecomp & Chr(34) & " /set /yes"
x = Shell(theshell) 
End Sub