保证连网计算机时间同步
出处：网络

执行命令：

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

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明