Bonjour,
 
Ce script :
 
strComputer="."
Set objWMIService=GetObject("winmgmts:{autenticationLevel=pktPrivacy}\\" & strComputer & "\root\microsoftiisv2" )
Set objWebService=objWMIService.ExecQuery("Select * from IISWebService" )
arrBindings=Array(0)
Set arrBindings(0)=objWMIService.Get("ServerBinding" ).SpawnInstance_()
arrBindings(0).IP="AdresseIP"
arrBindings(0).Port="Port"
arrBindings(0).Hostname="Nom"
For Each objitem in objWebService
objitem.CreateNewSite "test Site", arrbindings, "c:\intetpub\wwwroot"
Next
 
permet de créer un site web "test site". Par contre je ne vois pas comment créer des dossiers virtuels pour ce site.
Vous auriez une idée ?
 
Merci !