Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト
Dim strCmdLine      ' 実行するコマンド

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
    strCmdLine = "AdbeRdr810_ja_JP.exe /sPB"
    objWshShell.Exec(strCmdLine)
    If Err.Number <> 0 Then
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshShell = Nothing
