vbsで各callの成功失敗を判定したい

Question

vbsで作成したスクリプトで、各call（sub～end sub）の成功判定を行いたいと思っています

やりたいこと：

call act1
（act1が成功したら）
Wscript.CreateObject("Wscript.Shell").LogEvent 4, "act1 OK"
call act2
（act2が成功したら）
Wscript.CreateObject("Wscript.Shell").LogEvent 4, "act2 OK"
call act3
（act3が成功したら）
Wscript.CreateObject("Wscript.Shell").LogEvent 4, "act3OK"

sub act1
～～～
end sub

sub act2
～～～
end sub

sub act3
～～～
end sub

すいません。
各callが成功したかどうかを判定するための方法が全く分かりませんでした
（callの戻り値ってとれるのでしょうか？）

お分かりになられる方、教えていただけませんでしょうか

すいません。

記載があいまいでした。

実際に行いたいことをあてはめますと、

ret = script_start()
if ret = true then
Wscript.CreateObject("Wscript.Shell").LogEvent 4, "スクリプトの開始処理が成功しました"
end if

Function script_start()

Wscript.CreateObject("Wscript.Shell").LogEvent 4, "イベント開始"

end Function

上記のように、function内で実施した処理が成功するかどうか？
の判定を行いたいと思っています
（実行結果が正常に出力されるか、など）

Answer 1

戻り値が必要な場合はsubではなくfunctionにしてください。
戻り値は関数名に代入するとそれが呼び出し側で受け取れます。
ざっくり書くとこんな実装になります。

ret = act1()
if ret = true then
    Wscript.CreateObject()
end if

function act1()
    if 成功条件 then
        act1 = true
    else
        act1 = false
    end if
end function

Comments

[amatsuno]

ありがとうございます

上記回答の場合、
ret = act1()
if ret = true then
Wscript.CreateObject()
end if

の部分はsubにする必要がありますか？

現在
call act1
call act2
call act3

sub act1
～～～
end sub

sub act2
～～～
end sub

sub act3
～～～
end sub

の形式で記載しておるのですが、
call act1
ret = act1()
if ret = true then
Wscript.CreateObject()
end if

call act2
ret = act2()
if ret = true then
Wscript.CreateObject()
end if

function act1()
if 成功条件 then
act1 = true
else
act1 = false
end if
end function

function act2()
if 成功条件 then
act1 = true
else
act1 = false
end if
end function

のような感じでいいのでしょうか？

[ttyp03]

call act1
ret = act1()
とするとact1が2回呼ばれてしまうのでダメです。
call act1の行は不要です。

[amatsuno]

すいません。

記載があいまいでした。

実際に行いたいことをあてはめますと、

ret = script_start()
if ret = true then
Wscript.CreateObject("Wscript.Shell").LogEvent 4, "スクリプトの開始処理が成功しました"
end if

Function script_start()

Wscript.CreateObject("Wscript.Shell").LogEvent 4, "イベント開始"

end Function

上記のように、function内の処理が無事に完了したかを判定したいと思っています。
先ほどのご回答のところでfunctionをあてはめると、
ifの箇所で構文エラーとなります

[ttyp03]

CreateObjectまたはLogEventのエラーを判定しないとダメですね。
どちらのエラーを判定したいのでしょうか？
CreateObjectはそう簡単にはエラーにならないでしょうけど、もし判定するならLogEventとは処理を分けて、
Set obj = CreateObject("Wscript.Shell")
If IsNull(obj) then ～
みたいな判定でできるかと思います。
LogEventのほうは戻り値はなさそうなのでエラーの判定はできそうもありませんが認識は正しいでしょうか？
全般的にエラーが発生した否かでよいならOn Error Resume NextとErrオブジェクトの組み合わせを使えばよいです。
Function script_start
On Error Resume Next
Wscript.CreateObject("Wscript.Shell").LogEvent 4, "イベント開始"
If Err.Number = 0 Then
script_start = true
Else
script_start = false
End If
End Function

[amatsuno]

ありがとうございます。
最後の記載の方法で実現させていただきます
（前述の処理以外でも複数の処理に対して実施したいため、共通で記載できる方法を選択させていただきました）