[Vadikan]

который бы мониторил подключенные USB устройства, список разрешенных будет в отдельном файле, »

Есть событие в журнале, дальше можно с PowerShell парсить и сопоставлять со списком одобренных устройств.
https://www.techrepublic.com/article...-event-viewer/
Это не для тех, кто

Со скриптами bat не сталкивался, »

но хороший повод поизучать PowerShell наверное...

А что, Защитник умеет фильтровать USB? »

Это фича Windows Defender ATP.

[EvgenBrain]

Vadikan, да, пришел теперь к power shell... Но так как с ним тоже не сталкивался, ищу как это все реализовать

[megaloman]

EvgenBrain, То, что можно написать скриптами, с точки зрения безопасности - детский лепет и легко обходится. Можно, например, ориентироваться на серийный номер устройства.

Откуда его взять: В командной строке запустить wmic

Код:

wmic diskdrive get model,name,serialnumber,mediatype >C:\zzzzzz.txt

У меня в файле C:\zzzzzz.txt получилось

Код:

MediaType                 Model                               Name                SerialNumber                              
Fixed hard disk media     TOSHIBA MK1637GSX ATA Device        \\.\PHYSICALDRIVE0  2020202020202020202059204a36464d46425359  
Removable Media           JetFlash Transcend 32GB USB Device  \\.\PHYSICALDRIVE3  AA00000000000489                          
Removable Media           JetFlash Transcend 8GB USB Device   \\.\PHYSICALDRIVE1  03U0UDBRCJ6HLEYV                          
External hard disk media  WD My Passport 0743 USB Device      \\.\PHYSICALDRIVE2  WX61A93R0348

Будем контролировать 2 вида устройств:
Флэшка- Removable Media
Внешний винт- External hard disk media
Допустим, разрешены 2 устройства с номерами
03U0UDBRCJ6HLEYV
WX61A93R0348
А вот AA00000000000489 будем считать нелегальным и при его подключении выключим комп

А далее на компьютере должен быть запущен vbs-скрипт (например, в автозагрузке)

Код:

ConType = Array("Removable Media", "External hard disk media")
ConSerial = Array("03U0UDBRCJ6HLEYV", "WX61A93R0348")
    
Quant = 5 * 1000 			'милиСек опроса
FLog = "Z:\Soft_Out\Spy.txt"		'Лог-файл, куда запишется инфа о незарегистрированной флэшке

Spause = 1				'Пауза Сек начала выключения
    
Set WMI = GetObject("winmgmts:")
Do
    Set DAll = WMI.ExecQuery("Select * from Win32_DiskDrive")
    Msg = ""
    Flag = True
    For Each Drv In DAll
        For Each iType In ConType
            If LCase(iType) = LCase(Drv.MediaType) Then
                Flag = False
                For Each iSerial In ConSerial
                    If LCase(CStr(Drv.SerialNumber)) = LCase(iSerial) Then
                        Flag = True
                        Exit For
                    End If
                Next
            End If
            If Flag Then Exit For
        Next
        If Not Flag Then
            Msg = CStr(Now) + vbTab + Drv.MediaType + vbTab + Drv.Model + vbTab + CStr(Drv.SerialNumber)
'            MsgBox Msg
            With CreateObject("Scripting.FileSystemObject")
                Set F = .OpenTextFile(FLog, 8, True)
                F.WriteLine Msg
                F.Close
            End With
            R = CreateObject("WScript.Shell").Run("shutdown.exe /s /f /t " + CStr(Spause), 7, True)
            Exit For
        End If
    Next
    WScript.Sleep Quant
Loop

Скрипт будет опрашивать имеющиеся накопители с заданным периодом (здесь в примере 5 сек)
Здесь прописаны 2 типа контролируемых устройств: "Removable Media", "External hard disk media"
Здесь прописаны 2 серийных номера: "03U0UDBRCJ6HLEYV", "WX61A93R0348"
После обнаружения незарегистрированной флэшки комп через 1 секунду начнет выключаться
При этом в файл (напишите свой путь) будут записаны атрибуты нелегальной флэшки

Но это хилый костыль с легкой возможностью его нейтрализации. Зато всё штатное и ничего доустанавливать не нужно.

[EvgenBrain]

megaloman, решил протестить скрипт, вообще тишина

[EvgenBrain]

# В первых двух строчках мы считываем наши файлы.
wmic diskdrive get model > received_name.txt
$Trusted_Name = get-content -Path .\trusted_name.txt
$Received_Name = get-content -Path .\received_name.txt

$i = $true
do
{


foreach ($objectTN in $Trusted_Name)
{
$objectTN = $objectTN.tostring().Trim()
$objectTN = $objectTN.Replace(" ","")
$objectTN = $objectTN.ToUpper()
$found = $False

foreach ($objectRN in $Received_Name)
{
$objectRN = $objectRN.Replace(" ", "")
$objectRN = $objectRN.Trim()
$objectRN = $objectRN.ToUpper()


if ($objectTN -eq $objectRN)
{
$found = $True

}

# return $found
}

if ($found -eq $false)
{
Stop-Computer
}
}

} until($i -eq $true)

почему скрипт не работает, ума не приложу, что с vbs, что ps1

[EvgenBrain]

megaloman, test.txt

[EvgenBrain]

megaloman, Файл 161196

megaloman, да в диспечере ws есть, я подключаю левую флешку и ничего не происходит

[megaloman]

EvgenBrain,
1. Просил результат wmic
2. Сохраняйте скрипт в 1251 кодировке.
3. Вы понаписывали не то в контролируемых устройствах, надо:
ConType = Array("Removable Media", "External hard disk media"), а вот серийные номера возьмите из результата wmic

[EvgenBrain]

megaloman, да в диспечере ws есть, я подключаю левую флешку и ничего не происходит

megaloman, есть телеграмм?? Очень нужна помощь!

megaloman, есть телеграмм?? Очень нужна помощь!

[EvgenBrain]

megaloman, Снимок.PNG