Server.ini

code:

---

[AMAATS200]
active=y
 
[AMAFTS200]
active=y
 
[AMALMS200]
active=n
 
[AMALPS200]
active=y
 
[AMAPPS200]
active=y

---

In the following code you must replace \\Server\Share\ with the location
you choose for server.ini

DynVar.kix is an example of how to read the ini file into an array.

DynVar.kix

code:

---

Dim $SrvArray[50] ; Maximum number of sections 50
Dim $Sections, $Section, $idx, $Pos, $Count
 
$Sections = ReadProfileString("\\Server\Share\Server.ini","","") ; Read all section names from Server.ini
$idx = 1 ; Array index number
$Count = 0
While $Sections <> ""
   $Pos = InStr($Sections, Chr(10)) ; Sections are separeted by and ends with linefeed character
   $Section = SubStr($Sections,1,$Pos - 1)
   $Sections = SubStr($Sections,$Pos + 1, Len($Sections) - $Pos)
   $SrvArray[$idx] = $Section ; Place section name in $SrvArray
   $idx = $idx + 1
   $Count = $Count + 1 ; Number of entries in $SrvArray
Loop
 
; Run through all sections, and read value for action
$idx = 1
While $idx <= $Count
   $Action = ReadProfileString("\\Server\Share\Server.ini",$SrvArray[$idx],"active")
   ? $SrvArray[$idx] + " Active = " + $Action
   ; Insert code to execute depending of value of $Action, If $Action = "y"
   $idx = $idx + 1
Loop
 
Get $x ; Remove this line when done testing
 
Return

---

[This message has been edited by kholm (edited 01 August 2000).]