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 ?