VBS Avancé // Récupérer la liste des groupes de sécurité

VBS Avancé // Récupérer la liste des groupes de sécurité - VB/VBA/VBS - Programmation

Marsh Posté le 06-08-2010 à 17:33:46    

Bonjour,
Je suis entrain de développer une application pour l'attribution des accès à des ressources partagées dans un réseau d'entreprise et je rencontre des difficultés en ce moment, car il faut à un moment donné que l'application récupère les groupes de sécurité (GG et GL) des sous répértoires de la ressource partagée en utilisant un script VBS, C.A.D les groupes de l'onglet sécurité quand on fait un clique droit ==> propriété.
 
Quelqu'un peut m'aider SVP pour la réalisation du script VBS
 
je vous remercie par avance


Message édité par mouataz le 06-08-2010 à 18:56:48
Reply

Marsh Posté le 06-08-2010 à 17:33:46   

Reply

Marsh Posté le 11-08-2010 à 00:14:58    

un premier pas vers une solution, un script que j'ai trouvé sur Microsoft Technet, ce code fonctionne dans une machine locale.
 

Code :
  1. '==========================================================================
  2. '
  3. ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
  4. '
  5. ' NAME: Folder Permission
  6. '
  7. ' AUTHOR:  Abdelkader, Amine
  8. ' DATE  : 10/03/2006
  9. '
  10. ' COMMENT: Create a file with the name of the folder in HTML format
  11. '
  12. '==========================================================================
  13. Const ForReading = 1, ForWriting = 2, ForAppending = 8
  15. Const FullAccessMask = 2032127, ModifyAccessMask = 1245631, WriteAccessMask = 118009
  16. Const ROAccessMask = 1179817
  20. strComputer = "."
  21. sParentFolder = InputBox("Please Enter folder to gather information on", "Parent Folder" )
  22. SParentFoldern=replace(sParentFolder,"\","" )
  23. SParentFoldern=replace(sParentFoldern,":","" )
  24. Set fso = CreateObject("Scripting.FileSystemObject" )
  25. 'File name Same As Folder Name without special Caracteres
  26. fullfilename=SParentFoldern&".html"
  27. 'WScript.echo fullfilename
  29. Set fsOut = fso.OpenTextFile(fullfilename, ForAppending, True)
  31. On Error Resume Next
  33. fsOut.Writeline ("<html>"&vbCr&"<head>"&vbCr&"<title>File Permission For Folder under &"& SParentFoldern&"</title>"&vbCr&"</head>" )
  35. strTableHead = "<table border=2 bordercolor='#000010' width='90%' id='Table1'>"
  36. fsOut.Writeline strTableHead
  37. fsOut.Writeline "<tr><td width='50%'>Folder</td>" & _
  38.    "<td width='50%'>User Name</td>"&_
  39.    "<td width='50%'>Permission</td></tr>"
  41. strTableFoot = "</table>"
  43. fsOut.Close
  47. ShowSubFolders FSO.GetFolder(sParentFolder),fullfilename
  49. OutputFolderInfo sParentFolder, fullfilename
  51. Set fsOut = fso.OpenTextFile(fullfilename, ForAppending, True)
  52. fsOut.Writeline strTableFoot
  53. fsOut.Close
  54. MsgBox "Done "
  55. WScript.Quit
  57. Public Sub OutputFolderInfo(FolderName , sOutfile)
  59. Const FullAccessMask = 2032127, ModifyAccessMask = 1245631, WriteAccessMask = 1180095
  60. Const ROAccessMask = 1179817
  61. Const ForReading = 1, ForWriting = 2, ForAppending = 8
  63. strComputer = "."
  65. 'Build the path to the folder because it requites 2 backslashes
  66. folderpath = Replace(FolderName, "\", "\\" )
  68. objectpath = "winmgmts:Win32_LogicalFileSecuritySetting.path='" & folderpath & "'"
  70. 'Get the security set for the object
  71. Set wmiFileSecSetting = GetObject(objectpath)
  73. 'verify that the get was successful
  74. RetVal = wmiFileSecSetting.GetSecurityDescriptor(wmiSecurityDescriptor)
  75. If Err Then
  76.      MsgBox ("GetSecurityDescriptor failed" & vbCrLf & Err.Number & vbCrLf & Err.Description)
  77.      Err.Clear
  78. End If
  81. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & _
  82.     strComputer & "\root\cimv2" )
  83. Set colFolders = objWMIService.ExecQuery("SELECT * FROM Win32_Directory WHERE Name ='" & _
  84.     folderpath & "'" )
  85. For Each objFolder In colFolders
  86.    
  87.     ' Retrieve the DACL array of Win32_ACE objects.
  88.     DACL = wmiSecurityDescriptor.DACL
  90. Set fso = CreateObject("Scripting.FileSystemObject" )
  91. Set fsOut = fso.OpenTextFile(sOutfile, ForAppending, True)
  92.    
  94.     For Each wmiAce In DACL
  95.     ' Get Win32_Trustee object from ACE
  96.         Set Trustee = wmiAce.Trustee
  97.         fsOut.Writeline "<tr><td width='50%'>"&objFolder.Name&"</td>" & _
  98.    "<td width='50%'>"&Trustee.Domain&"\"&Trustee.Name&"</td>"
  100.         'fsOut.Write objFolder.Name & "," & Trustee.Domain & "\" & Trustee.Name & ","
  101.         FoundAccessMask = False
  102.         CustomAccessMask = Flase
  103.         While Not FoundAccessMask And Not CustomAccessMask
  104.             If wmiAce.AccessMask = FullAccessMask Then
  105.                 AccessType = "Full Control"
  106.                 FoundAccessMask = True
  107.             End If
  108.             If wmiAce.AccessMask = ModifyAccessMask Then
  109.                 AccessType = "Modify"
  110.                 FoundAccessMask = True
  111.             End If
  112.             If wmiAce.AccessMask = WriteAccessMask Then
  113.                 AccessType = "Read/Write Control"
  114.                 FoundAccessMask = True
  115.             End If
  116.             If wmiAce.AccessMask = ROAccessMask Then
  117.                 AccessType = "Read Only"
  118.                 FoundAccessMask = True
  119.             Else
  120.                 CustomAccessMask = True
  121.             End If
  122.         Wend
  123.      
  124.         If FoundAccessMask Then
  125.             'fsOut.Writeline AccessType
  126.             fsOut.Writeline "<td width='50%'>"&AccessType&"</td></tr>"
  127.         Else
  128.           fsOut.Writeline "<td width='50%'>Custom</td></tr>"
  129.             'fsOut.Writeline "Custom"
  130.         End If
  131.      
  132.     Next
  134.     Set fsOut = Nothing
  135.     Set fso = Nothing
  137. Next
  139. Set fsOut = Nothing
  140. Set fso = Nothing
  142. end Sub
  143. Sub ShowSubFolders (Folder,fname)
  144. On Error Resume Next
  145. For Each Subfolder in Folder.SubFolders
  146.      Call OutputFolderInfo(Subfolder.Path,fname)
  147.         Wscript.Echo Subfolder.Path
  148.         call ShowSubFolders (Subfolder,fname)
  149.     Next
  150. End Sub


Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed