Question script vbs : partage caché ($)

Résolu/Fermé
assefan
Messages postés
65
Date d'inscription
lundi 1 décembre 2008
Statut
Membre
Dernière intervention
30 décembre 2009
- 25 juin 2009 à 17:07
assefan
Messages postés
65
Date d'inscription
lundi 1 décembre 2008
Statut
Membre
Dernière intervention
30 décembre 2009
- 29 juin 2009 à 15:07
Bonjour,

Je veux, dans un script, partager des répertoires sur mon serveur de la forme d:\Users\login

Pour celà, je vais lire dans un fichier excel une liste que je mets dans un tableau : login(i)

Le nom de mon partage doit être login$ (pour être caché). J'ai essayé des tas de solutions, seule 1 fonctionne, c'est d'écrire login$ dans les paramètres en DUR. Mais celà ne me convient pas, il faut que ce soit dynamique.

Je vous met la partie du code qui crée le partage car la lecture des lignes et le passage de paramètres fonctionnent, j'espère que vous pourrez m'aider, j'avoue que je suis plutôt réseau que développement.

Dans une autre partie du code j'ai
strChemin = "d:\Users\" & login(i)
strLogin = login(i) & "$"


[code]
'procédure qui partage les répertoires avec le $
Sub Partage (strChemin, strLogin)


Const FILE_SHARE = 0

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set objNewShare = objWMIService.Get("Win32_Share")

errReturn = objNewShare.Create _
(strChemin, strLogin, FILE_SHARE, _
vbnothing, "")

End sub
'fin procédure partage
/code

J'ai aussi essayé avec :
strChemin = "d:\Users\"
strLogin = login(i)
Dans ce cas, lorsque je remplace le $ par une lettre quelconque (ex : a), le partage fonctionne (il est de la forme : logina).
J'espère que celà est possible, vous les développeurs en savez surement plus que moi. :?: :D

[code]
'procédure qui partage les répertoires avec le $
Sub Partage (strChemin, strLogin)


Const FILE_SHARE = 0

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set objNewShare = objWMIService.Get("Win32_Share")

errReturn = objNewShare.Create _
(strChemin & strLogin, strLogin & "$", FILE_SHARE, _
vbnothing, "")

End sub
'fin procédure partage
/code

Merci :P

3 réponses

assefan
Messages postés
65
Date d'inscription
lundi 1 décembre 2008
Statut
Membre
Dernière intervention
30 décembre 2009
7
26 juin 2009 à 08:57
personne ?
0
assefan
Messages postés
65
Date d'inscription
lundi 1 décembre 2008
Statut
Membre
Dernière intervention
30 décembre 2009
7
26 juin 2009 à 16:41
Up, svp
0
assefan
Messages postés
65
Date d'inscription
lundi 1 décembre 2008
Statut
Membre
Dernière intervention
30 décembre 2009
7
29 juin 2009 à 15:07
Pas de réponse dans le week end, je suis déçu. Personne ne peut m'aider ?
0