$name=@fullname
if instr($name,' ')
$left = left(split($name,' ')[0],7)
$right= left(split($name,' ')[1],1)
$shortname = $left+$right
endif
? $shortname

	$ldap		= TranslateName(1, @domain, 3, @ldomain+'\'+@userid, 1)
	$UserProperties = GetObject("LDAP://"+$LDAP[0])
	$FirstName	= $userProperties.FirstName
	$LastName	= $userProperties.LastName
	$left = left($FirstName,7)
	$right= left($LastName,1)
	$shortname = $left+$right
? $shortname

and include the translatename UDF

'User Name is: ' + Join(Split(GetUserADName(7,1),CHR(32)),'') ?

Function GetUserADName($FN,$LN)
  Dim $LDAP, $UserProperties, $FirstName, $LastName
  Dim $Left, $Right, $ShortName, $Err
  $LDAP	= TranslateName(1, @DOMAIN, 3, @LDOMAIN+'\'+@USERID, 1)
  $Err = @ERROR
  If $Err Exit $Err EndIf
  $UserProperties = GetObject("LDAP://"+$LDAP[0])
  $Err = @ERROR
  If $Err Exit $Err EndIf
  $FirstName = $UserProperties.FirstName
  $LastName = $UserProperties.LastName
  $Left = Trim(Left($FirstName,$FN)) ;$FN is the number of characters to get
  $Right = Trim(Left($LastName,$LN)) ;$LN is the number of characters to get
  $ShortName = $Left+CHR(32)+$Right
  $GetUserADName = $ShortName
  Exit @ERROR
EndFunction

Function TranslateName ($InitType, $BindName, $LookupNameType, $LookupName, $ReturnNameType)
  Dim $NameTranslate, $ReturnName, $Error, $ErrorText
  $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
        $ReturnName = $NameTranslate.Get($ReturnNameType)
        $Error = @ERROR
        $ErrorText = @SERROR
      EndIf
    EndIf
  EndIf
  $TranslateName = $ReturnName, $Error, $ErrorText
Endfunction

IF @WKSTA="TS-SERVER"
	$User1=ReadValue('HKEY_CURRENT_USER\Software\GoldMine\GoldMine Link for Microsoft Outlook','GMUserName')
	If $User1=''
		Shell 'regedit /s "\\MAIN-SERVER\Support\Goldmine\GISMO\GISMO.reg"'
		$id=readprofilestring('\\MAIN-SERVER\Support\Goldmine\GISMO\GISMO.ini','names','@FULLNAME')
		if $id =""
			?"    GISMO Not Configured!!"
			?"      Cant find GM User ID for " + @LDOMAIN "\" + @FULLNAME
			?"          Current GM User ID: " + $User1
		else
			WriteValue("HKCU\Software\GoldMine\GoldMine Link for Microsoft Outlook","GMUserName","$id","REG_SZ")
			$User2=ReadValue('HKEY_CURRENT_USER\Software\GoldMine\GoldMine Link for Microsoft Outlook','GMUserName')
			?"  GISMO Configured for " + @LDOMAIN "\" + @FULLNAME "	- Current GM User ID: " + $User2
		endif 
	else
		?"  GISMO Configuration Not Changed!	- Current GM User ID: " + $User1
EndIf

Dim $User1, $ID, $RC, $User2
If @WKSTA="TS-SERVER"
  $User1 = ReadValue('HKCU\Software\GoldMine\GoldMine Link for Microsoft Outlook','GMUserName')
  If Not $User1
    Shell 'regedit /s "\\MAIN-SERVER\Support\Goldmine\GISMO\GISMO.reg"'
    $ID = ReadProfileString('\\MAIN-SERVER\Support\Goldmine\GISMO\GISMO.ini','names',@FULLNAME)
    If Not $ID
      "    GISMO Not Configured!!" ?
      "    Cant find GM User ID for " + @LDOMAIN + "\" + @FULLNAME ?
      ; The line below should never display $User1 as it should only get here if it is blank
      "    Current GM User ID: " + $User1
    Else
      ; The $RC line will be wrong as it should also only get here if $ID is blank so you would write a blank
      ; Which in turn would actually delete the value if one is there
      $RC = WriteValue('HKCU\Software\GoldMine\GoldMine Link for Microsoft Outlook','GMUserName',$ID,REG_SZ)
      $User2 = ReadValue('HKCU\Software\GoldMine\GoldMine Link for Microsoft Outlook','GMUserName')
      "  GISMO Configured for " + @LDOMAIN + "\" + @FULLNAME + " - Current GM User ID: " + $User2 ?
    EndIf
  Else
    ; This line shold always be blank for $User1 as you've not read it from the Registry yet
    ; And it only got here because the name of the system was not "TS-SERVER"
    "  GISMO Configuration Not Changed!    - Current GM User ID: " + $User1 ?
EndIf