[R] Autoriser uniquement les clé usb déclarés

[kandale]

Bonjour !
Je cherche à faire un script (qui tourne en tache de fond ou en service) et qui interdit l'usage d'une clé usb non autorisée (fichier texte contenant la liste des numéro de série des clé usb autorisés)
en gros le logigramme c'est ça:

a chaque évenement "insertion clé usb" faire:

--->lire le numero de serie de la clé
---> si ce numero se serie n'existe pas dans le fichier "autorise.csv" alors bloquer le port usb (ou toute autre action interdisant le trafic usb pc)

merci bcp pour toute aide

[Tlem]

Merci de prendre le temps de lire les règles de présentation d'un message.

[kandale]

Décidément, à part la remarque du modo sur la forme, mon post est resté lettre morte

[Tlem]

Ben, il ne suffit pas de poser une question. Parfois il faut aussi chercher un peut.

Pour la détection de l'insertion d'un média USB : http://www.autoitscript.fr/forum/viewto ... 311#p28311

Pour gérer les médias USB (trouvé sur le forum Anglais) :

► Afficher le texte

Code : Tout sélectionner

; http://www.autoitscript.com/forum/index.php?showtopic=48585&view=findpost&p=569255
#include <WinApi.au3>
;Prototypes
;BOOL EjectVolume(TCHAR cDriveLetter);
;HANDLE OpenVolume(TCHAR cDriveLetter);
;BOOL LockVolume(HANDLE hVolume);
;BOOL DismountVolume(HANDLE hVolume);
;BOOL PreventRemovalOfVolume(HANDLE hVolume, BOOL fPrevent);
;BOOL AutoEjectVolume(HANDLE hVolume);
;BOOL CloseVolume(HANDLE hVolume);

;StringFormat Output
$szVolumeFormat = "\\\\.\\%s"
$szRootFormat = "%s\\"
$szErrorFormat = "Error %d: %s\n"
;------------------------------------------
;Arbitrary variables
;Global Const $INVALID_HANDLE_VALUE = 0
;------------------------------------------
;DeviceIoControl Contants
Global Const $FSCTL_LOCK_VOLUME = Int(0x090018)
Global Const $FSCTL_DISMOUNT_VOLUME = Int(0x00090020)
Global Const $IOCTL_STORAGE_EJECT_MEDIA = Int(0x002D4808)
Global Const $IOCTL_STORAGE_MEDIA_REMOVAL = Int(0x002D4804)

;------------------------------------------
;Retry Constants
Global Const $LOCK_TIMEOUT = 10000 ; 10 Seconds
Global Const $LOCK_RETRIES = 20
$OpenVolume = InputBox("Ejecting...", "Enter the drive to eject", "G:")
ConsoleWrite("Trying to Eject the drive " & EjectVolume($OpenVolume) & @CRLF)

Func ReportError($szMsg)
    ConsoleWrite(StringFormat($szErrorFormat, _WinAPI_GetLastErrorMessage(), $szMsg) & @CRLF)
    Exit
EndFunc   ;==>ReportError

Func OpenVolume($cDriveLetter)
    ;HANDLE hVolume
    ;UINT uDriveType
    ;TCHAR szVolumeName[8]
    ;TCHAR szRootName[5]
    ;DWORD dwAccessFlags
    $szRootName = StringFormat($szRootFormat, $cDriveLetter)
    $uDriveType = DriveGetType($szRootName);
    ConsoleWrite($szRootName & @TAB & $uDriveType & @CRLF)
    Switch $uDriveType
        Case "Removable"
            $dwAccessFlags = 6
        Case "CDROM"
            $dwAccessFlags = 2
        Case Else
            ConsoleWrite("Cannot eject.  Drive type is incorrect." & @CRLF)
            Return $INVALID_HANDLE_VALUE
    EndSwitch
    $szVolumeName = StringFormat($szVolumeFormat, $cDriveLetter)
    ;$szVolumeName = $szVolumeFormat & $cDriveLetter
    ConsoleWrite($szVolumeName & @CRLF)
    $hVolume = _WinAPI_CreateFile($szVolumeName, 2, $dwAccessFlags, 6)

    #cs
        hVolume = CreateFile(   szVolumeName,
        dwAccessFlags,
        FILE_SHARE_READ | FILE_SHARE_WRITE,
        NULL,
        OPEN_EXISTING,
        0,
        NULL );
    #ce
    If ($hVolume == $INVALID_HANDLE_VALUE) Then ReportError("CreateFile");
    Return $hVolume;
EndFunc   ;==>OpenVolume

Func CloseVolume($hVolume)
    Return _WinAPI_CloseHandle($hVolume);
EndFunc   ;==>CloseVolume

