And you're positive that the $location is being set correctly? Maybe some error checking would help...

 Code:
CASE $Location = "tech-dus"
   $nul = messagebox("tech-dus", "location", 0)
   $rc = delprinterconnection("")
   If $rc = 0
      $nul = messagebox("successfully deleted printers", "delprinterconnection", 0)
   Else
      $nul = messagebox("error deleting printers: "+$rc, "delprinterconnection", 0)
   Endif
   $rc = ADDPRINTERCONNECTION ("\\turk-reader\SHS_Kitchen")
   If $rc = 0
      $nul = messagebox("successfully added printer", "SHS_Kitchen", 0)
   Else
      $nul = messagebox("error adding printer: "+$rc, "SHS_Kitchen", 0)
   Endif
   $rc = ADDPRINTERCONNECTION ("\\turk-reader\SHS_P04")
   If $rc = 0
      $nul = messagebox("successfully added printer", "SHS_P04", 0)
   Else
      $nul = messagebox("error adding printer: "+$rc, "SHS_P04", 0)
   Endif
   $rc = SETDEFAULTPRINTER ("\\turk-reader\SHS_P04")
   If $rc = 0
      $nul = messagebox("successfully set printer default", "SHS_P04", 0)
   Else
      $nul = messagebox("error setting printer default: "+$rc, "SHS_P04", 0)
   Endif