Voici un script vbs pour regénerer le STA des serveurs clonés (A appliquer après le renommage) :
remplacer la lettre du lecteur système du serveur (C:) si besoin.
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 FilesCitrixSystem32CtxSta.config"
'Create the FSO.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("C:Program FilesCitrixSystem32CtxSta.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 FilesCitrixlogs")
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("") Chavers: j'ai ajouter la couleur au code.