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