Office中国论坛/Access中国论坛

标题: 时间与主机同步的问题 [打印本页]

作者: 真主 时间: 2004-3-16 03:12
标题: 时间与主机同步的问题
这段代码在Administrators组权限下可以使本机与指定电脑时间同步,在Users组下只能把本机时间读出来,可不可以在Users组下也能与主机同步
Dim x As Double
x = Shell("net time \\192.168.0.1 /set /yes", vbHide)
Txt时钟 = Now()

作者: paul16 时间: 2004-3-16 03:40
使用这个试试！
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

作者: 阿罗 时间: 2004-3-16 05:26
这位朋友，这个帖子能帮到您否？

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)