Roxen.git / server / etc / Win32Installer.vbs

version» Context lines:

Roxen.git/server/etc/Win32Installer.vbs:1:   ' - ' $Id: Win32Installer.vbs,v 1.8 2004/12/07 15:11:40 grubba Exp $ + ' $Id: Win32Installer.vbs,v 1.9 2004/12/07 16:51:45 grubba Exp $   '   ' Companion file to RoxenUI.wxs with custom actions.   '   ' 2004-11-29 Henrik Grubbström   '      ' At call time the CustomActionData property has been set to [SERVERDIR].   '   ' Remove any previously installed service.   Function RemoveOldService() -  Dim WshShell +  Dim WshShell, serverdir    -  +  serverdir = Session.Property("CustomActionData") +     Set WshShell = CreateObject("WScript.Shell") -  WshShell.CurrentDirectory = Session.Property("CustomActionData") +  WshShell.CurrentDirectory = serverdir    -  WshShell.Run "ntstart --remove", 0, True +  WshShell.Run """" & serverdir & "ntstart"" --remove", 0, True       RemoveOldService = 1   End Function      ' At call time the CustomActionData property has been set to [SERVERDIR].   '   ' Creates "[SERVERDIR]pikelocation.txt" with the   ' content "[SERVERDIR]pike\bin\pike"   Function CreatePikeLocation()    Dim fso, tf, serverdir