exporter la liste complète des acl d'une volume windows
3 réponses
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
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilles LAURENT [MVP]
"Lyes" a écrit dans le message de 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" <Lyes@discussions.microsoft.com> a écrit dans le message de
news:5AA9F944-16AC-4590-A020-F5BF44EF9FA6@microsoft.com
| 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" a écrit dans le message de 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
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
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.
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
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
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 ...
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 ...