Discussion :

[Napium]

Bonjour le Forum!

J'ai déjà effectué une demande similaire il y a peu de temps, pour un problème sur la réalisation d'un batch (Qui a été pleinement satisfaite! http://www.developpez.net/.../scripts-batch), et j'aimerai vous soumettre un autre petit soucis auquel je suis confronté, mais ce coup-ci en Visual Basic Script (Car mon Batch était un peu trop casse g**le au final et on m'a conseillé de le refaire en VBS (Ce qui est en effet bien plus pratique!)

Donc cette fois-ci, j'ai mon code qui me ressort une variable contenant un ID, et je doit ensuite mettre cette variable en paramètre dans l'appel d'un autre.vbs, comme ceci :

(Ma variable : ChildObjectName)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WSHShell = CreateObject("CScript.shell") 
WSHShell.Run "CScript C:\WINDOWS\system32\iiscnfg.vbs /export /f .\ChildObjectName.xml /sp /lm/w3svc/ChildObjectName"

Le problème c'est que ce petit bout de code me retourne :

Erreur d'exécution Microsoft VBScript: Un composant ActiveX ne peut pas créer un objet.: 'CScript.shell'

Une idée?

[ghe69140]

Salut,

Essai ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set WSHShell = CreateObject("WScript.shell") 
WSHShell.Run "CScript C:\WINDOWS\system32\iiscnfg.vbs /export /f .\ChildObjectName.xml /sp /lm/w3svc/ChildObjectName"

[Napium]

Oui c'est la première chose que j’avais faite, mais il me répond un truc du genre l'application n'est pas supporté par Wscript etc...

Je te copie le message d'erreur dès que j'ai re-accès à la machine sur laquelle je fait mes Scripts

EDIT: Ah, je n'avais pas vu la nuance, tu n'a changé que la première ligne, mais tu as laissé Cscript sur la seconde, je pensais que tu me disais de tester comme ceci :

Set WSHShell = CreateObject("WScript.shell")
WSHShell.Run "WScript C:\WINDOWS\system32\iiscnfg.vbs /export /f .\ChildObjectName.xml /sp /lm/w3svc/ChildObjectName"

Et ça, ça retourne une fenêtre system "This Script does not work with WScript" puis "Would you define CScript.exe as default"

De ta manière, ça ne me retourne pas de message d'erreur, mais une Invite de commande qui s'ouvre et se referme aussi sec, je pense que le soucis viens de ma variable, j'ai du mal la déclarer dans les paramètres la fonction ne doit pas la voire en tant que variable, qu'en pense tu?
En tout cas merci!

EDIT 2: En effet, lorsque je rentre mon paramètre en "dur" ça fonctionne, reste à savoir comment mette ma variable en paramètre.

Une autre Idée?

[ghe69140]

Re,

En effet bonne analyse, essai ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WSHShell.Run("WScript C:\WINDOWS\system32\iiscnfg.vbs /export /f .\" & ChildObjectName & ".xml /sp /lm/w3svc/" & ChildObjectName")

[Napium]

Cool, tout marche très bien maintenant! voici mon bout de code ça aidera peut-être quelqu'un un jour!

Il sert à exporter les configurations en .xml des sites d'un IIS, site par site.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
 
Sub Main
    Dim ChildObjectName
    Dim ChildObject
    Dim IIsObject
    Dim IIsObjectPath
    Dim MachineName
    Dim ObjectPath
    Dim WSHShell
 
    ObjectPath = "W3SVC"
    MachineName = SeparateMachineName()
    IIsObjectPath = "IIS://" & MachineName
	IIsObjectPath = IIsObjectPath & "/" & ObjectPath
    Set IIsObject = GetObject(IIsObjectPath)
    Set WSHShell = CreateObject("WScript.shell") 
 
    For Each ChildObject In IIsObject
        ChildObjectName = Mid(ChildObject.AdsPath, InStrRev(ChildObject.AdsPath, "/") + 1)
        WSHShell.Run("CScript C:\WINDOWS\system32\iiscnfg.vbs /export /f .\" & ChildObjectName & ".xml /sp /lm/w3svc/" & ChildObjectName & " /inherited /children")
    Next
 
End Sub
 
Function SeparateMachineName()
	SeparateMachineName="localhost"
End Function

Merci beaucoup du temps passé à me répondre!

[ghe69140]

Salut,

Cool si ça fonctionne, pense à passer ton post en "Résolu".

A+