;Create connections to all servers in the farm.

;Must be run on the Citrix Server

;Written by Brian Smyth, Intertech Ireland

? "Please input the Location to put the APPSRV.INI"

? "ie. \\Client\C$"

?

? ">  "

GETS $OutputLocationFolder

$OutputLocationFile = $OutputLocationFolder + "\APPSRV.ini"

$ctxfarm = CreateObject("MetaFrameCOM.MetaFrameFarm")

If @Error <> 0

   ? "Error occurred while creating the farm object"

   ? "+@Error+" - "+@SError

Endif

$ctxfarm.Initialize(1)

If @Error <> 0

   ? "Error occurred while initializing the farm object"

   ? "+@Error+" - "+@SError

Endif

For Each $ctxserver in $ctxfarm.servers

WRITEPROFILESTRING($OutputLocationFile, "WFClient", "Version", "2")

WRITEPROFILESTRING($OutputLocationFile, "ApplicationServers", $ctxserver.ServerName, " ")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "TransportDriver", "TCP/IP")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "BrowserProtocol", "UDP")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "ScreenPercent", "95")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "DoNotUseDefaultCSL", "Off")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "Description", $ctxserver.ServerName)

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "Address", $ctxserver.IPAddress)

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "IconPath", "C:\Program Files\Citrix\ICA Client\pn.exe")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "IconIndex", "1")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "ConnectType", "2")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "MaximumCompression", "Off")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "UseAlternateAddress", "0")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "Compress", "On")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "PersistentCacheEnabled", "On")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "MouseTimer", "0")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "KeyboardTimer", "0")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "AudioBandwidthLimit", "2")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "UseDefaultSound", "On")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "DefaultSoundType", "1")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "UseDefaultEncryption", "On")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "EncryptionLevel", "1")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "UseDefaultWinColor", "Off")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "UseDefaultWinSize", "Off")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "DesiredWinType", "6")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "TWIMode", "Off")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "ZLKeyboardMode", "0")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "ZLMouseMode", "2")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "UseLocalUserAndPassword", "Off")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "DisableCtrlAltDel", "On")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "UIFlags", "12")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "DesiredColor", "2")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "SSLEnable", "Off")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "SSLNoCACerts", "0")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "SSLCiphers", "ALL")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "CGPAddress", ")

WRITEPROFILESTRING($OutputLocationFile, $ctxserver.ServerName, "SSLProxyHost", "*:443")

Next