I haven't looked at your code in detail,
but do you realize that you are telling the script
to do nothing for 10 seconds when you call
WScript.Sleep 10000 ? 10000milliseconds = 10seconds
See, for example,
http://www.ss64.com/wsh/sleep.html
Csaba Gabor from Vienna
On Mar 6, 10:19 am, "babbe...@xxxxxx"
<babbe...@xxxxxx> wrote:
> I've got a vbs script that runs through a list of entries in a text
> file and runs a subversion sync. My problem is that if I run the
> commands called in my script on the command line, they execute
> normally. However, if I run them in the script, they take forever to
> execute. Can anyone spot why the scripted version takes so long?
>
> The script should output the output from the commands back to the
> user, along with a "." progress meter.
>
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set objTextFile = objFSO.OpenTextFile("C:\subversion_backup
> \repolist.conf", 1)
> Do Until objTextFile.AtEndOfStream
> wscript.echo("Starting: " & repo )
> repo = objTextFile.Readline
> wscript.echo("C:\Program Files\VisualSVN Server\bin
> \svnsync.exe inithttp://url.com/" & repo & "http://DEV:8080/svn/" &
> repo)
> Set oWsc = CreateObject("WScript.Shell")
> Set oExec = oWsc.Exec("C:\Program Files\VisualSVN Server\bin
> \svnsync.exe inithttp://url.com/" & repo & "http://DEV:8080/svn/" & repo)
> wscript.echo "Initialising..."
> Do While oExec.Status <> 1
> Wscript.sleep 10000
> wscript.stdout.write "."
> Loop
> wscript.stdout.write(oExec.stdout.ReadAll())
> Set oExec = Nothing
>
> Set oExec = oWsc.Exec("C:\Program Files\VisualSVN Server\bin
> \svnsync.exe --non-interactive synchttp://url.com/"
> & repo)
> wscript.echo "Syncing..."
> Do While oExec.Status <> 1
> Wscript.sleep 10000
> wscript.stdout.write "."
> Loop
> wscript.stdout.write(oExec.stdout.ReadAll())
> Set oExec = Nothing
> wscript.echo("Completed: " & repo)
> Loop