[IIS 6] Remettre des sites en ligne à l'aide de iiscnfg.vbs

[Napium]

Bonjour le forum!

Je suis en train de faire un script en VBScript qui utilise iiscnfg.vbs, et je bloque un peu.

Ce que je voudrais faire, c'est mettre en place un système de sauvegarde des sites IIS présent sur un serveur et les remonter, en cas de panne, sur un second ayant exactement la même architecture.

J'ai déjà fait le .vbs servant à exporter toutes les config des sites en .xml je me retrouve donc avec des fichier ###...#.xml (ou # étant un chiffre de 0 à 9) correspondant à l'ID du site.
Je les exporte sur l'autre serveur, et je coince dans le second .vbs au niveau de la réimportation, voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit

Sub Main

	Dim ObjFichier, Folder, FicFolder, Fichier, NomFichier, pos
	Dim WSHShell
	
	Set ObjFichier = CreateObject("Scripting.FileSystemObject")
	Set Folder = ObjFichier.GetFolder("C:\Documents and Settings\Administrateur\Desktop\Test")
	Set FicFolder = Folder.Files
	Set WSHShell = CreateObject("WScript.shell") 
	
	For Each Fichier in FicFolder
		'Ces deux lignes servent à extraire le nom du fichier sans le .xml
			pos = instr(Fichier.name, ".")
			NomFichier = left(Fichier.name, pos - 1)
		'La ligne qui me pose soucis
			WSHShell.Run("CScript C:\WINDOWS\system32\iiscnfg.vbs /import /f .\" & Fichier.name & " /sp /lm/w3svc/" & NomFichier & " /dp D:\www\" & NomFichier & " /inherited /children")

	Next

End Sub

Main