Windows の時刻同期間隔

直接ＶＢＡで無く恐縮ですが
Windows の時刻同期間隔(ntpサーバーとの同期間隔)はデフォルトで１週間「604800秒」だそうです。
http://tm.root-n.com/misc:windowsxp_time_poll_in …
で、WIN8/WIN10　でも　有効でしょうか？もしくは、ご教示願えれば助かるのですが

もしくは、
http://homepage2.nifty.com/nonnon/SoftSample/VB. …
VB.NETのサンプルは有ったのですが、VBAのサンプルはどこかにないでしょうか

No.1 回答者： nicotinism 回答日時： 2016/04/12 22:25

Windows10も7と同様でした（Pro Build 10568）。

VBAから時刻の同期は面倒くさいと思います。
Adminユーザーであっても『管理者として実行』しないとUAC？で阻まれます。
以下、MsAccess.exe を『管理者として実行』した場合に成功しましたが・・・。
Dim Ret As Double
Ret = Shell("sc start w32time"): Debug.Print "1", Ret
Ret = Shell("w32tm /resync"): Debug.Print "2", Ret

参考にしたところ
http://www.atmarkit.co.jp/ait/articles/1207/12/n …

この回答へのお礼

早速ありがとうございます。
腰据えて、見させていただきます。とりいそぎ

お礼日時：2016/04/13 08:21