Bonjour
Je reviens sur le sujet de script de regenaration du fichier STA, quelqu’un l’aurais t il tester sous windows 2008, sinon quelqu’un aurai t il un script pour 2008??
ce script ne fonctionne pas sous 2008
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("")