[求助]如何获取服务器的系统时间

烟雨厦江南

求助：

在一个EXCEL+ADO+ACCESS的分布式系统中，如何在客户端通过VBA获取ACCESS文件所在服务器的系统时间？

请指点，谢谢了！

紫蝶儿菲菲

这里有个地方。http://club.excelhome.net/viewthread.php?tid=43329&replyID=&skin=0

huyongapple

Sub tt()
    ServerIP = "127.0.0.1"
    Set objShell = CreateObject("WScript.Shell")
    Set objWshScriptExec = objShell.Exec("net time \\" & ServerIP)
    Set objStdOut = objWshScriptExec.StdOut
    While Not objStdOut.AtEndOfStream
        temp = objStdOut.ReadLine
        If InStr(temp, ServerIP) > 0 Then
            MsgBox temp
        End If
    Wend
End Sub

huyongapple

以上代码略微改动一下，也可使本计算机的时钟与另外一个计算机或域的时钟同步，或是设置本计算机的NTP时间服务器。

烟雨厦江南

谢谢楼上的两位，偶先试试去。

烟雨厦江南

to: huyongapple,再次请教：

这种方法会弹出一个cmd窗口（尽管会自动关掉），有什么方法不弹出这个窗口吗？

huyongapple

Sub tt()
    ServerIP = "127.0.0.1"
    sID = Shell("cmd.exe /c net time \\" & ServerIP & " > temp.txt&&ren temp.txt tmp.txt", 0)
    Do Until Dir("tmp.txt") <> ""
        Application.Wait Now() + Second(5)
    Loop
    Open "tmp.txt" For Input As #1
    Do Until EOF(1)
        Line Input #1, temp
        If InStr(temp, ServerIP) > 0 Then
            MsgBox temp
            Exit Do
        End If
    Loop
    Close #1
    Kill "tmp.txt"
End Sub

这样虽然不会弹出窗口了，可是由于Shell函数是以异步方式来执行其它程序的，程序的稳定性较差。

[此贴子已经被作者于2006-8-11 16:52:05编辑过]