It might be a bit tricky but enumerating the registry key and checking the name might work. This only work if there is just one sub key in HKLM\software\citrix\PortICA\uxpersistence\.

 Code:
$index = 0
$keyname = EnumKey("HKLM\software\citrix\PortICA\uxpersistence\", $index)
While @ERROR = 0
	Select
		Case InStr($keyname, "LA-DOC")
			;set printers
		Case InStr( $keyname, "LA-ROO")
			;set printers
		Case InStr($keyname, "aaaaaa")
			;set printers
	EndSelect
	$Index = $Index + 1
Loop


Edited by Mart (2011-06-22 08:54 AM)
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.