Microsoft SQL Server 2000 Service Pack 4

Desktop Engine (MSDE 2000)
に関する質問です。

SETUP.EXEが返す値(正常終了時やキャンセル、再起動時・・・)の一覧が見たいのですが、御存知のかたいらっしゃいませんか?宜しくお願い致します。

回答の条件
  • 1人2回まで
  • 登録:2006/09/14 10:53:26
  • 終了:2006/09/15 11:15:19

回答(1件)

id:llusall No.1

llusall回答回数505ベストアンサー獲得回数612006/09/14 11:38:03

ポイント60pt

こちらでいけると思います。


「SetUp.exe」が実行後に返す戻り値を表示します。

※但し、戻り値が無い場合は、無駄です。


以下のスクリプトを「実行結果.vbs」等のファイル名で保存して実行(ダブルクリック)してください。

Option Explicit

Dim bRtn

Dim sCommand, sResult

sCommand = "Q:\SetUp.exe" '■ここを変える

bRtn = ExecCommand(sCommand, sResult)

If bRtn = False Then

   MsgBox "NG 戻り値[" & sResult & "]"

Else

    MsgBox "OK 戻り値[" & sResult & "]"

End If

Function ExecCommand(sCommand, sResult)

    ' 変数宣言部 

    Dim oShell, oExec

    ' オブジェクト変数に参照をセットします。 

    Set oShell = WScript.CreateObject("WScript.Shell") 

    Set oExec = oShell.Exec("%ComSpec% /c " & sCommand) 

    ' 処理完了を待機します。 

    Do Until oExec.status

        WScript.Sleep 250

    Loop 

    '戻り値をセットします。 

    If Not oExec.StdErr.AtEndOfStream Then 

        ExecCommand = True 

        sResult = oExec.StdErr.ReadAll 

    ElseIf Not oExec.StdOut.AtEndOfStream Then 

        sResult = oExec.StdOut.ReadAll 

    End If 

    ' オブジェクト変数の参照を解放します。 

    Set oExec = Nothing

    Set oShell = Nothing 

End Function

'参考:http://www.f3.dion.ne.jp/~element/msaccess/AcTipsGetDosResult.ht...

id:mawamitsu

申し訳ありません。

起動をしたことにおける結果が知りたいのではなく、再現がなかなかできないケースを返り値の一覧を参照に実装したかったのです。

ありがとう御座いました。

2006/09/14 13:15:45
  • id:llusall
    的外れな回答ですみませんでした。

    インストール時のログ情報のようなものが知りたいということであれば、
    [C:\Program Files\Microsoft SQL Server\MSSQL\Install](既定の場合)
    のフォルダ中に、拡張子「out」というファイルができると思います。

    私は中身を見ても良くわからないのですが、こちらに目的としている情報が御座いませんでしょうか?

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません