[VBScript] Problème avec fin d'instruction attendue

Version imprimable

Bonjour, je suis nouveau sur ce forum, je vous salue.

J'ai un soucie avec un code que j'ai fait pour l'entreprise pour laquelle je travaille. Ce code doit lister les dossiers et les sous-dossier dans un répertoire et les partager sur le réseau, mais il me fait un erreur "Fin d'instruction attendu" a un moment donner, vers la fin et je ne sais pas ce que cela peut bien être.

Je voudrais demander si vous pouviez me donner un indice sur mon problème.

Erreur :

Ligne : 60
Caract. : 3
Code : 800A401

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
option explicit
 
'Définition de variable
Dim foldername, objfso, objrootfolder, objsubfolder, stroutput
 
'Demande à l'utilisateur l'emplacement du fichier
foldername = inputbox("Quel dossier voulez-vous scanner ? (chemin UNC)")
 
'Listage des dossiers et des sous-dossiers
Set objfso = createobject("scripting.filesystemobject")
Set objrootfolder = objfso.getfolder(foldername)
Set objsubfolder = objrootfolder.subfolders
 
'Boucle de listage
 
	For Each objrootfolder in objsubfolder
		stroutput = stroutput & objrootfolder.name
		stroutput = stroutput &  vbCrLf
	Next
 
'Affichage des dossier à l'écran
msgbox stroutput
 
'Définition de variable
'Dim outputfile
 
'Création d'un fichier texte pour stocker les noms des dossiers
'Set stroutput = objfso.createtextfile("C:\Result.txt")
 
dim CreateFolder, CreateFile, oFSO, oFolder, oFile, oText
 
CreateFolder = inputbox("Entrez le nom du dossier à créer")
CreateFile = inputbox("Entrez le nom du fichier à créer")
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.CreateFolder("C:\" & CreateFolder)
'Set oFile = oFSO.CreateTextFile("C:\" & CreateFolder & "\" & CreateFile & ".txt")
 
Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile ,8,true)
 
oText.WriteLine(stroutput)
 
