SQLサーバーの日付を取得 - Excel VBAにて -

お世話になります。

EXCELのVBAで、
SQLサーバーのシステム日付を取得することは可能でしょうか？
コマンドを教えていただきたいのですが。

クライアントPCのシステム日付は、
Biosの電池切れ？等で時々正常でない場合があります。
その問題を解決するため、都度サーバー日付を取得することが
できれば、と考えています。

よろしくお願いします。

No.4 回答者： wingtodo 回答日時： 2006/02/16 11:24

MicrosoftSQLサーバーでしたら

システム日付は
SELECT GETDATE()
で取得できます。

No.3 回答者： tom11 回答日時： 2006/02/16 08:40

こんにちは、SQLサーバと繋いでいるのでしたら、

SQLが、使えますよね。

select now()

でも、実行しては、いかがでしょか。

No.2 回答者： BLUEPIXY 回答日時： 2006/02/15 19:29

例えば、ＷＳＨを使って以下のようにして、NET TIMEの結果を得ることができます。

後は、適当に切り出せば良いと思います。
----------------------------------------------------------------
Public Sub test()
Dim WshShell, oExec, result
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("NET TIME \\SERVERNAME")

Do While oExec.Status = 0
'実行終了まで待つ
Loop
result = oExec.StdOut.ReadLine
MsgBox result
End Sub

No.1 回答者： BLUEPIXY 回答日時： 2006/02/15 18:23

EXCEL VBAからというより、

システム日付は、ＰＣ全体でも（ファイル管理など）重要なので
起動時に時刻合わせするようにした方がいいかと思います。

Windows系のサーバーの場合
NET TIME \\SERVERNAME /SET
のようなコマンドを実行するバッチを作成して、スタートアップで実行するような感じにしておけば良いと思います。

この回答への補足

ありがとうございます。
おっしゃることはよくわかります。私も同じことを考えましたが、対象PCが200台～という状況なので現実的に難しいですね。

VBAにて、取得する方法を募集させていただいております。

補足日時：2006/02/15 18:52