Old:Bugs 3.5-Apollo: Start vbs
 |
Bugs 3.5-Apollo: Introduction | Server_Start.bat | Disk Start.vbs | Close.bat | config.inc.php | apanel - blown away | Combined bug fix |
|
Uniform Server 3.5-Apollo known bugs or issues |
Disk Start.vbs
Bug fix to stop database from starting when using Disk Start.vbs
File: Disk Start.vbs
Location: *\Uniform Server
Problem: MySQL server runs even after clicking the option not to run.
Solution: Proposed solution Edit the file as follows:
| Change the following: |
|---|
| t=MsgBox("Start the MySQL Database Server?", vbYesNo + vbQuestion, "Database Support") If intDoIt = vbNo Then |
| To this: |
|---|
| t=MsgBox("Start the MySQL Database Server?", vbYesNo + vbQuestion, "Database Support") If t = vbNo Then |
This solution although it is correct the script will not work!
There is a bug in Server_Start.bat; parameter %2 is not checked.
If %2 is reinstated in Server_Start.bat the above script needs to pass the correct parameters as follows:
| To this: |
|---|
| t=MsgBox("Start the MySQL Database Server?", vbYesNo + vbQuestion, "Database Support") If t = vbNo Then |
On the forum I proposed an enhancement to the VBS where the drive letter is automatically detected unfortunately I also did not return the correct parameters. The following alternative solution takes this into account.
Alternative Solution
I have hacked the beta script around resolving issues mentioned above. In addition added two enhancements auto detection of first free drive letter and option to run a command prompt. Note: For this script to run correctly Server_Start.bat must be updated as described on this page.
Problem: MySQL server runs even after clicking the option not to run.
Solution: Proposed solution Edit the file as follows:
| Proposed script: |
|---|
' Name: disk_start.vbs
' Location: Uniform Server
' Created By: The Uniform Server Development Team
' Edited Last By: Olajide Olaolorun (empirex)
' Comment: Re-Arranged everything to look nicely.
' To Developers: Added the MySQL start option.
' MPG: Added auto drive detect and command prompt select
Dim WSHShell, dir, fso, letter, str1, str2, str3, str4
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")
'Locate next available drive letter -- Added MPG
letter=Asc("c")
while fso.DriveExists(Chr(letter)+":")
letter=letter+1
wend
' Build string to display
str1 = "Use free drive found click OK or" & vbCR
str2 = "Specify a Disk Drive letter then click OK" & vbCR
str3 = "Note: To abort click Cancel"
str4 = str1 & str2 & str3
s=InputBox( str4 ,"Server Disk",UCASE(Chr(letter)))
If s = "" Then
WScript.Quit
End If
s=mid(s,1,1)
t=MsgBox("Start the MySQL Database Server?", vbYesNo + vbQuestion, "Database Support")
If t = vbNo Then
m=" nomysql"
Else
m=" mysql"
End If
c=MsgBox("Start a Command Prompt for MySQL commands?", vbYesNo + vbQuestion, "MySQL Command-line Support")
If c = vbNo Then
cl=""
Else
cl=" console"
End If
WSHShell.run "Server_Start.bat "&s&m&cl,0,0
WScript.sleep(1000)
|
Download
Download this file disk_start.vbs.txt save it as disk_start.vbs copy to folder Uniform Server.
Note: This will not overwrite any files use as is or rename it to Disk Start.vbs
Forum reference
Additional information or background can be found on these forum pages.
Thanks to Marshy | forum post for pointing out this problem.
Proposed solution
See alternative solution above.
|
Ric |