Option Explicit

Dim wshshell
Dim fso

set wshshell = CreateObject("WScript.Shell")
set fso=CreateObject("Scripting.FileSystemObject")

Call wshshell.Run("wscript.exe " & GetCurrentPath() & "\DCS\Install_InfoDLL.vbs",1,TRUE)
if fso.FileExists("C:\VisiWin\VisiWinStudio\System\VisiWinStudio.ocx") then
   Call wshshell.Run("wscript.exe " & GetCurrentPath() & "\DCS\PreInstallDcsNachCD2.vbs",1,TRUE)
   Call wshshell.Run(GetCurrentPath() & "\InstallSp.exe 2",1,TRUE)
   Call wshshell.Run(GetCurrentPath() & "\Visu\CopyLog\Install.exe 1",1,TRUE)
end if
Call wshshell.Run(GetCurrentPath() & "\SaveAndRestore\Setup.vbs",1,TRUE)
Call wshshell.Run(GetCurrentPath() & "\SystemSettings\SystemSettings.vbs",1,TRUE)
if fso.FileExists("C:\VisiWin\VisiWinStudio\System\VisiWinStudio.ocx") then
   Call wshshell.Run(GetCurrentPath() & "\Visu\Language\Language.exe 1",1,TRUE)
end if
Call wshshell.Run(GetCurrentPath() & "\ServicePackNumber.exe",1,TRUE)
if fso.FileExists("C:\VisiWin\VisiWinStudio\System\VisiWinStudio.ocx") then
   Call wshshell.Run("wscript.exe " & GetCurrentPath() & "\DCS\PostInstallDcs_Part1.vbs",1,TRUE)
end if
Call wshshell.Run(GetCurrentPath() & "\SystemSettings\SystemDlls\Q835732.vbs",1,TRUE)

On Error Resume Next
	Call wshshell.RegDelete("HKEY_CURRENT_USER\Software\Focke & Co\SaveAndRestore\Restart")
On Error Goto 0
'-------------------------------------------------------------
Function GetCurrentPath()
	Dim l_strScriptName
	Dim l_strTemp

	l_strScriptName = WScript.ScriptFullName
	l_strTemp = WScript.ScriptName
	GetCurrentPath = Left(l_strScriptName, Len(l_strScriptName) - Len(l_strTemp))
End Function