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

13
windows-installer.hta
View File

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