'----------------------------------------------------------------------
'
' Copyright (c)  All rights reserved.
'
'
' AUTHOR: tudimon.com
' DATE: 03.04.2012
' NAME: acl_group_in_log_v2.vbs
'
' COMMENT:
'
' Скрипт просматривает ACL вложеных папок первого уровня и ищет указанную группу.
' При обнаружении указанной группы в списке в лог записывается имя папки.
'
'
'----------------------------------------------------------------------


StartPath = "C:\1"                         ' Стартовая папка, просматриваем ACL вложенные в нее папок первого уровня
LogFilePath = "c:\log.log"                ' лог-файл
ACLGroupName = "DOMAIN\GROUPNAME"        ' имя искомой группы

LogTXT = ""                             ' переменная для записи в лог



'----------------------------------------------------------------------

    

LogTXT = LogTXT & vbNewLine & "******************** " & Now & "********************"



Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(StartPath)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders


    CurrentPath = objSubfolder.Path
    
    
    Set objWsNet = CreateObject("WScript.Network")
    strComputer = objWsNet.ComputerName
    Set objWsNet = Nothing
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set objSecSettings = objWMI.Get("Win32_LogicalFileSecuritySetting.Path='" & CurrentPath & "'")
    If objSecSettings.GetSecurityDescriptor(objSD) = 0 Then
        If Not IsNull(objSD.DACL) Then
            ' если ACL прочитаны

            For Each objACE In objSD.DACL
                
                ACL_group_read = objACE.Trustee.Domain & "\" & objACE.Trustee.Name
                
                If ACL_group_read = ACLGroupName Then
                    ' группа обнаружена
                    LogTXT = LogTXT & vbNewLine & CurrentPath & " обнаружена " & ACL_group_read
                Else
                    ' группа не обнаружена
                    ' LogTXT = LogTXT & vbNewLine & "группа не обнаружена"
                End If
            
                
            
            Next
            
            Set objACE = Nothing
            
        Else
            LogTXT = LogTXT & vbNewLine & "Список управления доступом (ACL) к заданному объекту пуст. " & CurrentPath
        End If
    Else
        LogTXT = LogTXT & vbNewLine & "Не удалось прочитать дескриптор безопасности объекта. " & CurrentPath
    End If
    
Next
    
    
    Set objSD = Nothing
    Set objSecSettings = Nothing
    Set objWMI = Nothing
    
    
' Пишем лог
Set FSO = CreateObject("Scripting.FileSystemObject")
Set LogFile = FSO.OpenTextFile(LogFilePath, 8, True)
LogTXT = LogTXT & vbNewLine & "*************************************************************"
LogFile.WriteLine LogTXT
LogFile.Close

Set objFolder = Nothing
Set objShell = Nothing
WScript.Quit 0

'----------------------------------------------------------------------
'
' Copyright (c)  All rights reserved.
'
'
' AUTHOR: tudimon.com
' DATE: 02.05.2012
' NAME: alc_group_in_log_v3.vbs
'
' COMMENT:
'
' Скрипт просматривает ACL вложеных папок первого уровня и ищет указанную группу.
' При обнаружении указанной группы в списке в лог записывается имя папки.
' Список папок отправляется на e-mail администратору
'
'
'
'----------------------------------------------------------------------


StartPath = "G:\Share"                     ' Стартовая папка, просматриваем вложенные в нее папки первого уровня
LogFilePath = "c:\log.log"                ' лог-файл
ALCGroupName = "Domain\ALC_group"        ' имя искомой группы

LogTXT = ""                             ' переменная для записи в лог

compName = "ServerName"                    ' имя компьютера/сервера

strSMTP_Server = "smtp.local"            ' SMTP сервер
strSMTP_user = "admin"                    ' логин пользователя для SMTP сервера
strSMTP_password = "secret_pass"        ' пароль пользователя для SMTP сервера
strTo = "support@domain.ru"                ' e-mail куда отсылаем предупреждение
strFrom = "support@domain.ru"            ' от кого
strSubject = "Find bad security on " & compName        ' тема сообщения
strBody = ""                            ' текст сообщения
needSentMail = 0                        ' флаг, что требуется слать письмо - достигнут лимит


'----------------------------------------------------------------------

    

LogTXT = LogTXT & vbNewLine & "******************** " & Now & "********************"



Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(StartPath)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders

    CurrentPath = objSubfolder.Path
    
    Set objWsNet = CreateObject("WScript.Network")
    strComputer = objWsNet.ComputerName
    Set objWsNet = Nothing
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set objSecSettings = objWMI.Get("Win32_LogicalFileSecuritySetting.Path='" & CurrentPath & "'")
    If objSecSettings.GetSecurityDescriptor(objSD) = 0 Then
        If Not IsNull(objSD.DACL) Then
            ' если ACL прочитаны
            
            For Each objACE In objSD.DACL
                
                ALC_group_read = objACE.Trustee.Domain & "\" & objACE.Trustee.Name
                
                If ALC_group_read = ALCGroupName Then
                    ' группа обнаружена
                    LogTXT = LogTXT & vbNewLine & CurrentPath & " обнаружена " & ALC_group_read
                    needSentMail = 1
                Else
                    ' группа не обнаружена
                    ' LogTXT = LogTXT & vbNewLine & "группа не обнаружена"
                End If
            
                
            
            Next
            
            Set objACE = Nothing
            
        Else
            LogTXT = LogTXT & vbNewLine & "Список управления доступом (ACL) к заданному объекту пуст."
        End If
    Else
        LogTXT = LogTXT & vbNewLine & "Не удалось прочитать дескриптор безопасности объекта."
    End If
    
Next
    
LogTXT = LogTXT & vbNewLine & "*************************************************************"
    
    Set objSD = Nothing
    Set objSecSettings = Nothing
    Set objWMI = Nothing
    
    
    
    ' если флаг был изменен, то уведомим по е-майлу администратора
    If needSentMail = 1 Then

        strBody = LogTXT         

        Set iMsg = CreateObject("CDO.Message")
        Set iConf = CreateObject("CDO.Configuration")
        Set Flds = iConf.Fields
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP_Server
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/SMTPAuthenticate") = cdoBasic
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/SendUserName") = strSMTP_user
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/SendPassword") = strSMTP_password
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
        Flds.Update
        iMsg.Configuration = iConf
        iMsg.To = strTo
        iMsg.From = strFrom
        iMsg.Subject = strSubject
        iMsg.TextBody = strBody
        iMsg.Send
        
    End If
    
    
' Пишем лог
Set FSO = CreateObject("Scripting.FileSystemObject")
Set LogFile = FSO.OpenTextFile(LogFilePath, 8, True)
LogFile.WriteLine LogTXT
LogFile.Close

Set objFolder = Nothing
Set objShell = Nothing
WScript.Quit 0

Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25