Func LockVolume($hVolume)
    Local $dwBytesReturned
    Local $dwSleepAmount
    Local $nTryCount
    Local $iRead
    $dwSleepAmount = $LOCK_TIMEOUT / $LOCK_RETRIES;
    ; Do this in a loop until a timeout period has expired
    For $nTryCount = 0 To $nTryCount < $LOCK_RETRIES
        If _Device_Control($hVolume, $FSCTL_LOCK_VOLUME, $iRead) Then
            Return True
        Else
            Sleep($dwSleepAmount);
        EndIf
    Next
    Return False;
EndFunc   ;==>LockVolume

Func DismountVolume($hVolume)
    ConsoleWrite("Dismount " & $hVolume & @CRLF)
    Local $dwBytesReturned, $iRead
    Local $aResult = _Device_Control($hVolume, $FSCTL_DISMOUNT_VOLUME, $iRead)
    MsgBox(0, "", $aResult)
    Return $aResult
    ;Return $dwBytesReturned
EndFunc   ;==>DismountVolume

Func PreventRemovalOfVolume($hVolume, $fPreventRemoval)
    Local $dwBytesReturned
    Local $aResult
    Local $lpInbuffer, $nInBufferSize, $lpOutBuffer, $nOutBufferSize, $lpOverlapped

    $PMRBUFFER = DllStructCreate("bool PreventMediaRemoval")

    DllStructSetData($PMRBUFFER, "PreventMediaRemoval", $fPreventRemoval)

    $lpBytesReturned = DllStructCreate("int Read")
    $pRead = DllStructGetPtr($lpBytesReturned, "Read")
    $aResult = DllCall("kernel32.dll", "int", "DeviceIoControl", "hwnd", $hVolume, "uint", $IOCTL_STORAGE_MEDIA_REMOVAL, "ptr", DllStructGetPtr($PMRBUFFER), "uint", DllStructGetSize($PMRBUFFER), _
            "ptr", $lpOutBuffer, "uint", $nOutBufferSize, "ptr", $pRead, "ptr", $lpOverlapped)
    If $aResult = 0 Then MsgBox(0, "", _WinAPI_GetLastErrorMessage())
    Return $aResult <> 0

    ;& PMRBuffer, sizeof (PREVENT_MEDIA_REMOVAL),
    ;NULL, 0,
    ; & dwBytesReturned,
    ;NULL);
EndFunc   ;==>PreventRemovalOfVolume

Func AutoEjectVolume($hVolume)
    Local $aResult, $iRead;
    $aResult = _Device_Control($hVolume, $IOCTL_STORAGE_EJECT_MEDIA, $iRead)
    Return $aResult
EndFunc   ;==>AutoEjectVolume

Func EjectVolume($cDriveLetter)
    Local $hVolume;
    Local $fRemoveSafely = False;
    Local $fAutoEject = False;
    ; Open the volume.
    $hVolume = OpenVolume($cDriveLetter);
    If $hVolume == $INVALID_HANDLE_VALUE Then Return False
    ; Lock and dismount the volume.
    If LockVolume($hVolume) And DismountVolume($hVolume) Then
        $fRemoveSafely = True;
        ConsoleWrite("Volume Locked and Dismounted, trying to Eject " & @CRLF)
        ; Set prevent removal to false and Eject the volume.
        If PreventRemovalOfVolume($hVolume, False) And AutoEjectVolume($hVolume) Then
            $fAutoEject = True;
        EndIf
    Else
        ConsoleWrite("Volume can't be locked or dismounted, please close possible opened files" & @CRLF)
    EndIf

    ; Close the volume so other processes can use the drive.
    If CloseVolume($hVolume) = False Then
        Return False;
    EndIf

    If $fAutoEject Then
        ConsoleWrite(StringFormat("Media in Drive %s has been ejected safely.\n", $cDriveLetter))
    Else
        If $fRemoveSafely Then
            ConsoleWrite(StringFormat("Media in Drive %s can be safely removed.\n", $cDriveLetter))
        EndIf
    EndIf

    Return True;
EndFunc   ;==>EjectVolume

Func _Device_Control($hDevice, $dwIoControlCode, ByRef $iRead)
    Local $aResult
    Local $lpInbuffer, $nInBufferSize, $lpOutBuffer, $nOutBufferSize, $lpOverlapped
    $tRead = DllStructCreate("int Data")

    $aResult = DllCall("kernel32.dll", "int", "DeviceIoControl", "hwnd", $hDevice, "uint", $dwIoControlCode, "ptr", $lpInbuffer, "uint", 0, _
            "ptr", $lpOutBuffer, "uint", 0, "ptr", DllStructGetPtr($tRead), "ptr", $lpOverlapped)

    $iRead = DllStructGetData($tRead, "Data")

    ConsoleWrite("Device Control " & $iRead & @CRLF)
    Return $aResult <> 0
EndFunc   ;==>_Device_Control

Ou

► Afficher le texte

Code : Tout sélectionner

