Hi guys,

This is just a quick note that there is a small mistake in the Disk Start.vbs regarding starting/stopping database support.

The section

t=MsgBox("Start the MySQL Database Server?", vbYesNo + vbQuestion, "Database Support") 
If intDoIt = vbNo Then 
m="" 
Else 
m=" mysql" 
End If 

should be

t=MsgBox("Start the MySQL Database Server?", vbYesNo + vbQuestion, "Database Support") 
If t = vbNo Then 
m="" 
Else 
m=" mysql" 
End If 

.

Oh Thanks.

The following is cosmetic I have added auto drive detect see lines in bold:

 

' Name: Start MS-DOS File

' 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

 

Dim WSHShell, dir, fso, f1, letter

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=""

Else

m=" mysql"

End If

WSHShell.run "Server_Start.bat "&s&m,0,0

WScript.sleep(1000)

 

Background to the above:

http://center.uniformserver.com/batch_file...tch_files2.html

 

 

All the best

Ric

I have hacked the above code a little more only to discover that the above will not work!

 

I believe incorrect parameters are being passed and a minor problem with Server_Start.bat the following page will clarify this!

 

http://center.uniformserver.com/us_35_known_bugs/intro.html

 

All the best

Ric