Const ForReading = 1, ForWriting = 2 
 
  Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile, ForReading)
	while Not oText.AtEndOfStream 
		wscript.echo oText.ReadLine
 
	Const FILE_SHARE = 0
	Const MAXIMUM_CONNECTIONS = 25
 
		Dim objWMIService, objNewShare, strComputer
 
		strComputer = "."
 
		Set objWMIService = GetObject("winmgmts:" _
		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
		Set objNewShare = objWMIService.Get("Win32_Share")
		errReturn = objNewShare.Create _
                "C:\" & oText &", " & oText , FILE_SHARE, _
		MAXIMUM_CONNECTIONS
 
		Wscript.Echo errReturn
 
	Wend
 
	oText.Close

Merci à l'avance pour toute aide apporter.

Salut

Ligne 60 à 62, bien que ne connaissant pas l'objet objNewShare.Create, aprés un =, les paramétrés de fonction ou procédure doivent être encadrés de (...,...,.......)
Code:

1 2 3 4 Set objNewShare = objWMIService.Get("Win32_Share") errReturn = objNewShare.Create _ ("C:\" & oText & ", " & oText, FILE_SHARE, _ MAXIMUM_CONNECTIONS)

Je voudrais préciser que (objNewShare) est le nom de la variable qui me permet de contenir l'information ressortie et par le fait même je ne comprend pas la réponse, car lorsque je met des parentèses il me ressort l'erreur :
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 25 26 Const ForReading = 1, ForWriting = 2 Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile, ForReading) while Not oText.AtEndOfStream wscript.echo oText.ReadLine Const FILE_SHARE = 0 Const MAXIMUM_CONNECTIONS = 25 Dim objWMIService, objNewShare, strComputer strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNewShare = objWMIService.Get("Win32_Share") --ici--> errReturn = objNewShare.Create _ ("C:\" & oText &", " & oText , FILE_SHARE, _ MAXIMUM_CONNECTIONS) Wscript.Echo errReturn Wend oText.Close
Ligne :74
Caract.: 3
Erreur : Cet objet ne gère pas cette propriété ou cette méthode

Curieux
avec ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
	Const FILE_SHARE = 0
	Const MAXIMUM_CONNECTIONS = 25
 
		Dim objWMIService, objNewShare, strComputer
 
		strComputer = "."
 
		Set objWMIService = GetObject("winmgmts:" _
		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
		Set objNewShare = objWMIService.Get("Win32_Share")
	errReturn = objNewShare.Create _
	("C:\" & oText &", " & oText , FILE_SHARE, _
		MAXIMUM_CONNECTIONS)
 
		msgbox errReturn

pas d'erreur.
Par contre avec ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
	Const FILE_SHARE = 0
	Const MAXIMUM_CONNECTIONS = 25
 
		Dim objWMIService, objNewShare, strComputer
 
		strComputer = "."
 
		Set objWMIService = GetObject("winmgmts:" _
		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
		Set objNewShare = objWMIService.Get("Win32_Share")
	errReturn = objNewShare.Create _
	"C:\" & oText &", " & oText , FILE_SHARE, _
		MAXIMUM_CONNECTIONS
 
		msgbox errReturn

j'ai bien l'erreur Cet objet ne gère pas cette propriété ou cette méthode
Donc ton erreur doit provenir d'une partie du code que tu ne nous mes pas :aie:, le gestionnaire d'erreur de l'éditeur VBS n'est pas des plus fiable, la ligne et le n° de colonne n'est pas garantie.

Tout le code VBS est dans mon premier post.

Dans mon cas, que je met le chemin UNC entre parenthèse ou pas, il me fait une erreur. Mais elle n'est jamais à la même place. Si les parenthèse sont la, l'erreur ce situe sur la ligne du "errReturn = objNewShare.Create". Et lorsque les parenthèses ne sont pas la, bien l'erreur est au niveau du chemin UNC.

Et c'était un wscript.echo avant que le msgbox apparaisse. Mais il me fait toujours les mêmes erreurs.

PS : Je te remet TOUT le code pour t'éviter le retour en haut.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
 
option explicit
 
'Définition de variable
Dim foldername, objfso, objrootfolder, objsubfolder, stroutput
 
'Demande à l'utilisateur l'emplacement du fichier
foldername = inputbox("Quel dossier voulez-vous scanner ? (chemin UNC)")
 
'Listage des dossiers et des sous-dossiers
Set objfso = createobject("scripting.filesystemobject")
Set objrootfolder = objfso.getfolder(foldername)
Set objsubfolder = objrootfolder.subfolders
 
'Boucle de listage
 
	For Each objrootfolder in objsubfolder
		stroutput = stroutput & objrootfolder.name
		stroutput = stroutput &  vbCrLf
	Next
 
'Affichage des dossier à l'écran
msgbox stroutput
 
'Définition de variable
'Dim outputfile
 
'Création d'un fichier texte pour stocker les noms des dossiers
'Set stroutput = objfso.createtextfile("C:\Result.txt")
 
dim CreateFolder, CreateFile, oFSO, oFolder, oFile, oText
 
CreateFolder = inputbox("Entrez le nom du dossier à créer")
CreateFile = inputbox("Entrez le nom du fichier à créer")
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.CreateFolder("C:\" & CreateFolder)
'Set oFile = oFSO.CreateTextFile("C:\" & CreateFolder & "\" & CreateFile & ".txt")
 
Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile ,8,true)
 
oText.WriteLine(stroutput)
 
Const ForReading = 1, ForWriting = 2 
 
  Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile, ForReading)
	while Not oText.AtEndOfStream 
		wscript.echo oText.ReadLine
 
	Const FILE_SHARE = 0
	Const MAXIMUM_CONNECTIONS = 25
 
		Dim objWMIService, objNewShare, strComputer
 
		strComputer = "."
 
		Set objWMIService = GetObject("winmgmts:" _
		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
		Set objNewShare = objWMIService.Get("Win32_Share")
		errReturn = objNewShare.Create _
		("C:\" & oText &", " & oText , FILE_SHARE, _
		MAXIMUM_CONNECTIONS)
 
		msgbox errReturn
 
	Wend
 
	oText.Close

10/06/2013, 23h12
ProgElecT
Comme dit dans ma première intervention, je ne connais pas le type d'objet obtenu avec objNewShare.
Pour autant, en recherchant à droite et à gauche, il semblerait qu'il faille 5 paramètres (à moins que certains soient optionnels.
l'exemple retrouvé est
Code:

1 2 3 errReturn = objNewShare.Create _ ("C:\Finance", "FinanceShare", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Public share for the Finance group.")
il faut bien des ().

Actuellement le code est

Code:

errReturn = objNewShare.Create("C:\" & oText & ", " & oText, FILE_SHARE, MAXIMUM_CONNECTIONS)

Il doit y avoir un problème de virgule pris comme littéral non pas comme séparateur de paramétrés, essais

Code:

errReturn = objNewShare.Create("C:\" & oText, oText, FILE_SHARE, MAXIMUM_CONNECTIONS)

permet de passer 4 paramètres, le 5éme semblant une option.
11/06/2013, 21h40
MateoFalcon

Non, cela ne fonctionne pas non plus, il me fait la même erreur " ...ne gère pas cette propriété ou cette méthode".

Mais l'erreur n'est pas là, elle a toujours été une ligne plus haut, au niveau du errReturn = objNewShare.Create.

Si quelqu'un d'autre à une idée pour aider a trouver une piste vers la solution, quelque soit-elle, je suis prêt a vous entendre.
13/06/2013, 14h16
pitchalov
Bonjour,

Pour commencer, voici les informations de Microsoft sur la méthode Create de la classe Win32_Share : http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Tu verras que cette méthode demande en paramètre des chaines de caractère (chemin et nom du partage, et optionnellement mot de passe ou description) et des entiers (type de partage, nombre de connexions max) [et éventuellement un "Win32_SecurityDescriptor" pour définir l'accès]
Alors que toi tu passes en paramètre un objet "TextStream" (fichier texte ouvert), qui bien entendu provoque une erreur dans l'appel de la méthode.

Tu peux vérifier le type de ta variable oText comme cela :

Code:

Wscript.Echo TypeName(oText)

Donc ce que tu peux faire pour commencer, c'est utiliser la fonction avec des paramètres statiques pour comprendre son fonctionnement, et ensuite utiliser des variables, mais correspondant à la définition de la méthode.
Code:

1 2 errReturn = objNewShare.Create ("C:\DirToShare", "DirToShare" , 0, 25) Wscript.Echo errReturn
En espérant apporter des réponses utiles.
Bonne continuation
14/06/2013, 16h52
MateoFalcon

Merci Pitchalov.

Je voudrais savoir si je peux quand même utiliser le fichier texte que je crée et où le nom de mes dossier sont inscrit pour lire dedans et ensuite créé des répertoires partager à leur nom.
17/06/2013, 10h05
pitchalov

Bonjour,

Oui tu peux le faire.
Il faut pour cela parcourir le fichier texte et pour chaque entrée réaliser le partage réseau.
La FAQ VBScript contient des exemples pour parcourir un fichier texte et réaliser les traitements de strings que tu vas lire.
Reviens avec ton code si tu rencontres des difficultés.

Bonne continuation

Merci encore pitchalov
Je voudrais encore savoir quelque truc s.v.p.
Citation:
Lecture ligne à ligne d'un fichier texte :
Code:

1 2 3 4 5 6 7 8 9 Const ForReading = 1, ForWriting = 2 Dim oFso, f Set oFso = CreateObject("Scripting.FileSystemObject") Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading) while Not f.AtEndOfStream wscript.echo f.ReadLine Wend f.Close
Lecture de la totalité d'un fichier texte :
Code:

1 2 3 4 5 6 7 Const ForReading = 1, ForWriting = 2 Dim oFso, f Set oFso = CreateObject("Scripting.FileSystemObject") Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading) Wscript.echo f.ReadAll f.Close
Je voudrais savoir si le premier bout de code qui lit ligne par ligne, permet de lire et coupler avec un bout de code qui partage le dossier dans cette ligne passe à la ligne suivant lorsque, dans la boucle qui le fera revenir au début pour passer au dossier suivant, il passera automatiquement à la ligne suivante ? Est-ce que la fonction ce souvient elle-même de la ligne qu'elle a lu pour ne pas la relire, ou je dois ajouter un truc pour lui dire de passer à la suivante ?

Merci

Bonjour,

La méthode Readline te renvoie effectivement la ligne lue et passe à la suivante sans que tu aies à incrémenter d'autre variable.
Tu peux donc utiliser ce code et l'associer à ta création de partage.

Voici un exemple en reprenant tes bouts de code :
Exemple de fichier CSV (fichier en entrée formaté comme tel : Chemin;Nom) :
Code:

1 2 c:\dossier1;dossier1 c:\dossier2;dossier2
Exemple de code vbScript :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Const ForReading = 1, ForWriting = 2 Const FILE_SHARE = 0, MAXIMUM_CONNECTIONS = 25 Dim objWMIService, objWMIShare, strComputer, oFso, f, arrTmpLine strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objWMIShare = objWMIService.Get("Win32_Share") Set oFso = CreateObject("Scripting.FileSystemObject") Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading) Do Until f.AtEndOfStream arrTmpLine = Split(f.ReadLine, ";") Wscript.Echo "Partage du répertoire <" & arrTmpLine(0) & "> avec le nom <" & arrTmpLine(1) & ">" errReturn = objWMIShare.Create arrTmpLine(0), arrTmpLine(1) , FILE_SHARE, MAXIMUM_CONNECTIONS Wscript.Echo errReturn Loop
Ensuite à toi de l'adapter au contenu de ton fichier (et à mettre plus de contrôles peut-être).

Bonne continuation

18/06/2013, 15h49
MateoFalcon

Ouah, merci !!

Ça va tellement me simplifier et rendre ce code plus facile, surtout que l'option B aurait été d'appeler une variable dans un batch file.

Je reviendrais dire si tout fonctionne bien, merci encore.

Bonjour, j'ai tester le code que vous m<avez monter, pitchalov (avec quelque modification d'adaptation et je dois avouer que la fonction "split" me laisse perplex qu'en ta l'erreur qu'elle me retourne.

Je reçois l'erreur suivante :

Ligne : 60
Caract. : 4
Erreur : Indice en dehors de la plage: '[Number: 1]'
Code : 800A0009

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
option explicit
 
'Définition de variable
Dim foldername, objfso, objrootfolder, objsubfolder, stroutput
 
'Demande à l'utilisateur l'emplacement du fichier
foldername = inputbox("Quel dossier voulez-vous scanner ? (C:\)")
 
'Listage des dossiers et des sous-dossiers
Set objfso = createobject("scripting.filesystemobject")
Set objrootfolder = objfso.getfolder(foldername)
Set objsubfolder = objrootfolder.subfolders
 
'Boucle de listage
 
	For Each objrootfolder in objsubfolder
		stroutput = stroutput & objrootfolder.name
		stroutput = stroutput &  vbCrLf
	Next
 
'Affichage des dossier à l'écran
 
msgbox stroutput
 
'Création d'un fichier texte pour stocker les noms des dossiers
 
Dim CreateFolder, CreateFile, oFSO, oFolder, oText
 
	CreateFolder = inputbox("Entrez le nom du dossier à créer")
	CreateFile = inputbox("Entrez le nom du fichier à créer")
 
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		Set oFolder = oFSO.CreateFolder("C:\" & CreateFolder)
 
'Crée le fichier qui contiendra les noms des dossier à partager
 
		Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile ,8,true)
 
		oText.WriteLine(stroutput)
 
'Définition des variables
 
Const ForReading = 1, ForWriting = 2 
Const FILE_SHARE = 0, MAXIMUM_CONNECTIONS = 25
Dim objWMIService, objNewShare, strComputer, arrTmpLine
 
		strComputer = "."
 
		Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
		Set objNewShare = objWMIService.Get("Win32_Share")
 
'Ouverture du dossier et création des partages (en boucle jusqu'à la fin du fichier)
 
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile, ForReading)
 
		Do Until oText.AtEndOfStream 
			arrTmpLine = Split(oText.ReadLine, vbcrlf)
			Wscript.Echo "Partage du répertoire <" & arrTmpLine(0) & "> avec le nom <" &  arrTmpLine(1) & ">"
			errReturn = objNewShare.Create (arrTmpLine(0), arrTmpLine(1) , FILE_SHARE, MAXIMUM_CONNECTIONS)
			Wscript.Echo errReturn
		loop
 
	oText.Close

J'aimerais que vous m'aidiez à cerner le problème, si vous y voyez un indice de ce que c'est. J'ai unpeu tout essayer autour de la fonction split.

Je vous en serais encore un fois reconnaissant, merci.

19/06/2013, 20h11
ProgElecT

Salut

Code:

arrTmpLine = Split(oText.ReadLine, vbcrlf)

Citation:

Envoyé par Script56.CHM

ReadLine
Lit une ligne entière (jusqu'au caractère de nouvelle ligne mais non compris celui-ci) à partir d'un fichier TextStream, et renvoie la chaîne obtenue.

Split(expression[, delimiter[, count[, compare]]])
Renvoie un tableau à une dimension commençant par zéro contenant le nombre spécifié de sous-chaînes.
expression
Expression de chaîne contenant des sous-chaînes et des séparateurs. Si l'argument expression est une chaîne de longueur nulle, la fonction Split renvoie un tableau vide, c'est-à-dire un tableau ne comportant ni éléments, ni données.
delimiter
Facultatif. Caractère de chaîne utilisé pour identifier les limites de sous-chaîne. S'il est omis, le caractère espace (" ") est utilisé comme séparateur par défaut. Si l'argument delimiter est une chaîne de longueur nulle, un tableau à un élément contenant toute la chaîne expression est renvoyée.

Dans oText.ReadLine ne contenant pas de vbCrlf ou de vbNewline, ta variable tableau arrTmpLine est donc d'indice zéro et contient la phrase du fichier lut avec ReadLine.

Uploader Script56.CHM Où trouver l'aide en ligne pour VBScript ?
19/06/2013, 20h44
MateoFalcon

Merci ProgElecT, il sufissait de remplacer tout les (1) des arrTmpLine par des (0). Je vais aussi dire à mon collègue que (" ") qu'une espace entre guillemets dans une fonction split est un genre d'équivalent pour une espace quand il ni a pas de délimiter.

Donc la mon code fonctionne et il fait ce que j'attendais de lui, sauf que :

Il ne partage pas les dossiers et il me fait l'erreur "Indice en dehors de la plage: '[Number: 0]'" au lieu du number: 1. Je me demande pourquoi, parce que avec "AtTheEndOfStrem" il devrait répondre "true" et quitter la boucle et ferme le oText avec le .close. Et ainsi avoir PARTAGER les dossiers. Ce qui n'est pas fait.

Une idée ?
19/06/2013, 21h05
ProgElecT

Salut

Code:

Do Until oText.AtEndOfStream

Until , il faut réétudier l'utilisation et l'endroit ou est utilisé ce terme.
Où trouver l'aide en ligne pour VBScript ?
19/06/2013, 21h13
MateoFalcon

Disons que ça ne m'aide pas vraiment dans la compréhension de l'erreur [number: 0].

Je voudrais plutôt savoir pourquoi un seconde erreur alors que do until devrait répondre true et quitter la boucle vers .close.

PS : Le lien mène a une version de VB script et je ne veux pas faire de mise à jour.
19/06/2013, 21h33
ProgElecT

Citation:

Disons que ça ne m'aide pas vraiment dans la compréhension de l'erreur [number: 0].

Je voudrais plutôt savoir pourquoi un seconde erreur alors que do until devrait répondre true et quitter la boucle vers .close.

PS : Le lien mène a une version de VB script et je ne veux pas faire de mise à jour.

Non
Quand tu arrives sur la page http://www.microsoft.com/fr-fr/downl...s.aspx?id=1406
tu cliques le bouton Télécharger puis tu coches scd56fr.exe et enfin bouton Suivant.
scd56fr.exe et l’installateur du fichier d'aide pour JScript et VBScript
19/06/2013, 21h40
ProgElecT

Peux tu remettre la ligne du split arrTmpLine = Split(oText.ReadLine,??????)que tu utilises
19/06/2013, 21h44
MateoFalcon

Comme je n'ai aucun caractère entre chaque mot, j'ai mi un espace vide entre guillemet.

Code:

arrTmpLine = Split(oText.ReadLine, " ")
19/06/2013, 21h54
ProgElecT

:koi:
:pastaper: Peux tu mettre une ou deux phrase de ton fichier ouvert avec Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile, ForReading
Quelle séparateur distingue tes 2 données dans la phrase ?

Je les ai laisser dans l'ordre tel que le script les met dans le fichier sans extension. Il n'y a ni séparateur, ni pont-virgule, etc... Et ce sont QUE des noms de dossier. Dossier Batch, dossier Comptable, Dossier Script, etc...

Batch
Comptable
Script

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
option explicit
 
'Définition de variable
Dim foldername, objfso, objrootfolder, objsubfolder, stroutput
 
'Demande à l'utilisateur l'emplacement du fichier
foldername = inputbox("Quel dossier voulez-vous scanner ? (C:\)")
 
'Listage des dossiers et des sous-dossiers
Set objfso = createobject("scripting.filesystemobject")
Set objrootfolder = objfso.getfolder(foldername)
Set objsubfolder = objrootfolder.subfolders
 
'Boucle de listage
 
	For Each objrootfolder in objsubfolder
		stroutput = stroutput & objrootfolder.name
		stroutput = stroutput &  vbCrLf
	Next
 
'Affichage des dossier à l'écran
 
msgbox stroutput
 
'Création d'un fichier texte pour stocker les noms des dossiers
 
Dim CreateFolder, CreateFile, oFSO, oFolder, oText
 
	CreateFolder = inputbox("Entrez le nom du dossier à créer")
	CreateFile = inputbox("Entrez le nom du fichier à créer")
 
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		Set oFolder = oFSO.CreateFolder("C:\" & CreateFolder)
 
'Crée le fichier qui contiendra les noms des dossier à partager
 
		Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile ,8,true)
 
		oText.WriteLine(stroutput)
 
'Définition des variables
 
Const ForReading = 1, ForWriting = 2 
Const FILE_SHARE = 0, MAXIMUM_CONNECTIONS = 25
Dim objWMIService, objNewShare, strComputer, arrTmpLine, errReturn
 
		strComputer = "."
 
		Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
		Set objNewShare = objWMIService.Get("Win32_Share")
 
'Ouverture du dossier et création des partages (en boucle jusqu'à la fin du fichier)
 
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile, ForReading)
 
		Do Until oText.AtEndOfStream 
			arrTmpLine = Split(oText.ReadLine, " ")
			Wscript.Echo "Partage du répertoire <" & arrTmpLine(0) & "> avec le nom <" &  arrTmpLine(0) & ">"
			errReturn = objNewShare.Create (arrTmpLine(0), arrTmpLine(0) , FILE_SHARE, MAXIMUM_CONNECTIONS)
			Wscript.Echo errReturn
		loop
 
	oText.Close

19/06/2013, 22h17
ProgElecT

Ligne 57 vide, écris MsgBox oText.ReadLine, vbInformations ,recopies ce que tu vois, donne nous cette phrase.

vbInformation pas de s à la fin :oops:
19/06/2013, 22h24
MateoFalcon

Lorsque la msgbox apparaît il est écrit Batch et immédiatement après ça passe à la donnée suivante dans le texte.

Edit : la donnée suivante apparaît dans le wscript.echo.
19/06/2013, 22h47
ProgElecT

:aie:
Peux tu ouvrir le fichier C:\" & CreateFolder & "\" & CreateFile avec le bloc note, faire un copier/coller, et nous mettre une ou 2 ligne.
20/06/2013, 14h08
MateoFalcon

Citation:

Envoyé par MateoFalcon

Je les ai laisser dans l'ordre tel que le script les met dans le fichier sans extension. Il n'y a ni séparateur, ni pont-virgule, etc... Et ce sont QUE des noms de dossier. Dossier Batch, dossier Comptable, Dossier Script, etc...

Batch
Comptable
Script

Comme poster plus haut. Ça change uniquement si le nom des dossier sont différent.

Bonjour,

Bon du coup, MateoFalcon, pour qu'on t'aide il va falloir qu'on comprenne quelque chose, c'est le contenu(/le format) de ton fichier en Input : celui qui contient les noms des dossiers à partager.

Effectivement, le code découle du formatage de ce fichier, et on ne peut pas le deviner sans tes explications. (A la limite en invoquant les esprits, mais c'est long, j'ai pas forcément le temps, et puis ça fait peur, tout ça, voilà).

Dans mon exemple plus haut, c'était un fichier csv avec comme séparateur le caractère ";" entre le chemin et le nom du partage.

D'après ton code et tes exemples, il semblerait qu'il n'y ait que le nom du dossier, je me trompe?

Si je ne me trompe pas, voilà un bout de code qui pourrait convenir :
Code:

1 2 3 4 5 6 7 STR_ROOT_FOLDER = "C:\chemin\" 'emplacement des répertoires à partager Do Until oText.AtEndOfStream strTmpLine = oText.ReadLine ' Pas besoin de "splitter" si il n'y a qu'une entrée et pas de séparateur Wscript.Echo "Partage du répertoire <" & STR_ROOT_FOLDER & strTmpLine & "> avec le nom <" & strTmpLine & ">" errReturn = objNewShare.Create (STR_ROOT_FOLDER & strTmpLine, strTmpLine, FILE_SHARE, MAXIMUM_CONNECTIONS) Wscript.Echo errReturn loop
Si ça ne convient pas, reste à toi d'être plus explicite sur ce que tu souhaite faire, comment, et où tu bloques.

Bonne continuation