Простой VBScript для проверки наличия съемных устройств будет выглядеть так:
boolDeviceFound = False
strComputer = InputBox("Enter the name of the computer to search for USB devices:")
strComputer = Trim(strComputer)
If LenB(strComputer) = 0 Then
strComputer = "."
End If
'Query the WMI service for the computer name
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Display the connected computer
WScript.Echo "You have successfully connected to computer " & strComputer
Set colItems = objWMIService.ExecQuery("SELECT * from Win32_LogicalDisk WHERE Description = 'Removable Disk'")
For Each objItem in colItems
WScript.Echo "The computer " & strComputer & " has a removable USB drive connected with drive letter: " & objItem.Name
WScript.Echo "Please remove this device from " & strComputer & " to comply with Lab policies!"
boolDeviceFound = True
Next
If boolDeviceFound = False Then
WScript.Echo "No USB devices found!"
End If
Если вы сохраните его как что-то вроде DetectUSB.vbs, его можно будет выполнить из командной строки или из пакетного файла, используя wscript DetectUSB.vbs
. Нечто подобное можно написать и с помощью PowerShell, а сценарий пакетного файла /PS можно установить как сценарий выхода из системы . Единственная проблема заключается в том, достаточно ли у вас прав на ПК для установки сценариев выхода из системы?