Dim oShell

Set oShell = WScript.CreateObject (“WScript.Shell”

Dim counter counter = 0

Do counter = counter + 1
oShell.Run “C:\php\php.exe d:\data\webapps\php\crawler_all.php”, 9 WScript.Sleep 10000 Loop Until counter = 18