Objekt in VBScript beenden bzw. terminieren

[notesuser3 10]

Guten Morgen,

 

ich schreibe gerade an einem Skript zu automatischen Installation von Software. In einer meiner Functions habe ich das Problem, dass ich eine cmd.exe aufrufen, damit man erkennt, dass der Rechner was arbeitet. Nach Beendigung soll das Fenster der cmd.exe wieder geschlossen werden. Leider bekomme ich immer wieder eine Fehlermeldung, dass ein Objekt fehlt. Hier mal der Code:

Function glInstall(glpath,filepath,executecmd,progName)

on Error Resume Next

Dim WshShell

Dim Return

Dim msg

 

glInstall = false

glError = progName

Dim fehlerNummer

Dim fehlerBeschreibung

Dim progStarten

 

if readFiles(progName) = true then

glInstall = true

exit function

else

Dim fenster

Dim backFenster

Set fenster = WScript.CreateObject("Wscript.Shell")

Set backFenster = fenster.Run("cmd.exe",4, false)

Set WshShell = WScript.CreateObject("Wscript.Shell")

WshShell.Popup "Starting Installation von " & progName & " ...",3, progName

msg = glpath & filepath & executecmd & progName

'Wscript.echo(msg)

progStarten = WshShell.Run(glpath & filepath & executecmd, 4, true)

backFenster.Quit

 

if Err.Number <> 0 then 'Es sind Fehler aufgetreten

fehlerNummer = Err.Number

fehlerBeschreibung = Err.Description

Err.Clear

fehlerBehandlung glError, fehlerNummer, fehlerBeschreibung

Set WshShell = nothing

'Set fenster = nothing

exit function

end if

 

if anlegenFile(progName) = false then

glError = "anlegenFile"

fehlerNummer = Err.Number

fehlerBeschreibung = Err.Description

Err.Clear

fehlerBehandlung glError, fehlerNummer, fehlerBeschreibung

end if

end if

 

glInstall = true

end function

 

Das Problem entsteht bei backFenster.Quit. Eigentlich sollte mit der Methode Quit eine zuvor geöffnete Instanz beendet werden, leider funzt es nicht.

 

Hat jemand vielleicht eine Ahnung oder sieht den Fehler in meinem Code.

 

Gruß

 

Notesuser3