时间与主机同步的问题

真主

这段代码在Administrators组权限下可以使本机与指定电脑时间同步,在Users组下只能把本机时间读出来,可不可以在Users组下也能与主机同步
    Dim x As Double
    x = Shell("net time \\192.168.0.1 /set /yes", vbHide)
    Txt时钟 = Now()

阿罗

这位朋友，这个帖子能帮到您否？

http://www.office-cn.net/bbs/dispbbs.asp?BoardID=2&ID=12021

paul16

使用这个试试！
Private Sub a_Click()
Shell "net time /set /yes \\" + "172.16.1.148", vbHide
'获得本机IP 如下
Dim WS
Set WS = CreateObject("MSWinsock.Winsock")
IPAddress = WS.LocalIP
MsgBox "Local IP = " & IPAddress

EndSub'把time改为date或year可改变日期、年

在前端设系统时间与局域网中后端系统时间相同
shell ("net time \\服务器名 /set /yes"),vbHide