;http://www.autoitscript.com/forum/index.php?showtopic=82547&view=findpost&p=591057
#include <Process.au3>
$DriveLabel = "USBDRIVELABEL" ; your drive label here
$aDrives = DriveGetDrive("all") ; USB external hard drives report as "Fixed", not "Removable", so use "All" to cover both kinds
If Not @error Then
    For $i = 1 To $aDrives[0]
        If DriveGetLabel($aDrives[$i]) = $DriveLabel Then
            If DriveStatus($aDrives[$i]) = "READY" Then
                _RunDOS("sync.exe -r " & $aDrives[$i]) ; Flush drive cache
                Sleep(2000)
                EjectDrive($aDrives[$i] & "\")
            EndIf
            Exit
        EndIf
    Next
EndIf

Exit

Func EjectDrive($dLetter) ; From VB script, Authors XoLoX and ChrisL
    Local Const $SSF_DRIVES = 17
    Local $oShell, $oNameSpace, $oDrive, $strDrive
    $strDrive = $dLetter
    $strName = DriveGetLabel($strDrive) & "(" & $strDrive & ")"
    $oShell = ObjCreate("Shell.Application")
    $oNameSpace = $oShell.NameSpace($SSF_DRIVES)
    $oDrive = $oNameSpace.ParseName($strDrive)
    $oDrive.InvokeVerb("E&ject")
    If DriveGetLabel($aDrives[$i]) <> $DriveLabel Or DriveGetLabel($aDrives[$i]) = "Removeable Disk" Then
        TrayTip("USB Drive " & $strName & " ejected", "You can now remove the device safely.", 5, 1)
        MsgBox(0, "", $strName & " drive ejected. You can now remove the device safely.", 5)
    EndIf
EndFunc   ;==>EjectDrive

[Tlem]

Tient, tient !!!
Comme s'est étrange.
http://www.autoitscript.com/forum/index ... t&p=773956

Votre pseudo est mary sur le forum Anglais ...

[kandale]

Exact, sur le forum anglais, la réponse (efficace) en moins de 24 h !
ici 2 semaines pour enfin faire un copier-coller de la réponse que j'ai eu sur le forum anglais !
Bon, on va dire que c'est des erreurs de jeunesse du forum

[Tlem]

Heuu, si vous regardez les horaires, j'ai poster ma réponse à 8H25 alors que la première réponse du forum Anglais à été donnée à 9H14.
Et la première réponse constructive à 13H38.
Donc point de copier/coller.

Ensuite si vous regardez le nombre d'utilisateur du forum Anglais et celui du forum Français, vous remarquerez un très léger écart (juste un coefficient de 17 fois plus ).
Donc pas étonnant que certaines réponses passe au travers et tardent un peut.
Vous remarquerez aussi que suite à votre relance qui était à 1H09 (heure à laquelle j'étais probablement au lit), dés le matin la réponse fut claire et constructive.

Mais bon, c'est pas grave. C'est normal, tout vous est dut et je ne comprend même pas pourquoi j'ai été me coucher alors que vous relanciez votre sujet sur le forum.

Hoooo pardonnez moi monsieur l'utilisateur du forum, je vais vous donner mon numéro de téléphone mobile au cas ou j'aurais encore oublié de répondre à une de vos questions, comme cela vous pourrez me réveiller en pleine nuit pour que je cherche à votre place.

[FernandG]

Bonsoir,

Super ..., merci à toi Tlem

Je ne fais quasiment aucune demande, je préfère chercher sur les forums et si je trouve pas, ben ... je contourne mon problème autrement et/ou je me lance dans des tests. Je dois avouer que cela me prend pas mal de temps. J'avoue que là, tu nous offres un très beau cadeau. Mais quel soulagement d'avoir une hotline 18/24h, et pour les 6h manquantes et bien il faut bien que je dorme un peu, non ?!

Et pour ton numéro, tu peux m'envoyer un PV Je te suis d'ores et déjà reconnaissant.

Encore une fois merci au nom de tous les utilisateurs de ce forum.

A très bientôt et bonne soirée.

P.S. : Tu assures aussi dans la langue de shakespeare ?

[Tlem]

P.S. : Tu assures aussi dans la langue de shakespeare ?

Disons que je me débrouille avec mes connaissances et les outils dont Internet me gratifie.
Of course, it is not easy all the time, but I translated all the same a big part of the documentation as well as the description of Autoit on Wikipedia.

Tanks to Reverso and Babylon.

[GhostLine]

Kandale> tu as oublié de me verser ma paye, c'est pour ça que je ne t'ai pas donné ta solution dans la demi-heure ! Nan mais ce qu'il en faut pas lire, sans rire

[kandale]

Désolé Tlem, je ne voulais pas manifester une critique mais juste une réplique taquineuse...
Donc, encore mes excuses et merci pour ton travail et ton aide.

[Tlem]

Bien.
Doit on considérer ce sujet comme résolu ?

Car sinon n'oubliez pas la balise [R] dans le titre de votre premier message.