人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Microsoft SQL Server 2000 Service Pack 4
Desktop Engine (MSDE 2000)
に関する質問です。

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

●質問者: mawamitsu
●カテゴリ:コンピュータ
✍キーワード:DESKTOP ENGINE exe Microsoft MSDE
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● llusall
●60ポイント

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


「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...

◎質問者からの返答

申し訳ありません。

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