Replaced executable and batch files with VBScript.

This commit is contained in:
MobiusDevelopment
2022-08-04 06:26:59 +00:00
parent b55f7b669e
commit 22ebdb3e82
341 changed files with 4876 additions and 759 deletions

View File

@@ -0,0 +1,18 @@
'Get Java path.
Dim path
Set shell = WScript.CreateObject("WScript.Shell")
path = shell.Environment.Item("JAVA_HOME")
If path = "" Then
MsgBox "Could not find JAVA_HOME environment variable!", vbOKOnly, "Database Installer"
Else
If InStr(path, "\bin") = 0 Then
path = path + "\bin\"
Else
path = path + "\"
End If
path = Replace(path, "\\", "\")
path = Replace(path, "Program Files", "Progra~1")
End If
'Run the installer.
shell.Run path & "java -jar Database_Installer_GS.jar", 0, False

View File

@@ -0,0 +1,18 @@
'Get Java path.
Dim path
Set shell = WScript.CreateObject("WScript.Shell")
path = shell.Environment.Item("JAVA_HOME")
If path = "" Then
MsgBox "Could not find JAVA_HOME environment variable!", vbOKOnly, "Database Installer"
Else
If InStr(path, "\bin") = 0 Then
path = path + "\bin\"
Else
path = path + "\"
End If
path = Replace(path, "\\", "\")
path = Replace(path, "Program Files", "Progra~1")
End If
'Run the installer.
shell.Run path & "java -jar Database_Installer_LS.jar", 0, False