High CPU utilization caused by bandwidth in vbs cycle

You only need to add script. Sleep 100 to the statement.

:

2. OptionExplicit
4. On Error Resume Next It is best to remove this field in 'zookeeper. Otherwise, the zookeeper cannot be found.
6. DimWsh, sprogramme, sruntime, ntime
8. Sprogramme ="Test. Bat"
10. Sruntime = mid (time, 4, 5)
12. Ntime = mid (time, 4, 5)
14. Msgbox ntime
16. Do While True
18. Wscript. Sleep 1000'Use this sentence in the example to solve the problem.
20. IfNtime = sruntimeThen
22. SetWsh = wscript. Createobject ("Wscript. Shell")
24. Wsh. Run"Taskkill/f/IM iexplore.exe", 0,True
26. Wsh. Run sprogramme, 0,True
28. SetWsh = nothing
30. Sruntime = dateadd ("H", 2, time)
32. Sruntime = mid (sruntime, 4, 5)
34. Msgbox sruntime
36. Exit Do
38. End If
40. Ntime = mid (time, 4, 5)
42. Wscript. Sleep 1000
44. Loop