How to set delay in vbscript

Question

How to set delay in vbscript   WScript Sleep 100  does not work on Windows XP  Vista

User · Answer

better use timer   Sub wait  sec      dim temp     temp timer     do while timer-temp lt sec     loop end Sub

User · Answer

A lot of the answers here assume that you re running your VBScript in the Windows Scripting Host  usually wscript exe or cscript exe   If you re getting errors like  Variable is undefined   WScript   then you re probably not   The WScript object is only available if you re running under the Windows Scripting Host  if you re running under another script host  such as Internet Explorer s  and you might be without realising it if you re in something like an HTA  it s not automatically available   Microsoft s Hey  Scripting Guy  Blog has an article that goes into just this topic How Can I Temporarily Pause a Script in an HTA  in which they use a VBScript setTimeout to create a timer to simulate a Sleep without needing to use CPU hogging loops  etc   The code used is this    lt script language    VBScript  gt       Dim dtmStartTime      Sub Test         dtmStartTime   Now          idTimer   window setTimeout  PausedSection   5000   VBScript       End Sub      Sub PausedSection         Msgbox dtmStartTime  amp  vbCrLf  amp  Now         window clearTimeout idTimer      End Sub   lt  script gt    lt body gt       lt input id runbutton  type  button  value  Run Button  onClick  Test  gt   lt  body gt    See the linked blog post for the full explanation  but essentially when the button is clicked it creates a timer that fires 5 000 milliseconds from now  and when it fires runs the VBScript sub-routine called  PausedSection  which clears the timer  and runs whatever code you want it to

User · Answer

If you re trying to simulate a sleep delay in VBScript but WScript is not available  eg  your script is called from Microsoft s BGInfo tool   then try the following approach   The example below will delay until 10 seconds from the moment the instruction is processed   Dim dteWait dteWait   DateAdd  s   10  Now    Do Until  Now    gt  dteWait  Loop

User · Answer

Here is my solution  Worked with script  which was ran by third party program with no WScript declared and no import allowed   Function MySleep milliseconds    set WScriptShell   CreateObject  WScript Shell     WScriptShell Run  Sleep -m    amp  milliseconds  0  true end Function   Update Looks like Microsoft removed Sleep exe from win 8  so this doesn t work in win 8 unless you put Sleep exe in folder defined in  path

User · Answer

Work this end  XP    Create a new file  call it test vbs   Put this in it   WScript Sleep 1000 MsgBox  TEST    Run it  notice the delay before the message box is shown   Note  the number is in Milliseconds  so 1000 is 1 second

User · Answer

As stated in this answer   Application Wait  Now   TimeValue  0 00 01      will wait for 1 second

User · Answer

Time of Sleep Function is in milliseconds  ms   if you want 3 minutes  thats the way to do it   WScript Sleep 1000   60   3

User · Answer

if it is VBScript  it should be   WScript Sleep 100   If it is JavaScript   WScript Sleep 100     Time in milliseconds  WScript Sleep 1000 results in a 1 second sleep

User · Answer

The following line will make your script to sleep for 5 mins    WScript Sleep 5 60 1000   Note that the value passed to sleep call is in milli seconds

User · Answer

Here s another alternative   Sub subSleep strSeconds    subSleep 2      Dim objShell     Dim strCmd     set objShell   CreateObject  wscript Shell        objShell Run cmdline 1 False      strCmd     COMSPEC   c ping -n    amp  strSeconds  amp    127 0 0 1 gt nul           objShell Run strCmd 0 1  End Sub

User · Answer

Here is an update to the solution provided by  user235218 that allows you to specify number of milliseconds you require   Note  The -n option is the number of retries and the -w is the timeout in milliseconds for ping   I chose the 127 255 255 254 address because it is in the loopback range and ms windows doesn   t respond to it   I also doubt this will provide millisecond accuracy but on another note i tried it in an application using the ms script control and whilst the built in sleep function locked up the interface this method didn t   If somebody can provide an explanation for why this method didn t lock up the interface we could make this answer more complete   Both sleep functions where run in the user thread   Const WshHide   0 Const WAIT ON RETURN   True  Sub Sleep ByVal ms      Dim shell  As WScript Shell     If Not IsNumeric ms  Then          Exit Sub     Set shell   CreateObject  WScript Shell       Call shell Run   COMSPEC   c ping -n 1 -w     ms     127 255 255 254   nul   WshHide  WAIT ON RETURN   End Sub

[vbscript] How to set delay in vbscript

Examples related to vbscript