¿Cómo pausar una ejecución de vbscript?

Question

¿Cómo puedo detener la ejecución de un script desde dentro? Algo así como la función Sleep WinAPI?

Answer 1

Puede utilizar un objeto WScript y llame al método Sleep en él:

Set WScript = CreateObject("WScript.Shell") 
WScript.Sleep 2000 'Sleeps for 2 seconds 

Otra opción es importar y utilizar la función API de Windows directly (sólo funciona en VBA, gracias @Helen):

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
Sleep 2000 

Answer 2

El recorte de script a continuación crea un subpausa que muestra el texto de pausa en una cadena y espera la tecla Intro. z puede ser cualquier cosa. Excelente si se requieren pausas para la intervención del usuario múltiple. Solo lo guardo en mi plantilla de script estándar.

Pause("Press Enter to continue") 

Sub Pause(strPause) 
    WScript.Echo (strPause) 
    z = WScript.StdIn.Read(1) 
End Sub 

Answer 3

Con 'Enter' es mejor utilizar ReadLine() o Read (2), porque la tecla 'Enter' genera 2 símbolos. Si el usuario ingresa cualquier texto, Pausa() también se omitirá incluso con la opción Lectura (2). Así ReadLine() es mejor:

Sub Pause() 
    WScript.Echo ("Press Enter to continue") 
    z = WScript.StdIn.ReadLine() 
End Sub 

Más ejemplos se ven en http://technet.microsoft.com/en-us/library/ee156589.aspx