Como cambiar el nombre a una conexión ICA

Sábado, 04 de Octubre de 2008 15:28 |

Escrito por xavisan |

Knowledgebase

Uno de los fallos más importantes de Presentation Server 4, es el nombre de la conexión virtual que se establece con el servidor de Presentation Server, el problema reside en que por norma general la conexión realizada mediante WebInterface durante el proceso de Download del cliente ICAWeb, el usuario establece por defecto el uso del nombre del PC Local, lo que podemos encontrarnos con problemas debido a duplicación de nombres y generación de impresión por impresoras que no son las correctas.

Para solucionar este problema es necesario modificar o generar una nueva clave del registro del PC desde donde es solicitada la sesión ICA.

En este caso publicamos un Script realizado en VBScript, que soluciona esta problemática.

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Citrix\ICA Client"

strValueName = "ClientName"

oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

dim objICA

set objICA = CreateObject("Citrix.ICAClient")

Randomize Timer

Dim tmpCounter,tmpGUID

Const strValid = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

For tmpCounter = 1 To 5

tmpGUID = tmpGUID & Mid(strValid, Int(Rnd(1) * Len(strValid)) + 1, 1)

CreateGUID = tmpGUID

nombre = "ICA"+CreateGUID

strValueName = "ClientName"

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,nombre