You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
1.4 KiB
Plaintext
37 lines
1.4 KiB
Plaintext
Option Explicit
|
|
|
|
Dim wshshell
|
|
Dim fso
|
|
|
|
set wshshell = CreateObject("WScript.Shell")
|
|
set fso=CreateObject("Scripting.FileSystemObject")
|
|
|
|
if fso.FileExists("C:\VisiWin\VisiWinStudio\System\VisiWinStudio.ocx") then
|
|
Call wshshell.Run(GetCurrentPath() & "\InstallSp.exe 2",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)
|
|
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)
|
|
|
|
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
|
|
|