code:

---

function UserOU()
;Used for generating several variables - This is required.
 $userou = ""
 $sysinfo = createobject("adsysteminfo")
 if $sysinfo
  $user = getobject("LDAP://"+$sysinfo.username)
   if $user
    $name=getobject($user.parent).name
    if $name
    $userou = substr($name,4,len($name))
   endif
  endif
 endif
endfunction

---

code:

---

;----------Houston
if INSTR($sysinfo.username, "Houston")<>0 $city="Houston" 
	gosub "display" 
	goto "houston" 
Endif

---

code:

---

if vartype($sysinfo) <> 9 and @error <> 0 
     ? "error with $$sysinfo COM object @serror" exit(1)
endif

---

code:

---

function UserOU()
 dim $sysinfo 
 dim $user 
 dim $name

 ... the rest

---