Function GetSessionID()
Dim $s_sessionid
Dim $iIndex	$GetSessionID = 0
$s_sessionid = SubStr(%TEMP%,1+InStrRev(%TEMP%,"\"))
While $s_sessionid <> ""
		$iIndex = InStr("0123456789ABCDEF",Left($s_sessionid,1))
		If $iIndex			
		$GetSessionID = $GetSessionID*16+(Cint($iIndex-1))
		$s_sessionid = SubStr($s_sessionid,2)
		Else		
		$GetSessionID = 0
		$s_sessionid = ""
		EndIf
		Loop
EndFunction

$clientn = %computername%
$printserver="servprt1" 
$printserver2="servprt2"
$printserver3="servprt3"
$printserverfw="servappl7"

;####################
;# Drucker zuordnen #
;####################

IF @PRODUCTSUITE = 16
$clientn = %clientname%
select
case InStr(@PRODUCTTYPE,"Server 2008")
      $clientn = ReadValue("HKEY_USERS\" + @SID  + "\Volatile Environment\" + getsessionid(),"CLIENTNAME")
	  $printserver="servprt3"
endselect
ENDIF

$Amt3 = Left ($clientn, 3)
$Amt4 = Left ($clientn, 4)
$Amt5 = Left ($clientn, 5)
$Amt6 = Left ($clientn, 6)

GOTO $Amt5
  
:Amt14

IF $clientn = "Amt1404"
    AddPrinterConnection ("\\"+$printserver+"\DAmt1003")
    SetDefaultPrinter ("\\"+$printserver+"\DAmt1003")
    RETURN  
ENDIF