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 ?