code:

---

$nul=execute("if $$"+$primarygroup+"=$current_class gosub 'inventory' endif")

---

code:

---

$nul=execute("if instr($$"+$primarygroup+",$current_class) gosub 'inventory' endif")

---

easy?

code:

---

[Department A]
Subnet=123.123.123.123
[Departmetn B]
Subnet=111.111.111.111

---

and use READPROFILESTRING('subnet.ini',@PRIMARYGROUP,'Subnet') to pull the users subnet from the .INI file. Compare with the actual subnet via UDF (IsInSubnet or similar), "kick it up a notch", and done.

code:

---

:SetUniversalVars
$oct1 = LTRIM(SUBSTR(@ipaddress0, 1, 3))
$oct2 = LTRIM(SUBSTR(@ipaddress0, 5, 3))
$oct3 = LTRIM(SUBSTR(@ipaddress0, 9, 3))
$classB = $oct1 + "." + $oct2
$classC = $oct1 + "." + $oct2 + "." + $oct3

:GroupDetect
select
   case @primarygroup = "deptA"
      ;mapdrive, set vars, yaddayadda
      $arraytotal  = 3
      DIM $subnet[$arraytotal]
      $subnet[0] = 10.32.1
      $subnet[1] = 10.32.2
      $subnet[2] = 10.32.3
      goto "techstuff"
   case @primarygroup = "deptB"
      ;mapdrive, set vars, yaddayadda
      $arraytotal  = 1
      DIM $subnet[$arraytotal]
      $subnet[0] = 10.32.4
      goto "techstuff"
   case 1
endselect

:TechStuff
;--- inventory ---
$nb = 0
DO
   if $ClassC = $subnet[$nb]
      call "inventory.kix"	
   endif
   $nb = $nb + 1
UNTIL $nb = $arraytotal
;--- set email profiles, citrix setings, Ras detect, etc ---

---

code:

---

$arraytotal  = 3
DIM $subnet[$arraytotal]
      $subnet[0] = 10.32.1
      $subnet[1] = 10.32.2
      $subnet[2] = 10.32.3

---

code:

---

DIM $subnet
 $subnet = "10.32.1","10.32.2","10.32.3"

---

code:

---

:TechStuff
;--- inventory ---
$nb = 0
DO
   if $ClassC = $subnet[$nb]
      call "inventory.kix"
	   endif
   $nb = $nb + 1
UNTIL $nb = $arraytotal

---

code:

---

;subnets:
 $subnet = "10.32.1","10.32.2","10.32.3"

;if correct, do inventory:
if instr($subnet,$ClassC)
      call "inventory.kix"
endif

---