bonjour,
Par script d'ouverture de session à condition que les users puissent écrire dans les clés correspondantes
Pour autoriser :
Option Explicit
On Error Resume Next
Dim wsh, box, str
Set wsh = CreateObject("WScript.Shell")
wsh.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start", 3, "REG_DWORD"
Pour refuser l'utilisation :
Option Explicit
On Error Resume Next
Dim wsh, box, str
Set wsh = CreateObject("WScript.Shell")
wsh.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD"
Eric Perromat [MVP Remote Desktop Services]