msg

windows-installer.hta

@@ -45,7 +45,7 @@ Sub Window_OnLoad
 	window.moveTo (intHorizontal - X) / 2, (intVertical - Y) / 2
 		' centre it
 	'txtName.value=objNetwork.UserName
-	txtHost.focus
+	txtPort.focus
 
 	wcRegPath = "HKLM\SYSTEM\CurrentControlSet\Services\WebClient\Parameters\"
 
@@ -60,7 +60,7 @@ Sub Window_OnLoad
 
 End Sub
 
-Sub btnConfigure_OnClick
+Sub btnStart_OnClick
 
 	StartWSL
 
@@ -75,7 +75,12 @@ Sub btnConfigure_OnClick
 		Exit Sub
 	End If
 
-	MsgBox "TEST STARTED",64,"DONE"
+	'MsgBox "TEST STARTED",64,"DONE"
+End Sub
+
+Sub btnOpen_OnClick
+
+	MsgBox "Open",64,"DONE"
 End Sub
 
 Sub ShowOutput(objExec)
@@ -103,6 +108,20 @@ Sub ShowOutput(objExec)
 
 End Sub
 
+Sub Delay(seconds)
+    ' Simulate a delay by using a busy loop for the specified seconds
+    Dim start, now
+    start = Timer
+
+    Do
+	now = Timer
+	' Loop until the specified number of seconds has passed
+	If now - start >= seconds Then Exit Do
+	' Reset start if midnight is crossed
+	If now < start Then start = now
+    Loop
+End Sub
+
 Sub StartWSL()
 	
 	'WSL = "wsl.exe --user root --exec docker ps > C:\Users\wslresult.txt"
@@ -121,30 +140,25 @@ Sub StartWSL()
 		MsgBox (Err.number & "-" & err.Description)
 	else
 		MsgBox "Framework scheduler has started"
-		WSL = "wsl.exe --user root --exec docker logs framework-scheduler"
+		WSL = "wsl.exe --user root --exec docker logs framework-scheduler"i
+
+		iterationCount = 0
+		maxIterations = 12 ' Run for 1 minute (12 iterations of 5 seconds each)
+
 		Do
+			iterationCount = iterationCount + 1
 			Set objExec = objShell.Exec(WSL)
 			ShowOutput(objExec)
 			MsgBox "Please wait"
 			'Delay 5
+			If iterationCount >= maxIterations Then
+				MsgBox "Max iterations reached, stopping script."
+				Exit Do
+			End If
 		Loop
 	End If 
 End Sub
 
-Sub Delay(seconds)
-    ' Simulate a delay by using a busy loop for the specified seconds
-    Dim start, now
-    start = Timer
-
-    Do
-	now = Timer
-	' Loop until the specified number of seconds has passed
-	If now - start >= seconds Then Exit Do
-	' Reset start if midnight is crossed
-	If now < start Then start = now
-    Loop
-End Sub
-
 Sub MapDrive(DriveLetter,DrivePath)
 	If objFSO.DriveExists(DriveLetter) Then
 		objNetwork.RemoveNetworkDrive DriveLetter,true
@@ -261,7 +275,7 @@ End Sub
 	<td><input type="text" name="txtPort" value="8080" maxlength="5" size="6" /></td>
 </tr>
 <tr><td>&nbsp;</td><td>&nbsp;</td></tr>
-<tr><td>&nbsp;</td><td><input type="button" value="START INSTALL" id=btnConfigure /></td></tr>
+<tr><td>&nbsp;</td><td><input type="button" value="START INSTALL" id=btnStart /></td></tr>
 </table>
 <br><br>
 <div id="output"></div>