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

wsl start

Browse Source
This commit is contained in:
laci
2024-07-10 12:07:48 +02:00
parent 89508c870b
commit 4d58a7802d
1 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
windows-installer.hta
View File

@@ -1,8 +1,8 @@
<html>
<head>
<title>WebOffice WebDAV</title>
<title>Webinstaller</title>
<HTA:APPLICATION
APPLICATIONNAME="weboffice webdav"
APPLICATIONNAME="webinstaller"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
@@ -59,7 +59,7 @@ End Sub
Sub btnConfigure_OnClick
DeleteCredential txtHost.value
StartWSL
If txtHost.value="" Then
MsgBox "Please enter hostname",16,"ERROR"
@@ -93,6 +93,13 @@ Sub btnConfigure_OnClick
MsgBox "Network resources have been mapped",64,"DONE"
End Sub
Sub StartWSL()
WSL = "wsl.exe"
intReturn = objShell.Run(WSL, 0, True)
End Sub
Sub MapDrive(DriveLetter,DrivePath)
If objFSO.DriveExists(DriveLetter) Then
objNetwork.RemoveNetworkDrive DriveLetter,true
@@ -216,4 +223,4 @@ End Sub
<tr><td>&nbsp;</td><td><input type="button" value="connect" id=btnConfigure /></td></tr>
</table>
</body>
</html>
</html>