599f332004-11-29Henrik Grubbström (Grubba) '
4785eb2004-11-29Henrik Grubbström (Grubba) ' $Id: Win32Installer.vbs,v 1.2 2004/11/29 17:43:09 grubba Exp $
599f332004-11-29Henrik Grubbström (Grubba) ' ' Companion file to RoxenUI.wxs with custom actions. ' ' 2004-11-29 Henrik Grubbström ' ' Creates "[SERVERDIR]pikelocation.txt" with the ' content "[SERVERDIR]pike\bin\pike" Function CreatePikeLocation() Dim fso, tf, serverdir Set fso = CreateObject("Scripting.FileSystemObject") serverdir = Session.Property("SERVERDIR")
4785eb2004-11-29Henrik Grubbström (Grubba)  Set tf = fso.CreateTextFile(serverdir & "pikelocation.txt", True) tf.WriteLine(serverdir & "pike\bin\pike")
599f332004-11-29Henrik Grubbström (Grubba)  tf.Close CreatePikeLocation = 1 End Function