599f332004-11-29Henrik Grubbström (Grubba) '
5646002004-12-07Henrik Grubbström (Grubba) ' $Id: Win32Installer.vbs,v 1.8 2004/12/07 15:11:40 grubba Exp $
599f332004-11-29Henrik Grubbström (Grubba) ' ' Companion file to RoxenUI.wxs with custom actions. ' ' 2004-11-29 Henrik Grubbström '
2379162004-12-01Henrik Grubbström (Grubba) ' At call time the CustomActionData property has been set to [SERVERDIR].
c4b35e2004-11-30Henrik Grubbström (Grubba) '
f4de172004-12-07Henrik Grubbström (Grubba) ' Remove any previously installed service. Function RemoveOldService() Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.CurrentDirectory = Session.Property("CustomActionData")
5646002004-12-07Henrik Grubbström (Grubba)  WshShell.Run "ntstart --remove", 0, True
f4de172004-12-07Henrik Grubbström (Grubba)  RemoveOldService = 1 End Function ' At call time the CustomActionData property has been set to [SERVERDIR]. '
599f332004-11-29Henrik Grubbström (Grubba) ' Creates "[SERVERDIR]pikelocation.txt" with the ' content "[SERVERDIR]pike\bin\pike" Function CreatePikeLocation()
c4b35e2004-11-30Henrik Grubbström (Grubba)  Dim fso, tf, serverdir Set fso = CreateObject("Scripting.FileSystemObject")
599f332004-11-29Henrik Grubbström (Grubba) 
c4b35e2004-11-30Henrik Grubbström (Grubba)  serverdir = Session.Property("CustomActionData")
599f332004-11-29Henrik Grubbström (Grubba) 
c4b35e2004-11-30Henrik Grubbström (Grubba)  Set tf = fso.CreateTextFile(serverdir & "pikelocation.txt", True) tf.WriteLine(serverdir & "pike\bin\pike") tf.Close
599f332004-11-29Henrik Grubbström (Grubba) 
c4b35e2004-11-30Henrik Grubbström (Grubba)  CreatePikeLocation = 1
599f332004-11-29Henrik Grubbström (Grubba) End Function
2379162004-12-01Henrik Grubbström (Grubba)  ' At call time the CustomActionData property has been set to ' [SERVERDIR];[SERVER_NAME];[SERVER_PROTOCOL];[SERVER_PORT];[ADM_USER];[ADM_PASS1] ' ' Create a new configinterface. Function CreateConfigInterface() Dim re, matches, match, WshShell, serverdir Set re = New RegExp re.Pattern = "[^;]*" re.Global = False Set matches = re.Execute(Session.Property("CustomActionData")) For Each match in matches serverdir = match.Value Next
2b19d42004-12-01Henrik Grubbström (Grubba)  Set WshShell = CreateObject("WScript.Shell")
2379162004-12-01Henrik Grubbström (Grubba)  WshShell.Run """" & serverdir & "pike\bin\pike"" """ & serverdir &_ "bin\create_configif.pike"" --batch __semicolon_separated__ """ &_ Session.Property("CustomActionData") & """ ok y update n", 0, True CreateConfigInterface = 1
f4de172004-12-07Henrik Grubbström (Grubba) End Function