$Names = TranslateName (3, "", 3, @Domain + "\" + @wksta + "$", "1") 
Dim $x
	$objParent = GetObject("LDAP://" + $Names[1])
	$objParent.Put("description",""+@fullname+ " " +@PRODUCTTYPE+"")
	$objParent.SetInfo


Function TranslateName ($InitType, $BindName, $LookupNameType, $LookupName, $ReturnNameType)
  Dim $NameTranslate, $Error, $ErrorText, $ReturnNameArray[12], $GetNameArray, $value
  $Error = 0
  $ErrorText = ""
  $ReturnName = ""
  $NameTranslate = CREATEOBJECT ("NameTranslate")
  $Error = @error
  $ErrorText = @serror
  if $Error = 0
    $NameTranslate.Init ($InitType, $BindName)
    $Error = @error
    $ErrorText = @serror
    if $Error = 0
      $NameTranslate.Set ($LookupNameType, $LookupName)
      $Error = @error
      $ErrorText = @serror
      if $Error = 0        
Dim $index
        $GetNameArray = split($ReturnNameType, ",")
        for $index=0 to ubound($GetNameArray)
          $value = $GetNameArray[$index]
          $ReturnNameArray[$value] = $NameTranslate.Get($value)
        next
      else
        WriteLog("TranslateName SET Error: (" + $Error + ") " + $ErrorText)
        exit $Error
      endif
    else
      WriteLog("TranslateName INIT Error: (" + $Error + ") " + $ErrorText)
      exit $Error
    endif
  else
    WriteLog("TranslateName CREATEOBJECT Error: (" + $Error + ") " + $ErrorText)
    exit $Error
  endif
  $TranslateName = $ReturnNameArray
  Exit 0
Endfunction