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

wsl exec
Some checks failed
continuous-integration/drone/push Build is failing
Details

Browse Source
This commit is contained in:
laci
2024-07-10 13:14:40 +02:00
parent 94c59a3140
commit 29a6fc1269
1 changed files with 11 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
windows-installer.hta
View File

@@ -41,19 +41,19 @@ Sub Window_OnLoad
Next
window.moveTo (intHorizontal - X) / 2, (intVertical - Y) / 2
' centre it
txtName.value=objNetwork.UserName
'txtName.value=objNetwork.UserName
txtHost.focus
wcRegPath = "HKLM\SYSTEM\CurrentControlSet\Services\WebClient\Parameters\"
'WriteToRegistry wcRegPath & "BasicAuthLevel", 1, "REG_DWORD"
WriteToRegistry wcRegPath & "FileAttributesLimitInBytes", 10000000, "REG_DWORD"
WriteToRegistry wcRegPath & "FileSizeLimitInBytes", 512000000, "REG_DWORD"
WriteToRegistry wcRegPath & "InternetServerTimeoutInSec", 600, "REG_DWORD"
WriteToRegistry wcRegPath & "LocalServerTimeoutInSec", 600, "REG_DWORD"
WriteToRegistry wcRegPath & "SendReceiveTimeoutInSec", 600, "REG_DWORD"
WriteToRegistry wcRegPath & "ServerNotFoundCacheLifeTimeInSec", 0, "REG_DWORD"
WriteToRegistry wcRegPath & "SupportLocking", 1, "REG_DWORD"
'WriteToRegistry wcRegPath & "FileAttributesLimitInBytes", 10000000, "REG_DWORD"
'WriteToRegistry wcRegPath & "FileSizeLimitInBytes", 512000000, "REG_DWORD"
'WriteToRegistry wcRegPath & "InternetServerTimeoutInSec", 600, "REG_DWORD"
'WriteToRegistry wcRegPath & "LocalServerTimeoutInSec", 600, "REG_DWORD"
'WriteToRegistry wcRegPath & "SendReceiveTimeoutInSec", 600, "REG_DWORD"
'WriteToRegistry wcRegPath & "ServerNotFoundCacheLifeTimeInSec", 0, "REG_DWORD"
'WriteToRegistry wcRegPath & "SupportLocking", 1, "REG_DWORD"
End Sub
@@ -71,31 +71,13 @@ Sub btnConfigure_OnClick
txtPort.focus
Exit Sub
End If
If txtName.value="" Then
MsgBox "Please enter your name",16,"ERROR"
txtName.focus
Exit Sub
End If
If txtPassword.value="" Then
MsgBox "Please enter your password",16,"ERROR"
txtPassword.focus
Exit Sub
End If
If txtDrive.value="" Then
MsgBox "Please enter drive letter",16,"ERROR"
txtDrive.focus
Exit Sub
Else
'AddHost txtHost.value
MapDrive txtDrive.value & ":","\\" & txtHost.value & "@SSL@" & txtPort.value & "\webdav\"
End If
MsgBox "Network resources have been mapped",64,"DONE"
MsgBox "TEST STARTED",64,"DONE"
End Sub
Sub StartWSL()
WSL = "wsl.exe"
WSL = "wsl.exe --user root --exec docker ps > C:\Users\wslresult.txt"
intReturn = objShell.Run(WSL, 0, True)
End Sub
@@ -203,7 +185,7 @@ End Sub
<td><input type="text" name="txtPort" value="80" maxlength="5" size="6" /></td>
</tr>
<tr><td>&nbsp;</td><td>&nbsp;</td></tr>
<tr><td>&nbsp;</td><td><input type="button" value="TART" id=btnConfigure /></td></tr>
<tr><td>&nbsp;</td><td><input type="button" value="START" id=btnConfigure /></td></tr>
</table>
</body>
</html>