Mise en page export ACL csv vers Excel 2007
Bonjour à tous,
Je suis en train de realiser un audit des droits ACL sur mes serveurs, j'arrive bien a recuperer les droits sans probleme.
Mon probleme c'est que le fichier fait prés de 50 000 lignes ,danc impossible de faire la mise en page a la main.
Voici le script :
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders objFSO.GetFolder("T:\"), 4
Sub ShowSubFolders(Folder, Depth)
If Depth > 0 then
For Each Subfolder in Folder.SubFolders
On Error Resume Next
Wscript.Echo Subfolder.Path
'execute cacls to display ACL information
Set objFichierTexte = objFSO.OpenTextFile("H:\T.txt",8,True)
Set objShell = CreateObject("WScript.Shell")
Set oExec = objShell.Exec("cmd /c cacls " & chr(34) & Subfolder.Path & chr(34))
Do While Not oExec.StdOut.AtEndOfStream
str = oExec.StdOut.ReadLine
objFichierTexte.WriteLine(Str)
Loop
objFichierTexte.Close
ShowSubFolders Subfolder, Depth -1
Next
End If
End Sub
Voici le resultat sur une colonne excel :
T:\AAA\BBB\CCC XXX\GRP_1:(OI)(CI)(ID)C
XXX\GRP_3:(OI)(CI)(ID)R
XXX\USER1:(OI)(CI)(ID)F
XXX\GRP_4:(OI)(CI)(ID)C
XXX\GRP_5:(OI)(CI)(ID)C
XXX\Admins du domaine:(OI)(CI)(ID)F
T:\AAA\DDD XXX\GRP_2:(OI)(CI)(ID)C
XXX\GRP_3:(OI)(CI)(ID)R
XXX\USER1:(OI)(CI)(ID)F
XXX\GRP_4:(OI)(CI)(ID)C
XXX\GRP_5:(OI)(CI)(ID)C
XXX\Admins du domaine:(OI)(CI)(ID)F
T:\AAA\DDD\EEE XXX\GRP_2:(OI)(CI)(ID)C
XXX\GRP_3:(OI)(CI)(ID)R
XXX\USER1:(OI)(CI)(ID)F
XXX\GRP_4:(OI)(CI)(ID)C
XXX\GRP_5:(OI)(CI)(ID)C
XXX\Admins du domaine:(OI)(CI)(ID)F
T:\AAA\DDD\FFF FFF XXX\GRP_2:(OI)(CI)(ID)C
XXX\GRP_3:(OI)(CI)(ID)R
XXX\USER1:(OI)(CI)(ID)F
XXX\GRP_4:(OI)(CI)(ID)C
XXX\GRP_5:(OI)(CI)(ID)C
XXX\Admins du domaine:(OI)(CI)(ID)F
Et je voudrais qu'il crée un nouveau fichier excel comme ceci (je sais c'est pas simple et je ne m'en sors pas)
chemins grp/users droits
T:\AAA\BBB\CCC GRP_1 Modification
T:\AAA\BBB\CCC GRP_1 LECTURE
T:\AAA\BBB\CCC USER1 CONTROLE TOTAL
T:\AAA\BBB\CCC GRP_4 MODIFICATION
T:\AAA\BBB\CCC GRP_5 MODIFICATION
T:\AAA\DDD GRP_2 MODIFICATION
T:\AAA\DDD GRP_3 LECTURE
T:\AAA\DDD USER1 CONTROLE TOTAL
T:\AAA\DDD GRP_4 MODIFICATION
T:\AAA\DDD GRP_5 MODIFICATION
T:\AAA\DDD\EEE GRP_2 MODIFICATION
T:\AAA\DDD\EEE GRP_3 LECTURE
T:\AAA\DDD\EEE USER1 CONTROLE TOTAL
T:\AAA\DDD\EEE GRP_4 MODIFICATION
T:\AAA\DDD\EEE GRP_5 MODIFICATION
T:\AAA\DDD\FFF FFF GRP_2 MODIFICATION
T:\AAA\DDD\FFF FFF GRP_3 LECTURE
T:\AAA\DDD\FFF FFF USER1 CONTROLE TOTAL
T:\AAA\DDD\FFF FFF GRP_4 MODIFICATION
T:\AAA\DDD\FFF FFF GRP_5 MODIFICATION
Et sur un autre onglet LES MEMBRES DES GROUPES.
Merci infiniment de votre aide
Si vous avez des questions ,je suis biensur a votre dispo.
A trés bientot.
bonsoir aribock75
ce n'est pas la peine d'ouvrir 2 post pour le même sujet ferme l'un des deux
Pascal
c est fait merci de ton aide