Microsoft Visual Basic スクリプトを実行するオートメーションを構築します。 自動化が失敗した場合に終了するためにパッケージを使用し、展開の失敗に対して耐性を持たせます。 復元性のあるオートメーションは、デプロイ時にエラーが発生しても、スケジュール済みやキューに登録されたタスクを継続して実行できます。

この自動化では、ユーザーに数値の入力を求めます。 オートメーションは、この数値を Microsoft Visual Basic スクリプトに渡し、pi を乗算して値を返します。 その後、オートメーションは結果をユーザーに報告します。 VBScript パッケージを使用して、外部スクリプトをインポートするか、自動化プロセスに直接入力できます。 この例では、スクリプトを手動で入力します。 また、エラー処理を追加することで、オートメーションの復元性も向上します。

手順

  1. タスク Botを作成します。
    1. 左側のペインで オートメーション をクリックします。
      選択可能なオートメーションとフォームのリストが表示されます。
    2. 新規作成 > タスク Bot をクリックします。
    3. タスク Bot の名前を指定します: MultiplyPi
    4. 作成と編集 をクリックします。
  2. 次の変数を作成します。
    • 最初の変数
      • 名前: nPromptAnswer
      • タイプ: 数字
    • 2番目の変数
      • 名前: lNumbersForPi
      • タイプ: リスト
      • サブタイプ: 数字
    変数作成の詳細については、変数の作成を参照してください。
  3. 保存 をクリックします。
  4. 値の場合 アクション を使うと、ユーザーに数値を入力するよう促すことができます。
    1. プロンプト > 値の場合 アクション をダブルクリックまたはドラッグして、オートメーションに追加します。
    2. ウィンドウ キャプションを表示フィールドに任意の数と入力します。
    3. メッセージを表示 フィールドに任意の数値を入力してください。その数値に円周率（π）を掛け算します。と入力します。
    4. 値を変数に代入 ドロップダウン メニューをクリックし、SampleStringを選択します。
    5. 保存 をクリックします。
  5. 試行 アクションを使用して、ユーザーがプロンプトで数字を入力しない場合に自動化を終了します。
    1. エラー ハンドラー > 試行 アクション をダブルクリックまたはドラッグします。
    2. プロンプト > 値の場合 アクションを エラー ハンドラー > 試行 アクションの下にドラッグします。
    3. 保存 をクリックします。
  6. SampleString (文字列) を数値に変換します。
    1. 文字列 > 数値に変換 アクションをダブルクリックまたはドラッグして、エラー ハンドラー > キャッチ アクションの直前の最後の行として追加します。
    2. 文字列を入力 フィールドで、F2 キーを押して変数のリストを開き、SampleString を選択します。
    3. 挿入 をクリックします。
    4. 出力を変数に代入 ドロップダウン メニューをクリックし、nPromptAnswer を選択します。
    5. 保存 をクリックします。
  7. 数値のリストの最初の項目に数値をコピーし、VBScript に渡します。
    1. リスト > 項目を追加 アクションをダブルクリックまたはドラッグして、エラー ハンドラー > キャッチ アクションの直前の最後の行に追加します。
    2. リスト変数 ドロップダウン メニューをクリックして、lNumbersForPi を選択します。
    3. 追加する項目 ドロップダウン メニューをクリックし、nPromptAnswer を選択します。
    4. 保存 をクリックします。
  8. 開く アクション を使用して、Visual Basic のソースコードを指定します。
    1. VBScript > 開く アクションをダブルクリックまたはドラッグして、エラー ハンドラー > キャッチ アクションの前の最後の行に追加します。
    2. VBScript フィールドで、手動インポート ラジオボタンを選択します。
    3. 次のコードをコピーし、ここにスクリプトを入力します フィールドに貼り付けます。 
      Dim Arg, var1, var2
Set Arg = WScript.Arguments
Function MultiplyPi(Arg)
  var1 = Arg(0)
  var2 = 3.14159
  MultiplyPi = cdbl(var1)*var2
End Function
    4. 保存 をクリックします。
  9. 関数を実行 アクション を使用して、スクリプトを実行します。
    1. VBScript > 関数を実行 アクションをダブルクリックまたはドラッグして、エラー ハンドラー > キャッチ アクションの前の最後の行に追加します。
    2. 実行する関数の名前を入力します (任意) フィールドにMultiplyPiと入力します。
    3. パラメーター (任意)ドロップダウン メニューをクリックし、lNumbersForPi 変数を選択します。
    4. 出力を変数に代入 (任意) ドロップダウン メニューをクリックし、SampleStringを選択します。
    5. 保存 をクリックします。
  10. 終了 アクションを使用して、セッションを終了します。
    1. VBScript > 閉じる アクションをダブルクリックまたはドラッグして、エラー ハンドラー > キャッチ アクションの前の最後の行に追加します。
    2. 保存 をクリックします。
  11. VBScript で生成された回答を画面に表示します。
    1. メッセージ ボックス アクションをエラー ハンドラー > キャッチ アクションの直前の最後の行にダブルクリックまたはドラッグして追加します。
    2. 表示するメッセージを入力フィールドに、Pi に数値を掛けた値:と入力します。
    3. F2 キーを押して変数のリストを開き、SampleString を選択します。
    4. 挿入 をクリックします。
    5. 保存 をクリックします。
  12. エラーが発生した場合は、オートメーションを終了する前にユーザーへ通知します。
    1. メッセージ ボックス アクションをエラー ハンドラーの下にダブルクリックまたはドラッグします。 すべてのエラーをキャッチ。
    2. 表示するメッセージを入力 フィールドに、Bot 失敗 と入力します。 数値のみを入力してください。
    3. 保存 をクリックします。
  13. リスト タブをクリックして、コードをテキストとしてのみ表示します。
    コードは次のようになります。
    Start
Error handler: Try
    Prompt: For value during bot execution and assign the value $SampleString$
    String: To number Convert string $SampleString$ to a number and assign it to number variable $nPromptAnswer$
    List: Add item $nPromptAnswer$ to $lNumbersForPi$
    VBScript: Open VBScript manual script of 7 lines
    VBScript: Run function "MultiplyPi"
    VBScript: Close VBScript "Default"
    Message box "Pi times your number is: $SampleString$"
Error handler: Catch AllErrors
    Message box "Bot failed.  Please be sure to enter only numbers."
End
  14. オートメーションを実行します。
    自動化がデプロイされると、プロンプト ウィンドウが開き、値を入力すると、メッセージ ボックスに計算された数値が表示されます。

    プロンプト ウィンドウへの値の入力

    メッセージ ボックスに表示される計算値

  15. 閉じる をクリックします。
    タスク Bot を再度実行し、プロンプトが表示された際に数字の代わりに文字列値を入力することで、の復元性をテストできます。