Fehler bei Script in Komb. mit IE

[proje 10]

Hallo zusammen,

 

hoffe mir kann hier jemand helfen. Habe ein Logon Script erstellt (vbs), aus welchem mehrere Batch Dateien ausgeführt werden. Damit der User auch was sieht, wird der Status an ein IE Fenster weitergegeben.

Das Probelm ist allerdings nun, sobald der User das IE Fenster schließt, bricht auch das Script ab.

Hier ein ausschnitt vom Code:

 

 

 

Sub CreateIE()

 

On Error Resume Next

Set IE = CreateObject("InternetExplorer.Application")

With IE

.navigate "\\seefeldsrv01\sys$\clbackup3\backup.htm"

.resizable=0

.left=761

.top=1

.height=375

.width=263

.menubar=0

.toolbar=0

.statusBar=0

.visible=1

 

 

End With

Do while ie.Busy

' wait for page to load

Wscript.Sleep 1000

Loop

 

End Sub

 

.

.

.

 

 

Sub Division5()

 

strStatus = strStatus & vbCRLF & "Backup Personal Data"

 

 

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "\\seefeldsrv01\sys$\files\warehouse3\3backup_documents.bat >%logfile%,MINIMIZE_WINDOW,True

 

ie.document.all.division5.checked = true

 

End Sub

 

 

 

Hat jemand eine Idee wie verhindert werden kann, dass das Script abbricht auch wenn das IE Fenster geschlossen wird???

 

Viele Grüße

Clemens