Ограничить подключения USB устройств.

[S_Yevgeniy]

Добрый вечер, подскажите пожалуйста можно ли закрыть доступ в Windows к возможности подключать USB. При этом один разъем должен работать для принтера и кроме принтера туда нечего не могли включить.
Заранее спасибо. удачи всем в делах.

[raxp]

можно так >>> http://www.programmersforum.ru/showt...&highlight=usb и можно стандартными средствами (см. ниже)

...и вам удачи

[S_Yevgeniy]

В очередной раз огромное вам спасибо!!!

Сообщение от raxp

можно так >>> http://www.programmersforum.ru/showt...&highlight=usb

вот только мне нужен не ключ флешка а закрыть полностью доступ к иным USB устройствам за исключением установленного принтера ну если это возможно. Так как физически заливать термо-клеем порты не хочется.

[raxp]

...еще раз пройдитесь в ту ссылку и более внимательно ...там есть разблокирование определенного USB устройства (а таковым является и принтер), что эквивалентно блокированию всех остальных кроме того, вы очевидно не читали - <контроль_использования_usb_накопит елей_в_windows_server2008.pdf >

...конкретно пост этот и этот (см. функцию - removeUSB)

function removeUSB(remove: boolean; num_device: smallint): tstringlist;
const GUID_DEVCLASS_DISKDRIVE: TGUID = (D1: $4D36E967; D2: $E325; 
D3: $11CE; D4: ($BF, $C1, $08, $00, $2B, $E1, $03, $18));
var hDevInfoSet: HDEVINFO;
    DevInfo: SP_DEVINFO_DATA;
    i: Integer;
    Parent: DWORD;
    VetoName: PChar;
begin
 result:= tstringlist.create;
 //
 DevInfo.cbSize := sizeof(SP_DEVINFO_DATA);
 hDevInfoSet := SetupDiGetClassDevsA(@GUID_DEVCLASS_DISKDRIVE, nil, 0, 2);
 if hDevInfoSet = INVALID_HANDLE_VALUE then exit;

 if (remove)and(num_device<> -1) then
  if SetupDiEnumDeviceInfo(hDevInfoSet, num_device, @DevInfo) then
   if (IsUSBDevice(DevInfo.DevInst))and(CM_Get_Parent(@Parent, DevInfo.DevInst, 0) = 0)
    then CM_Request_Device_Ejecta(Parent, nil, @VetoName, MAX_PATH, 0);

 i:= 0;
 while (SetupDiEnumDeviceInfo(hDevInfoSet, i, @DevInfo)) do begin
  result.Add(GetDeviceName(hDevInfoSet, @DevInfo));

  if (remove)and(num_device= -1) then begin
   if (IsUSBDevice(DevInfo.DevInst)) and (CM_Get_Parent(@Parent, DevInfo.DevInst, 0) = 0) then begin
    VetoName := GetMemory(260);
    if (CM_Request_Device_EjectA(Parent, nil, VetoName, 260, 0) <> 0) then begin
     if (CM_Locate_DevNodeA(@Parent, VetoName, 0) <> 0) then begin
      FreeMemory(VetoName);
      continue
     end;
     FreeMemory(VetoName);
     if (CM_Request_Device_EjectA(Parent, nil, nil, 0, 0) <> 0) then continue
    end;
    FreeMemory(VetoName);
    break
   end
  end;
  inc(i)
 end;
 //
 SetupDiDestroyDeviceInfoList(hDevInfoSet)
end;

удачи

[S_Yevgeniy]

Огромное Вам спасибо за помощь.
Еще спасибо за журнал с нетерпением ждем очередной.
Всего Вам доброго.

[Beslan_AG]

а какие модули необходимо подключать ????