Question VBS

[diavolos]

J'ai un problème avec le script suivant, sur un serveur Windows 2003 :
------------------------------------------------------------------------------------------------------------------
Function recupererDroitsPartage(partage)
On Error Resume Next
Dim adsec, sd, dacl
Dim aa

recupererDroitsPartage = "'"

Set adsec = CreateObject("ADsSecurityUtility")
Set sd = adsec.GetSecurityDescriptor(partage,2,1)
Set dacl = sd.DiscretionaryAcl

For each aa in dacl
recupererDroitsPartage = recupererDroitsPartage & aa.Trustee &","& aa.AccessMask &","& aa.AceType &"'"
Next

Set dacl = Nothing
Set sd = Nothing
Set adsec = Nothing
End Function

Function creerPartage(nomServeur,repertoire,nomPartage)
On Error Resume Next
Dim Cont, Fish

Set Cont = GetObject("WinNT://" & nomServeur & "/lanmanServer")
Set Fish = Cont.Create("FileShare", nomPartage)

Fish.Path = repertoire
Fish.SetInfo

creerPartage = Err.Number

Set Fish = Nothing
Set Cont = Nothing
End Function

msgbox creerPartage("MONSERV1","d:\temp","temp")
msgbox recupererDroitsPartage("\\MONSERV1\temp")
------------------------------------------------------------------------------------------------------------------

Le partage TEMP est bien créé, mais quand j'essaie de récupérer les droits il affiche une erreur :

"Erreur non spécifiée"

Quelque'un peu t-il m'aider ?