safebox/web-installer
7
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 30 Wiki Activity

docker run
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
root
2024-08-08 09:13:30 +02:00
parent 2933853cee
commit 0444da3e7d
1 changed files with 27 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
windows-installer.hta
View File

@@ -78,14 +78,7 @@ Sub btnConfigure_OnClick
MsgBox "TEST STARTED",64,"DONE" MsgBox "TEST STARTED",64,"DONE"
End Sub End Sub
Sub StartWSL() Sub ShowOutput(objExec)
'WSL = "wsl.exe --user root --exec docker ps > C:\Users\wslresult.txt"
'intReturn = objShell.Run(WSL, 0, True)
WSL = "wsl.exe --user root --exec docker ps -a"
Set objExec = objShell.Exec(WSL)
outputLine = ""
exitCode = objExec.ExitCode exitCode = objExec.ExitCode
If exitCode = 0 Then If exitCode = 0 Then
@@ -95,8 +88,6 @@ Sub StartWSL()
Loop Loop
'WScript.Echo "Command executed successfully:" & vbCrLf & outputLine 'WScript.Echo "Command executed successfully:" & vbCrLf & outputLine
MsgBox "Docker ps OK"
Else Else
Dim errorLine Dim errorLine
errorLine = "" errorLine = ""
@@ -110,15 +101,31 @@ Sub StartWSL()
' Call JS function to display output because Echo doesn't work in hta ' Call JS function to display output because Echo doesn't work in hta
Call UpdateOutput(outputLine, errorLine) Call UpdateOutput(outputLine, errorLine)
'WSL = "wsl.exe --user root --exec docker run -d -v /var/run/docker.sock:/var/run/docker.sock registry.format.hu/framework-scheduler" End Sub
WSL = "wsl.exe --user root --exec ls"
intReturn = objShell.Run(WSL, 0, True)
If Err.Number <> 0 Then Sub StartWSL()
MsgBox (Err.number & "-" & err.Description)
else 'WSL = "wsl.exe --user root --exec docker ps > C:\Users\wslresult.txt"
MsgBox "Docker run OK" 'intReturn = objShell.Run(WSL, 0, True)
End If
WSL = "wsl.exe --user root --exec docker ps --format ""table {{.Names}}\t{{.Status}}"" "
Set objExec = objShell.Exec(WSL)
outputLine = ""
ShowOutput(objExec)
WSL = "wsl.exe --user root --exec docker run -d -v /var/run/docker.sock:/var/run/docker.sock registry.format.hu/framework-scheduler"
'WSL = "wsl.exe --user root --exec ls"
'intReturn = objShell.Run(WSL, 0, True)
Set objExec = objShell.Exec(WSL)
ShowOutput(objExec)
'If Err.Number <> 0 Then
' MsgBox (Err.number & "-" & err.Description)
'else
' MsgBox "Docker run OK"
'End If
End Sub End Sub
Sub MapDrive(DriveLetter,DrivePath) Sub MapDrive(DriveLetter,DrivePath)
@@ -217,9 +224,9 @@ End Sub
var outputElement = document.getElementById('output'); var outputElement = document.getElementById('output');
if (output !== '') { if (output !== '') {
outputElement.innerText = output; outputElement.innerText += output;
} else if (errorOutput !== '') { } else if (errorOutput !== '') {
outputElement.innerText = errorOutput; outputElement.innerText += errorOutput;
} else { } else {
outputElement.innerText = '...'; outputElement.innerText = '...';
} }