New York Office

913-738-6942

Kansas City Office

913-323-6870

London Office

+0800 689 3835

ImageNow Capture Keys from EPIC Through A Citrix Session

Sub Heading Comes Here

HTML Generator Sample Page

The “ImageNow Capture – Advanced” series of postings by Shamrock Solutions is intended to provide ImageNow Administrators with simplified solutions to normally difficult or impossible metadata capture.

In this example the metadata from an application “EPIC” opened from a Citrix session is used to capture metadata for Linking OR Viewing via the ImageNow Client running locally, and in an entirely different session than the EPIC host application. The steps for obtaining the value are to highlight the metadata needed in the host application, and Press CTRL+C, and finish your document capture or linking. The vbscript below handles the rest:

‘A pre-requisite is that clipboard access be allowed in the Citrix session. In all instances where implemented thus far it has been. Just in case a reference is needed:

‘On the Citrix servers set registry path: HKEY_LOCAL_MACHINE\SOFTWARE\Citrix\ICA Client\Engine\Lockdown Profiles\All Regions\Lockdown\Virtual Channels\Clipboard with key name “ClipboardAllowed” and DWORD value = “TRUE”

‘And key: HKEY_CURRENT_USER\Software\Citrix\ICA Client\Engine\Lockdown Profiles\All Regions\Lockdown\Virtual Channels\Clipboard with key name “ClipboardAllowed” and DWORD value = “TRUE”

‘And the Citrix All_Regions.ini Virtual Channels\Clipboard key: = TRUE

‘Set a default just in case

defaultValue = “NO VALUE CAPTURED”

Set objHTML = CreateObject(“htmlfile”)

ClipboardText = objHTML.ParentWindow.ClipboardData.GetData(“text”)

‘First we’ll make sure there is no white space captured in the copy/get

ClippedText = DoMacroDeleteCharacters(ClipboardText, ” “)

MsgBox ClippedText

‘Do some validation ensuring we have the data we want at this point

if len(ClippedText) < 6 or ClippedText = “” or ClippedText = “<error>” Then

MsgBox “It appears the clipboard data is not an Epic Guarantor ID. Please click CANCEL and try to copy the value again.”, vbYesNo

Set INObj = GetObject(, “imagenow6.CtrlPanel”)

ScanningField1 = defaultValue

INObj.PvCommand “Exit”

‘msgbox ScanningField1

elseif IsNumeric(ClippedText) = False Then

Set INObj = GetObject(, “imagenow6.CtrlPanel”)

msgbox “You have non-numeric values selected please click cancel or exit the capture, and select your data from Epic again -> Then press CTRL+C at the same time”

ScanningField1 = “YOU HAVE NON-NUMERIC VALUES”

INObj.PvCommand “Exit”

elseif len(ClippedText) >= 6 and IsNumeric(ClippedText) = True Then

ScanningField1 = ClippedText

end if

 

Leave a Reply

Your email address will not be published. Required fields are marked *

WE CALL YOU BACK

Request A Callback

Our team is composed of senior-level public relations consultants with editorial and creative skills that have been built over years of delivering PR services to top.