'CTXBLOG (14/05/09) 'Ce script vbs permet d'ajouter des serveurs à une ou plusieurs applications publiées 'via la commande Addserver du SDK XenApp. On error Resume next Dim objFileSystem, objInputFile Dim strInputFile, inputData, strData Const OPEN_FILE_FOR_READING = 1 Set WshShell = Wscript.CreateObject("Wscript.Shell") ' déclaration des fichiers à lire (strOutputFile1 = fichier contenant la listes des applications et strOutputFile2 = fichier contenant la liste des serveurs) 'Indiquer le chemin ou se trouve les fichiers applis.txt et serveurs.txt strOutputFile1 = "C:\tools\scripts\Addservers\applis.txt" strOutputFile2 = "C:\tools\scripts\Addservers\serveurs.txt" 'Ouverture des fichiers Set objFileSystem = CreateObject("Scripting.fileSystemObject") Set objInputFile1 = objFileSystem.OpenTextFile(strOutputFile1, OPEN_FILE_FOR_READING) Set objInputFile2 = objFileSystem.OpenTextFile(strOutputFile2, OPEN_FILE_FOR_READING) inputData1 = Split(objInputFile1.ReadAll, vbNewline) inputData2 = Split(objInputFile2.ReadAll, vbNewline) 'Variable Applis, début du DN de votre Applis (attention si vos applis sont publiées dans des dossiers et sous-dossiers 'il faudrat dans le fichier strOutputFile1 renseigner ces dossiers et sous-Dossiers ex : /OFFICE/WORD App_DN = "/Applications/" 'Boucle Applicative For each strData1 In inputData1 APP = strdata1 'Boucle Serveur For each strData2 In inputData2 Serv = strdata2 CommandApp = "addserver.exe " & APP_DN & APP & " " & Serv Call WshShell.Run(CommandApp,2,True) next Next objInputFile1.Close objInputFile2.Close Set objFileSystem = Nothing WScript.Quit(0)