Cree una automatización que ejecute un script de Microsoft Visual Basic. Utilice el paquete para finalizar la automatización si falla, lo que la hace resistente a los fallos de implementación. Una automatización resistente permite que las tareas programadas y en cola continúen incluso cuando se producen errores de implementación.

En esta automatización, se solicita al usuario que ingrese un número. La automatización envía el número a un script de Microsoft Visual Basic para multiplicarlo por pi y devolver el valor. A continuación, la automatización informa el resultado al usuario. Puede utilizar el paquete VBScript para importar un script externo o ingresarlo directamente en su automatización. En este ejemplo, escribe el script manualmente. También se añade resiliencia a la automatización mediante la incorporación de la gestión de errores.

Procedimiento

  1. Crear Bot de tarea.
    1. En el panel izquierdo, haga clic en Automatización.
      Se muestra la lista de automatizaciones y formularios disponibles.
    2. Haga clic en Crear nuevo > Task Bot.
    3. Proporcione un nombre para el Bot de tarea: MultiplyPi
    4. Haga clic en Crear y editar.
  2. Cree las siguientes variables:
    • Primera variable
      • Nombre: nPromptAnswer
      • Tipo: Número
    • Segunda variable
      • Nombre: lNumbersForPi
      • Tipo: Lista
      • Subtipo: Número
    Para obtener más información sobre la creación de variables, consulte Crear una variable.
  3. Haga clic en Guardar.
  4. Utilice la acción De valor para solicitar al usuario un número.
    1. Haga doble clic o arrastre la acción Indicador > de valor para añadirla a la automatización.
    2. En el campo Título de ventana de indicador, escriba Cualquier número.
    3. En el campo Mensaje de indicador, escriba Ingrese cualquier número para multiplicar por pi.
    4. Haga clic en el menú desplegable Asignar el valor a una variable y seleccione SampleString.
    5. Haga clic en Guardar.
  5. Utilice la acción Intentar para finalizar la automatización si el usuario no ingresa un número cuando se le solicite.
    1. Haga doble clic en la Manejador de errores > Intentar acción o arrástrela.
    2. Arrastre la acción Indicador > De valor debajo de la acción Manejador de errores > Intentar.
    3. Haga clic en Guardar.
  6. Convierta la cadena SampleString a un valor numérico.
    1. Haga doble clic en la acción String > A número o arrástrela, de forma que se agregue como la última línea antes de la acción Manejador de errores > Capturar.
    2. En el campo Introducir la cadena, pulse F2 para abrir la lista de sus variables y seleccione SampleString.
    3. Haga clic en Insertar.
    4. Haga clic en el menú desplegable Asignar el resultado a una variable y seleccione nPromptAnswer.
    5. Haga clic en Guardar.
  7. Copie el valor del número en el primer elemento de la lista de números para pasar a VBScript.
    1. Haga doble clic en la acción Lista > Agregar elemento o arrástrela hasta la última línea antes de la acción Manejador de errores > Capturar.
    2. Haga clic en el menú desplegable Variable de lista y seleccione lNumbersForPi.
    3. Haga clic en el menú desplegable Elemento para agregar y seleccione nPromptAnswer.
    4. Haga clic en Guardar.
  8. Utilice la acción Abrir para proporcionar su código fuente de Visual Basic.
    1. Haga doble clic en la acción VBScript > Abrir para colocarla como la última línea antes de la acción Manejador de errores > Capturar.
    2. En el campo VBScript, seleccione el botón de opción Entrada manual.
    3. Copie el siguiente código y péguelo en el campo Introducir script aquí:
      Dim Arg, var1, var2
      Set Arg = WScript.Arguments
      Function MultiplyPi(Arg)
        var1 = Arg(0)
        var2 = 3.14159
        MultiplyPi = cdbl(var1)*var2
      End Function
    4. Haga clic en Guardar.
  9. Utilice la acción Ejecutar función para ejecutar el script.
    1. Haga doble clic en la acción VBScript > Ejecutar función o arrástrela para colocarla como la última línea antes de la acción Manejador de errores > Capturar.
    2. En el campo Ingrese el nombre de la función que se ejecutará (opcional), escriba MultiplyPi.
    3. Haga clic en el menú desplegable Parámetros (opcional) y seleccione la variable lNumbersForPi.
    4. Haga clic en el menú desplegable Asignar el resultado a una variable (Opcional) y seleccione SampleString.
    5. Haga clic en Guardar.
  10. Use la acción Cerrar para finalizar la sesión.
    1. Haga doble clic en la acción VBScript > Close para colocarla como la última línea antes de la acción Manejador de errores > Capturar.
    2. Haga clic en Guardar.
  11. Muestre la respuesta generada en la pantalla de VBScript.
    1. Haga doble clic en la acción Cuadro de mensaje o arrástrela hasta la última línea antes de la acción Manejador de errores > Capturar.
    2. En el campo Escriba el mensaje para mostrar, escriba Pi multiplicado por su número es:.
    3. Presione F2 para abrir la lista de sus variables y seleccione SampleString.
    4. Haga clic en Insertar.
    5. Haga clic en Guardar.
  12. Notifique al usuario si se ha producido un error antes de finalizar la automatización.
    1. Haga doble clic en la acción Cuadro de mensaje o arrástrela debajo del Manejador de errores: Capturar todos los errores.
    2. En el campo Escribir el mensaje para mostrar, escriba Error de bot. Asegúrese de introducir solo números..
    3. Haga clic en Guardar.
  13. Haga clic en la pestaña Lista para ver su código como texto solamente.
    Su código debería verse así:
    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. Ejecute su automatización.
    Cuando se implementa la automatización, se abre la ventana del indicador, donde ingresa el valor, y luego el cuadro de mensaje muestra el número calculado.

    Ingresar el valor en la ventana del indicador

    Valores calculados mostrados en el cuadro de mensaje

  15. Haga clic en Cerrar
    Puede probar la resiliencia de su Bot de tarea ejecutándolo nuevamente e ingresando un valor de string en lugar de un número cuando se le solicite.