Frittz a écrit :
Bonjour,
J'ai un problème que je n'arrive pas a résoudre donc je solicite votre aide.
Je dois créer un script qui créer des repertoires et aprés qui les transforme en repertoire virtuelle pour un serveur IIS.
Je pense que ce script marche pour la création de repertoire virtuel.
Cependant j'ai un problème car le script crée les repertoires (enfin en partie..).
Les repertoires viennent d'une liste.txt, entrer les un à la suite des autres.
Problèmes :
- Il ne crée jamais le dernier repertoire de la liste ( problème dans la boucle ?)
- Dans les repertoires créer il recrée les repertoires de la liste.
ex :
liste.txt :
rep1
rep2
rep3
Il crée les repertoires 1 et 2 mais pas le 3eme.
Dans les rep 1 et 2 il recreera les repertoires 1 et 2.
Voila le code !
Code :
- 'Declaration des variables
- Dim ligne
- Dim fsoopen, fsocreate, f, fexist, servobj, vdirobj
- 'msgbox "hop"
- 'Creation des objets fso pour l'ouverture, la creation de repertoire et le test d'existence de repertoire
- Set fsoopen = CreateObject("scripting.filesystemobject" )
- Set fsocreate = CreateObject("scripting.filesystemobject" )
- Set fexist = CreateObject("scripting.filesystemobject" )
- Set liste = fsoopen.opentextfile("C:\SCRIPT\listelogin.txt", 1)
- ligne = liste.readline '1ere lecture : 1ere ligne
- 'msgbox ligne
- Do While liste.atendofstream <> true
- If fexist.Folderexists(ligne) <> true then
- Set f = fsocreate.CreateFolder("C:\SCRIPT\" & ligne) 'creation du répertoire
- Set servobj = GetObject("IIS://localhost/W3SVC/3/ROOT" ) 'le paramétre 3 nous renseigne qu'il s'agit de la 3eme zone (zone eleve), c'est ici que sont cree les repertoires virtuels
- if (err<>0) then
- msgbox "probleme d'ouverture du chemin du serveur web"
- end if
- Set vdirobj = servobj.create("IISWebVirtualDir", ligne)
- vdirobj.Path = "c:\SCRIPT\" & login
- vdirobj.AccessRead = True
- vdirobj.AccessWrite = True
- vdirobj.EnableDirBrowsing = False
- vdirobj.AppFriendlyName = "test " & ligne
- vdirobj.SetInfo
- ligne = liste.readline
- else
- ligne = liste.readline
- End if
- Loop
|
Merci beaucoup pour votre aide car je desespere.
A+
|