Ejemplo de uso del paquete VBScript en una automatización sólida
Descargar como PDF
- Última actualización2025/11/03
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.
Procedimiento
-
Crear Bot de tarea.
-
En el panel izquierdo, haga clic en Automatización.
Se muestra la lista de automatizaciones y formularios disponibles.
- Haga clic en Crear nuevo > Task Bot.
- Proporcione un nombre para el Bot de tarea: MultiplyPi
- Haga clic en Crear y editar.
-
En el panel izquierdo, haga clic en Automatización.
-
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. - Primera variable
- Haga clic en Guardar.
-
Utilice la acción
De valor para solicitar al usuario un número.
- Haga doble clic o arrastre la acción Indicador > de valor para añadirla a la automatización.
- En el campo Título de ventana de indicador, escriba Cualquier número.
- En el campo Mensaje de indicador, escriba Ingrese cualquier número para multiplicar por pi.
- Haga clic en el menú desplegable Asignar el valor a una variable y seleccione SampleString.
- Haga clic en Guardar.
-
Utilice la acción
Intentar para finalizar la automatización si el usuario no ingresa un número cuando se le solicite.
- Haga doble clic en la Manejador de errores > Intentar acción o arrástrela.
- Arrastre la acción Indicador > De valor debajo de la acción Manejador de errores > Intentar.
- Haga clic en Guardar.
-
Convierta la cadena SampleString a un valor numérico.
- 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.
- En el campo Introducir la cadena, pulse F2 para abrir la lista de sus variables y seleccione SampleString.
- Haga clic en Insertar.
- Haga clic en el menú desplegable Asignar el resultado a una variable y seleccione nPromptAnswer.
- Haga clic en Guardar.
-
Copie el valor del número en el primer elemento de la lista de números para pasar a VBScript.
- 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.
- Haga clic en el menú desplegable Variable de lista y seleccione lNumbersForPi.
- Haga clic en el menú desplegable Elemento para agregar y seleccione nPromptAnswer.
- Haga clic en Guardar.
-
Utilice la acción
Abrir para proporcionar su código fuente de Visual Basic.
- 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.
- En el campo VBScript, seleccione el botón de opción Entrada manual.
-
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 - Haga clic en Guardar.
-
Utilice la acción
Ejecutar función para ejecutar el script.
- 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.
- En el campo Ingrese el nombre de la función que se ejecutará (opcional), escriba MultiplyPi.
- Haga clic en el menú desplegable Parámetros (opcional) y seleccione la variable lNumbersForPi.
- Haga clic en el menú desplegable Asignar el resultado a una variable (Opcional) y seleccione SampleString.
- Haga clic en Guardar.
-
Use la acción
Cerrar para finalizar la sesión.
- 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.
- Haga clic en Guardar.
-
Muestre la respuesta generada en la pantalla de VBScript.
- 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.
- En el campo Escriba el mensaje para mostrar, escriba Pi multiplicado por su número es:.
- Presione F2 para abrir la lista de sus variables y seleccione SampleString.
- Haga clic en Insertar.
- Haga clic en Guardar.
-
Notifique al usuario si se ha producido un error antes de finalizar la automatización.
- Haga doble clic en la acción Cuadro de mensaje o arrástrela debajo del Manejador de errores: Capturar todos los errores.
- En el campo Escribir el mensaje para mostrar, escriba Error de bot. Asegúrese de introducir solo números..
- Haga clic en Guardar.
-
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 -
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.
-
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.