Incrementing 1

[NetNodeMan]

I'm trying to get my code to increment but the only thing incrementing seems to be the number of times I'm banging my head off the table here:

Sub objIE_NavigateError(pDisp,URL,TargetFrameName,StatusCode,Cancel)

internetError = internetError + 1
wshell.popup "Failure when loading"
createobject("wscript.shell").run "WebTest.bat"

End Sub


if internetError <>0 and internetError Mod 3 = 0 then

wshell.popup "Failure when loading more than 3 times"
createobject("wscript.shell").run "WebTracker.bat"

end if

I have my code laid out so it writes internetError to a log. internetError is set as a dim and equalled to 0 elsewhere in my code BUT:

internetError always = 0 when printed to the log. Can anyone tell me where I'm going wrong? Code is welcomed

 

[NetNodeMan]

Thanks tjusi,

but run it by double = click? I'm lost

 

[tsuji]

double-click, usually (os setting dependent). Aren't you usually run a vbs by double-click?

 

[NetNodeMan]

I run a vbs by putting "test.vbs" inside a batch file.

 

[tsuji]

I can only suggest you modify the script like this. It is really a shot in the dark.
[tt]
[blue]'... keep your original
'then it is here in your script[/blue]]
[green]'**************CREATE LOGFILE AND AMEND/APPEND

dim wshshell, fso , slog , logfile
dim ieErr [/green]

'insert this
if wscript.arguments.count=0 then
ieErr=0
else
ieErr=cint(wscript.arguments.item(0))
end if

[green]'continue with your script[/green]
[/tt]
Now, in your functions, replace every line of this
>[tt]createobject("wscript.shell").run "test.bat"[/tt]
by this
[tt]createobject("wscript.shell").run wscript.scriptfullname & " " & ieErr,1,false[/tt]

 

[NetNodeMan]

That looks good tjusi - lets say my vbs file is called test.vbs, what is the correct syntax then of:

createobject("wscript.shell").run wscript.scriptfullname & " " & ieErr,1,false

 

[tsuji]

No need to change. It takes care of itself.