Lors du clonage de serveurs Citrix Presentation Server 4.x, une des précautions à prendre est de modifier l’ID du STA (cf CTX108361).
Merci à Maxime (aka Jolebarjo de www.forum-citrix.com) pour ce script qui permet de régénérer le STA sur un serveur:
Dim objFSO, objTextFile, objServerName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objComputer = CreateObject("Shell.LocalMachine")
‘Delete the existing STA file.
objFSO.DeleteFile "C:\Program Files\Citrix\System32\CtxSta.config"
‘Create the FSO.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("C:\Program Files\Citrix\System32\CtxSta.config", True)
objTextFile.WriteLine("[GlobalConfig]")
objTextFile.WriteLine("")
objTextFile.WriteLine("UID=STA" & objComputer.MachineName)
objTextFile.WriteLine("")
objTextFile.WriteLine("TicketVersion=10")
objTextFile.WriteLine("")
objTextFile.WriteLine("TicketTimeout=100000")
objTextFile.WriteLine("")
objTextFile.WriteLine("MaxTickets=100000")
objTextFile.WriteLine("")
objTextFile.WriteLine("LogLevel=3")
objTextFile.WriteLine("")
objTextFile.WriteLine("MaxLogCount=10")
objTextFile.WriteLine("")
objTextFile.WriteLine("MaxLogSize=20")
objTextFile.WriteLine("")
objTextFile.WriteLine("LogDir=C:\Program Files\Citrix\logs\")
objTextFile.WriteLine("")
objTextFile.WriteLine("AllowedClientIPList=*")
objTextFile.WriteLine("")
objTextFile.WriteLine("SSLOnly=off")
objTextFile.WriteLine("")
objTextFile.WriteLine("")
objTextFile.WriteLine("")
objTextFile.WriteLine("")
objTextFile.WriteLine("")
objTextFile.WriteLine("")
objTextFile.WriteLine("")
objTextFile.WriteLine("")
Crédit: http://forum-citrix.com/index.php?topic=1351.msg8237;topicseen#msg8237
Commentaires
Aucun commentaire pour l'article “Script de régénération du STA”
Ajouter un commentaire