code:

---

 if @productsuite = 16
    "Terminal Server" ?
endif 

---

code:

---

 
If @PRODUCTSUITE & 16 ;detects the Terminal Services session
	? Color y+/r "Terminal Services Session detected - Aborting login script..."
	Sleep 1
Exit
EndIf
 

---

code:

---

break on
"VarType is: "
VarType(@ProductSuite) ?

"@@ProductSuite is: "
@ProductSuite ?

if Val(@ProductSuite) & 16
 "It is a Terminal Server" ?
endif

get $_  

---

code:

---

Function ProductSuite ($Product)
   Dim $Product

   select
      case  $Product = "None"                         $x=0
      case  $Product = "Small Business"               $x=1
      case  $Product = "Enterprise"                   $x=2
      case  $Product = "BackOffice"                   $x=4
      case  $Product = "CommunicationServer"          $x=8
      case  $Product = "Terminal Server"              $x=16
      case  $Product = "Small Business (Restricted)"  $x=32
      case  $Product = "Embedded NT"                  $x=64
      case  $Product = "DataCenter"                   $x=128
      case  $Product = "Single User Terminal Server"  $x=256
      case  $Product = "Home Edition"                 $x=512
      case  $Product = "Blade Server"                 $x=1024
      case 1   $RC=MessageBox ("Invalid parameter used in function ProductSuite ($Product)",48)
               WriteLog("Invalid parameter used in function ProductSuite ($Product)")
   endselect

   $ProductSuite = $x & val(@ProductSuite)
Endfunction
  
if ProductSuite("Terminal Server") and not ProductSuite("Single User Terminal Server")
   CallScript("$HomeDrive\CitrixMap.kix")
endif

---