Okay, don't forget you need the TranslateName UDF and the InContainer UDF either all in the same script or available via a call to them.

Code:

Dim $UsersOU
$UsersOU = InContainer('ou=Users,ou=Information Technology,OU=Dublin,dc=lab,dc=iconcr,dc=com','User')
If $UsersOU[0]=1
  ? 'T: (\\shortts\DATA)'
  Use T: '\\shortts\DATA'
Else
  ? 'User was not found in the Users, Information Technology OU or some other error'
EndIf