problem with PG install script on Windows

This message is CCed to Dave Page, because his name is found in
startserver.vbs script discussed later.

I think there is a (minor?) problem with 8.4.5 Windows installer from
EnterpriseDB (probably othere releases as well - didn't check).

Here is an abstract from the "tail" of my installation log file:

/*********************************************************/
Starting the database server...
Executing cscript //NoLogo
"C:\VectorDB\installer\server\startserver.vbs" PostgreSQL
Script exit code: 0

Script output:
Starting PostgreSQL
Service PostgreSQL started successfully
startserver.vbs ran to completion

Script stderr:


Loading additional SQL modules...
Executing cscript //NoLogo
"C:\VectorDB\installer\server\loadmodules.vbs" "postgres" "****"
"C:\VectorDB" "C:\VectorDB\data" 5432 "1"
Script exit code: 2

Script output:
Installing pl/pgsql in the template1 databases...
Start DoCmd("C:\VectorDB\bin\psql.exe" -p 5432 -U postgres -c "CREATE
LANGUAGE plpgsql;" template1)...
Executing 'C:\Users\vmwin7\AppData\Local\Temp\rad87CE4.bat'...
psql: FATAL: the database system is starting up

End DoCmd()
Failed to install pl/pgsql in the 'template1' database
Installing the adminpack module in the postgres database...
Start DoCmd("C:\VectorDB\bin\psql.exe" -p 5432 -U postgres -f
"C:\VectorDB\share\contrib\adminpack.sql" postgres)...
Executing 'C:\Users\vmwin7\AppData\Local\Temp\rad87CE4.bat'...
psql: FATAL: the database system is starting up

End DoCmd()
Failed to install the 'adminpack' module in the 'postgres' database
loadmodules.vbs ran to completion

Script stderr:
Program ended with an error exit code

/*********************************************************/


According to this code in startserver.vbs:

/**********************/
' Find the service
Set objService = objWMIService.Get("Win32_Service.Name='" &
strServiceName & "'")

' Start it (them)
If objService.State <> "Running" Then
WScript.Echo "Starting " & objService.Name
iRetval = objService.StartService()
If iRetval = 0 Then
WScript.Echo "Service " & objService.Name & " started
successfully"
Else
WScript.Echo "Failed to start the database server (" & iRetVal &
")"
WScript.Quit 1
End If
Else
WScript.Echo "Service " & objService.Name & " is already running"
End If

/**********************/

here is what happened on my system:
1. startserver.vbs sends a signal to Postgresql service to start:
"iRetval = objService.StartService()"
2. Postgres accepted the signal and set iRetval = 0, but didn't start
yet (admittedely machine was busy doing something else at the same time)
3. VB script assumes that service is started (without actually checking
it's status) and proceeds trying to connect to PG (while running next
installation VB script - loadmodules.vbs, according to installation
log).

I realize it's a rare situation when machine will be busy with something
else while installing Postgres.
But, it still can happen, and "stricter" code could avoid this problem:6


/**********************/
' Find the service
Set objService = objWMIService.Get("Win32_Service.Name='" &
strServiceName & "'")

' Start it (them)
If objService.State <> "Running" Then
WScript.Echo "Starting " & objService.Name
iRetval = objService.StartService()
If iRetval = 0 Then
Do Until objService.State = "Running"
WScript.Sleep(5000)
Loop
WScript.Echo "Service " & objService.Name & " started
successfully"
Else
WScript.Echo "Failed to start the database server (" & iRetVal &
")"
WScript.Quit 1
End If
Else
WScript.Echo "Service " & objService.Name & " is already running"
End If

/**********************/

If it really waits for service to start, checking it's status in a loop.
Same status check probably needed earlier in the script, where it's
trying to start dependencies services.


oh, and I have to admit that I have zero VB scripting experience, so
please correct me if my code modification is wrong.

Regards,
Igor Neyman