Potrebna pomoc oko VBS-a za restartovanje IE8.

Pozdrav svima.

Napravio sam malu skriptu:
Set WshShell = CreateObject("WScript.Shell")
Do
WshShell.Run """C:\Program Files\Internet Explorer\iexplore.exe"" -k d:\site\site.html"

set service = GetObject ("winmgmts:")

for each Process in Service.InstancesOf ("Win32_Process")
If Process.Name = "ssmypics.scr" then
WshShell.Run ("c:\windows\system32\pskill.exe iexplore.exe")
for each Process in Service.InstancesOf ("Win32_Process")

If Process.Name = "ssmypics.scr" then
End If
next

End If
next


WshShell.Run ("c:\windows\system32\pskill.exe iexplore.exe")

Loop

i ona bi trebala startuje IE8 i u slucaju da se ugasi isti (Alt+F4) da se odmah startuje. Vec je uradjeno duponjavanje Regisrty-a da startuje tu skriptu umesto explorer-a.
Takodje, set-ovan je screensaver koji treba da se startuje u odredjeno vreme neaktivnosti neki screensaver.
Ono sto nemogu da namestim u VBS skripti je da se detektuje kada se ugasi screensaver i kada se to dogodi, da pogasi sve IE8 i da ode na pocetak da se startuje opet prvi IE8.

Znaci, jedna beskonacna petlja.

Svaki savet je jako potreban.

116 pregleda a nijedan odgovor?!?! Mislim da su ljudi na godisnjem...

Malo sam razradio VBS ali mi opet treba pomoc a kako vidim, uradicu sve bez pomoci ES... Barem nek neko pogleda i nek da neki predlog...
Sto se tice novog VBS-a, nemogu na napravim beskonacnu petlju...
Svaki predlog bi bio vise nego koristan!

Set WshShell = CreateObject("WScript.Shell")

'funkcija za startovanje IE
Function StartIE
IsItSCsVStarted = False 'IsItSCVStarted je podatak koji govori da li je startovan SCsV ili nije
WshShell.Run ("c:\windows\system32\pskill.exe iexplore.exe")
WshShell.Run """C:\Program Files\Internet Explorer\iexplore.exe"" d:\site\site.html"
IEStarted = True
End Function

'funkcija za testiranje da li se startovao screensaver
Function CheckProcessSCV
set service = GetObject ("winmgmts:")
for each Process in Service.InstancesOf ("Win32_Process")
If Process.Name = "ssmypics.scr" then
IsItSCsVStarted = True
Exit For
End If
next
End Function

'funkcija za testiranje close-a screensaver-a
Function CheckClose
for each Process in Service.InstancesOf ("Win32_Process")
If Process.Name = "ssmypics.scr" then
WScript.Sleep 1000
else
WshShell.Run ("c:\windows\system32\pskill.exe iexplore.exe")
IsItSCsVStarted = False
End If
next
End Function

Do
'startovanje funkcije za startovanje IE; IEStarted = False -- nije startovan IE
if IEStarted = False then
Call StartIE
else

'check-iraj da li se startovao screensaver
If IsItSCsVStarted = False then
call CheckProcessSCV
else

'ukoliko je startovan SCSV testiraj kada ce se ugasiti
If IsItSCsVStarted = True then
callCheckClose
Else

Loop

Tacnije za ovaj Loop na kraju kaze gresku 'loop' without 'do' a do sam vec postavio.

A, da u Do petlju dodas End If naredbe koje nedostaju ;)

Mozda nesto ovako: