Dim $sRootKey
$sRootKey="HKCU\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts\"
 
Dim $asSub,$sSub, $asSpl, $sSpl
 
	$asSub=ReadRegValArr($sRootKey)
		For Each $sSub in $asSub
		$asSpl = Split($sSub, "\")[3]
			;For Each $sSpl in $asSpl
		"	Printer: "+$asSpl[3]+@CRLF
			;Next
		Next

Exit 0
   
Function ReadRegValArr($sKey)
	Dim $i,$sSubKey
 	Redim $ReadRegValArr[0]
 	$i=0
	$sSubKey=EnumValue($sKey,$i)	
	While Not @ERROR
		ReDim Preserve $ReadRegValArr[$i]
		$ReadRegValArr[$i]=$sSubKey		
		$i=$i+1
		$sSubKey=EnumValue($sKey,$i)	
	Loop
	If @ERROR=259 Exit 0 Else Exit @ERROR EndIf
EndFunction

$name = "\\server\share"

$name=split($name,"\")
$name=$name[ubound($name)]

$name ?

$name="\\server\share"
$name=split($name,"\")[ubound(split($name,"\"))]
$name ?

;or
$name="\\server\share"
$name=substr($name,instrrev($name,"\")+1)
$name ?

 
$name = "\\server\share" 

$name=split($name,"\") ;splits the \\server\share into 4 parts and puts them in an array. 
$name=$name[ubound($name)] ;redefine the $name variable with the last part of the array?

$name ?

? $name[3]

Dim $sRootKey
$sRootKey="HKCU\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts\"
 
Dim $asSub,$sSub, $name, $sSpl, $j
	Redim $asPrinters[0]
	$j = 0
	
	$asSub=ReadRegValArr($sRootKey)
		For Each $sSub in $asSub
		$name=split($sSub,"\")
		$name=$name[ubound($name)]
		Redim Preserve $asPrinters[$j]
		$asPrinters[$j] = $name
		$j = $j + 1
		Next

		For Each $sPrinter in $asPrinters
		"	Printer: "+$sPrinter+@CRLF
		Next
Exit 0
   
Function ReadRegValArr($sKey)
	Dim $i,$sSubKey
 	Redim $ReadRegValArr[0]
 	$i=0
	$sSubKey=EnumValue($sKey,$i)	
	While Not @ERROR
		ReDim Preserve $ReadRegValArr[$i]
		$ReadRegValArr[$i]=$sSubKey		
		$i=$i+1
		$sSubKey=EnumValue($sKey,$i)	
	Loop
	If @ERROR=259 Exit 0 Else Exit @ERROR EndIf
EndFunction

Dim $NovellPrinters[0]
Dim $NovellPorts[0]
Dim $NovellDrivers[0]
$x = 0
$y = 0
$w = 0

$ShellCMD = "printer.exe list " + chr(34) + "*" + chr(34) + " " + chr(34) + "\\novell\*" + chr(34)

$NovellPrinterRawList = WshPipe($ShellCMD)

for each $Printer in $NovellPrinterRawList
	if instr($Printer,"PrinterName")
		$PrinterName = split($Printer,": ")
		$NovellPrinters[$x] = $PrinterName[1]
		$x = $x + 1
		ReDim Preserve $NovellPrinters[$x]
	endif
	if instr($Printer,"PortName")
		$PortName = split($Printer,": ")
		$NovellPorts[$y] = $PortName[1]
		$y = $y + 1
		ReDim Preserve $NovellPorts[$y]
	endif
	if instr($Printer,"DriverName")
		$DriverName = split($Printer,": ")
		$NovellDrivers[$w] = $DriverName[1]
		$w = $w + 1
		ReDim Preserve $NovellDrivers[$w]
	endif
next

;--------------------------------------
; Remap other installed Novell printers
;--------------------------------------

for $z = 0 to ubound($NovellPrinters)
if $NovellPrinters[$z] <> ""
	select
	; Downstairs 8100
	case instr($NovellPorts[$z],"PrnQ8100")
		select
		case instr($NovellDrivers[$z],"PCL")
			if not PriMapState ("\\nt_print\HP8100-PCL6")
				if PriMapState($NovellPrinters[$z])
					$ShellCMD = "rundll32 printui.dll,PrintUIEntry /dl /n " + chr(34) + $NovellPrinters[$z] + chr(34)
 					Shell $ShellCMD
 				endif
				$rc = AddPrinter("\\nt_print\HP8100-PCL6","_")
				if $rc <> 1
					? "Error " @ERROR + " " + @SERROR
				endif
			endif
	 ; and so on for all the different printers / trays
	 endselect
endif