保证连网计算机时间同步

资讯 2008-03-17 驱动中国若水 909 次阅读 0 条评论

执行命令：

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

同步时间计算机保证 thecomp theshell

本文价值 ★★★★★ — 成为第一个评分的人

登录后为本文打分

网友评论0 条评论

正在回复的评论取消

评论加载中…

🔐

评论、点赞均可赚积分
连续签到、邀请好友也有奖励 🎁