Dim win, fs

furunkel = appData() & "\Friedrich-Schiller-Universität Jena - Projekt kompetenztest.de\Kompetenztest.NET\ktContainer.exe"

titel = "Kompetenztest.de - Anmeldeprogramm"

If (MsgBox(Description(), vbOKCancel + vbInformation, titel) = vbCancel) Then
	WScript.Quit 0
End If

MsgBox CloseKT(), vbOKOnly + vbInformation, titel

Set fs = CreateObject("Scripting.FileSystemObject")

If Not fs.FileExists(furunkel) Then
	MsgBox FileNotFound(), vbOKOnly + vbCritical, titel
	WScript.Quit 1
End If

fs.DeleteFile(furunkel)
If fs.FileExists(furunkel) Then
	MsgBox FileNotDeleted(), vbOKOnly + vbCritical, titel
	WScript.Quit 2
End If

MsgBox Success(), vbOKOnly + vbInformation, titel

Function appData()
	Set win = CreateObject("WScript.Shell")
	appData = win.ExpandEnvironmentStrings("%APPDATA%")
End Function

Function CloseKT()
	CloseKT = "Bitte beenden Sie jetzt das Kompetenztest.net Anmeldeprogramm."
End Function

Function Description()
	text =        "Kompetenztest.net - Anmeldeprogramm" + vbCrLf + vbCrLf
	text = text + "Programm zur Reparatur beschädigter Installationen" + vbCrLf
	text = text + "des Kompetenztest.de Anmeldeprogramms." + vbCrLf + vbCrLf
	Description = text + "(nur für Updateprobleme „Unbekannter Fehler beim Verarbeiten der Daten“)"
End Function

Function FileNotFound()
	text =        "Die betroffene Datei konnte auf ihrem System"  + vbCrLf
	text = text + "nicht gefunden werden. Sollte der Fehler auch"  + vbCrLf
	text = text + "nach einem Neustart des Programms bestehen,"  + vbCrLf
	FileNotFound = text + "wenden Sie sich bitte an die Kompetenztest.de Hotline."
End Function

Function FileNotDeleted()
	text =        "Die betroffene Datei konnte nicht gelöscht werden."  + vbCrLf
	text = text + "Bitte kontaktieren Sie ihren Systemadministrator oder"  + vbCrLf
	FileNotDeleted = text + "wenden Sie sich an die Kompetenztest.de Hotline."
End Function

Function Success()
	text =        "Die betroffene Datei wurde von ihrem System entfernt," + vbCrLf
	text = text + "Bitte starten Sie das Kompetenztest.net Anmeldeprogramm" + vbCrLf
	text = text + "und versuchen Sie das Programm zu aktualisieren." + VbCrLf + VbCrLf
	text = text + "Sollte der Aktualisierungsvorgang erneut fehlschlagen," + vbCrLf
	Success = text + "wenden Sie sich bitte an die Kompetenztest.de Hotline."
End Function