Roxen.git / server / etc / Win32Installer.vbs

version» Context lines:

Roxen.git/server/etc/Win32Installer.vbs:1:   ' - ' $Id: Win32Installer.vbs,v 1.7 2004/12/07 10:29:59 grubba Exp $ + ' $Id: Win32Installer.vbs,v 1.8 2004/12/07 15:11:40 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       Set WshShell = CreateObject("WScript.Shell")    WshShell.CurrentDirectory = Session.Property("CustomActionData")    -  WshShell.Run "ntstart --remove" +  WshShell.Run "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