exporter la liste complète des acl d'une volume windows

Le
Lyes
bonjour,

lorsque j'essaie de lancer le script ci dessous sur mon serveur windows
server 2003 j'obtiens un message d'erreur et je ne sais pas debbuger le
script.
Qqun sait-il ce qui tourne pas rond la dedans et comment le corriger?

le message d'erreur est : (23, 1) SWbemServicesEx: Not found

le script :

strFolderName = "D:"
SE_DACL_PRESENT = &h4
ACCESS_ALLOWED_ACE_TYPE = &h0
ACCESS_DENIED_ACE_TYPE = &h1

FILE_ALL_ACCESS = &h1f01ff
FOLDER_ADD_SUBDIRECTORY = &h000004
FILE_DELETE = &h010000
FILE_DELETE_CHILD = &h000040
FOLDER_TRAVERSE = &h000020
FILE_READ_ATTRIBUTES = &h000080
FILE_READ_CONTROL = &h020000
FOLDER_LIST_DIRECTORY = &h000001
FILE_READ_EA = &h000008
FILE_SYNCHRONIZE = &h100000
FILE_WRITE_ATTRIBUTES = &h000100
FILE_WRITE_DAC = &h040000
FOLDER_ADD_FILE = &h000002
FILE_WRITE_EA = &h000010
FILE_WRITE_OWNER = &h080000

Set objWMIService = GetObject("winmgmts:")
Set objFolderSecuritySettings =
objWMIService.Get("Win32_LogicalFileSecuritySetting='" & strFolderName & "'")
intRetVal = objFolderSecuritySettings.GetSecurityDescriptor(objSD)

intControlFlags = objSD.ControlFlags

If intControlFlags AND SE_DACL_PRESENT Then
arrACEs = objSD.DACL
For Each objACE in arrACEs
WScript.Echo objACE.Trustee.Domain & "" & objACE.Trustee.Name
If objACE.AceType = ACCESS_ALLOWED_ACE_TYPE Then
WScript.Echo vbTab & "Allowed:"
ElseIf objACE.AceType = ACCESS_DENIED_ACE_TYPE Then
WScript.Echo vbTab & "Denied:"
End If
If objACE.AccessMask AND FILE_ALL_ACCESS Then
WScript.Echo vbTab & vbTab & "FILE_ALL_ACCESS "
End If
If objACE.AccessMask AND FOLDER_ADD_SUBDIRECTORY Then
WScript.Echo vbTab & vbTab & " FOLDER_ADD_SUBDIRECTORY "
End If
If objACE.AccessMask AND FILE_DELETE Then
WScript.Echo vbTab & vbTab & "FILE_DELETE "
End If
If objACE.AccessMask AND FILE_DELETE_CHILD Then
WScript.Echo vbTab & vbTab & "FILE_DELETE_CHILD "
End If
If objACE.AccessMask AND FOLDER_TRAVERSE Then
WScript.Echo vbTab & vbTab & " FOLDER_TRAVERSE "
End If
If objACE.AccessMask AND FILE_READ_ATTRIBUTES Then
WScript.Echo vbTab & vbTab & "FILE_READ_ATTRIBUTES "
End If
If objACE.AccessMask AND FILE_READ_CONTROL Then
WScript.Echo vbTab & vbTab & "FILE_READ_CONTROL "
End If
If objACE.AccessMask AND FOLDER_LIST_DIRECTORY Then
WScript.Echo vbTab & vbTab & " FOLDER_LIST_DIRECTORY "
End If
If objACE.AccessMask AND FILE_READ_EA Then
WScript.Echo vbTab & vbTab & "FILE_READ_EA "
End If
If objACE.AccessMask AND FILE_SYNCHRONIZE Then
WScript.Echo vbTab & vbTab & "FILE_SYNCHRONIZE "
End If
If objACE.AccessMask AND FILE_WRITE_ATTRIBUTES Then
WScript.Echo vbTab & vbTab & "FILE_WRITE_ATTRIBUTES "
End If
If objACE.AccessMask AND FILE_WRITE_DAC Then
WScript.Echo vbTab & vbTab & "FILE_WRITE_DAC "
End If
If objACE.AccessMask AND FOLDER_ADD_FILE Then
WScript.Echo vbTab & vbTab & " FOLDER_ADD_FILE "
End If
If objACE.AccessMask AND FILE_WRITE_EA Then
WScript.Echo vbTab & vbTab & "FILE_WRITE_EA "
End If
If objACE.AccessMask AND FILE_WRITE_OWNER Then
WScript.Echo vbTab & vbTab & "FILE_WRITE_OWNER "
End If
Next
Else
WScript.Echo "No DACL present in security descriptor"
End If

Lyes
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles LAURENT [MVP]
Le #18964161
"Lyes" news:
| bonjour,

Bonsoir,

| lorsque j'essaie de lancer le script ci dessous sur mon serveur
| windows server 2003 j'obtiens un message d'erreur et je ne sais pas
| debbuger le script.
| Qqun sait-il ce qui tourne pas rond la dedans et comment le corriger?
|
| le message d'erreur est : (23, 1) SWbemServicesEx: Not found
|
| le script :
|
| strFolderName = "D:"

Possédez-vous une partition D: ?
L'erreur indique que cette partition n'existe pas !

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Lyes
Le #18968061
Bonjour Gilles,

Mille excuses car visiblement je devais être très fatigué hier soir.
Je me suis rendu compte ce matin qu'en effet la lettre du volume à auditer
n'était n'était pas la bonne.

Autre chose j'ai ouvert pas mal de post sur ce newsgroup et j'ignore
comment les clôre car la quasi totalité sont des posts résolus.

Merci pour votre aide.

Lyes
jackr13
Le #18968231
Bonjour Lues,

Lyes wrote:
Bonjour Gilles,

Mille excuses car visiblement je devais être très fatigué hier soir.
Je me suis rendu compte ce matin qu'en effet la lettre du volume à
auditer n'était n'était pas la bonne.

Autre chose j'ai ouvert pas mal de post sur ce newsgroup et j'ignore
comment les clôre car la quasi totalité sont des posts résolus.

Merci pour votre aide.

Lyes



Une suggestion : Vous reprenez tous vos fils et vous envoyez un
dernier message pour clôturer. Dans chacun mettre [Résolu ] à côté de
l'en-tête puis indiquer dans le message comment cela a été résolu.
Cela fera toujours plaisir aux intervenants ...

--
Cordialement,
jackr13
Publicité
Poster une réponse
Anonyme