Option Explicit

Dim wshshell
Dim fso

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

On Error Resume Next
	Call wshshell.RegDelete("HKEY_CURRENT_USER\Software\Focke & Co\SaveAndRestore\Restart\Restart")
On Error Goto 0


if fso.FileExists("C:\VisiWin\VisiWinStudio\System\VisiWinStudio.ocx") then
   Call wshshell.Run(GetCurrentPath() & "\InstallSp.exe 1",1,TRUE)
   Call wshshell.Run(GetCurrentPath() & "\Visu\CopyLog\Install.exe 1",1,TRUE)
   Call wshshell.Run(GetCurrentPath() & "\DCS\FockeDCS_SP_Setup.exe",1,TRUE)
end if
Call wshshell.Run(GetCurrentPath() & "\SaveAndRestore\Setup.vbs",1,TRUE)
If fso.FileExists("c:\AddOn\Pilz\Pilz.vbs") Then
    Call wshshell.Run("c:\AddOn\Pilz\Pilz.vbs")
End If
Call wshshell.Run(GetCurrentPath() & "\SystemSettings\SystemSettings.vbs",1,TRUE)
Call wshshell.Run(GetCurrentPath() & "\FCI\FCI.vbs",1,TRUE)
Call wshshell.Run(GetCurrentPath() & "\FBR\FBR.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)
Call wshshell.Run(GetCurrentPath() & "\SystemSettings\SystemDlls\Q835732.vbs",1,TRUE)
'-------------------------------------------------------------
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