1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
' 
' $Id: Win32Installer.vbs,v 1.1 2004/11/29 16:47:55 grubba Exp $ 
' 
' 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") 
 
    Set tf = fso.CreateTextFile(serverdir & "pikelocation.txt", True) 
    tf.WriteLine(serverdir & "pike\bin\pike") 
    tf.Close 
 
    CreatePikeLocation = 1 
End Function