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.
40 lines
1.6 KiB
Plaintext
40 lines
1.6 KiB
Plaintext
2 years ago
|
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
|
||
|
|
|
||
|
|
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\PreInstallDcs.vbs",1,TRUE)
|
||
|
|
Call wshshell.Run(GetCurrentPath() & "\InstallSp.exe 1",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)
|
||
|
|
'-------------------------------------------------------------
|
||
|
|
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
|
||
|
|
|