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

Configuration: Windows 2003 Internet Explorer 6.0