C#からVBSのErrにメッセージを返せない

Question

前提・実現したいこと

VBScriptからC#のEXEを実行する処理を作っているのですが、
C#の終了方法ないしエラー処理の方法の知識が足らず、
例外発生時にVBScriptにエラーを返すことができず困っております。

＜実現したいこと＞
|VBScript
| Shell等-->
| C#のEXE
| (処理:DBからデータ取得してCSVを作る等)
| 「xx行目の値が不正」等の動的なエラーメッセージ
| <--呼出元にメッセージを返す
| Err.Description でメッセージ受取
| ユーザーにメッセージ通知

探し方が悪いのか、数時間検索致しましたが解決する情報が見つけることができず、
ご教示いただけないでしょうか。
宜しくお願い致します。

発生している問題・エラーメッセージ

C#の実行結果(エラーメッセージ)をErr.Descriptionで受け取りたいです。

該当のソースコード

public partial class App : Application
{
    protected override void OnStartup(StartupEventArgs e)
    {
        //いくつかの組み合わせで試行したが効果なし
        //System.Environment.Exit(-1);
        //throw new System.Exception("testErrorTest");
        //System.Console.WriteLine("あいうえお");
        //System.Console.Error.WriteLine("かきくけこ");
        //System.Console.SetError(System.Console.Error);
        
        System.Environment.ExitCode = -1;
        this.Shutdown();
    }
}

'テストソース
Option Explicit
Dim wsh
Dim rtn
Set wsh = CreateObject("WScript.Shell")
On Error Resume Next
rtn = wsh.Run("C:\…\C#の.exe", 1, True)
MsgBox "<" & rtn & "," & Err.Number & ">" & Err.Description
    '「<-1,0>」が表示される
On Error GoTo 0
Set wsh = Nothing
WScript.Quit (0)

試したこと

上記ソースコードを試行しました。

補足情報（FW/ツールのバージョンなど）

C#ソースは抜粋です。
VisualStudio2017 WPFアプリ(.NET Framework) で作ったプロジェクトで、
App.XamlのStartupUriを削除しています。

Comments

[Zuishin]

Run ではなく Exec を使ってみてください。C# の方を COM 公開するという手もあります。

[takenoko01]

Zuishin 様、
早速のご回答ありがとうござます。

Execについては、Err.Description に値が返らないものの、この方法で回避できる事を確認いたしました。
```VBScript
Set objExec = wsh.Exec("...\C#の.exe")
Do While objExec.Status = 0
WScript.Sleep 100 '終了待ち
Loop
MsgBox "<" & objExec.ExitCode & ">" & objExec.StdErr.ReadLine
```

COM公開は…機能を存じておりませんでした。MicrosoftDocsをちら見いたしましたが、
実現するにはCOM公開、クライアントPCへのインストールも嫌うなら「登録を必要としないアクティベーション用の...」
という記事の方法になるのでしょうか。
.Net以外の処理も類似するScriptから呼び出す関係で、一律の記述でエラー処理できるのが理想なのですが、
難解すぎるかもしれません。。

ひとまずMicrosoftDocsを詳しく読みたいと思います。
ありがとうございました。

[dodox86]

Zuishinさんが提示されたExecを使う方法は簡単で良い方法だと思います。（私はその発想はなかった）いったんExecでC#の実行プログラムが出力する内容を受け取り、適当にメッセージを編集して、VBS側でRaiseメソッドを使ってErrオブジェクトを投げれば、COMを使わずとも要望を満たせる気がします。（未確認なので、あくまで「気がする」だけですが）

[takenoko01]

dodox86 様、コメントありがとうございます。

一点、勘違いがございました。
通常Err.DescriptionはOS標準のエラーNOに紐づいたメッセージで、
売り物のよくできたソフトウェアの機能を当然と思いこんでいたようです。
昨晩は元の要望に固執したコメントをして失礼致しました。
Zuishin 様のExec案が最善と思われますので、回答欄に転記いたします。

(初投稿ですので、質問の閉め方等マナー違反ございましたらご教示ください)

[dodox86]

質問者さんの最終的なVBScriptプログラムでは、全般を通して"On Error .."を用いてエラーハンドリングを行いたいのかな、と思いました。ですので、外部プログラムの実行結果をErrオブジェクトで把握したいのが要望で、VBScript/VBAの技術的な視点で言えばそのような質問もありだと思い、個人的にご質問を注視していただけですのでだいじょうぶです。

[takenoko01]

技術的に掘り下げる前にCloseしてしまいすいません。
dodox86 様の仰る通り、Err.Description(または一歩手前のErr.Number)にてエラーハンドリングするのを理想としており、
経験の浅い私が知らないだけで、C#に一発で解決する便利な命令等あるのではと期待しておりましたが、、
甘かったと反省しています。

[dodox86]

いえいえ、謝られるほどのことではないです。恐縮させてしまいこちらこそすみません。
> C#に一発で解決する便利な命令等あるのではと期待しておりましたが、、
それを見極める為の質問でもあると思いますので、別に良いのではないでしょうか。少なくとも私にとってはOn Error...、およびErrオブジェクトの関わりを再認識できそうな内容でしたので、良かったです。以上です。

Answer 1

Zuishin 様にいただきました施策を転記いたします。

WScript.Shell の Exec でエラーコードと標準エラー出力のメッセージを取得しています。

public partial class App : Application
{
    protected override void OnStartup(StartupEventArgs e)
    {
        System.Console.Error.WriteLine("testError");
        System.Environment.ExitCode = -1;
        this.Shutdown();
    }
}

Option Explicit
Dim wsh
Dim rtn
Dim objExec
Set wsh = CreateObject("WScript.Shell")
On Error Resume Next
Set objExec = wsh.Exec("C:\…\C#の.exe")
Do While objExec.Status = 0
    WScript.Sleep 100  '終了待ち
Loop
MsgBox "<" & objExec.ExitCode & ">" & objExec.StdErr.ReadLine
    '「<-1>testError」と表示される
On Error GoTo 0
Set wsh = Nothing
WScript.Quit (0)

ご助言、ありがとうございました。