USB

    Auf die schnelle hätte ich gesagt DriveGetType ( "path" )
    Aber das verhindern da fällt mix nix ein

    habe das so gelöst bei mir im Security das dann die exe ansprinkt und du code eingene musst. Achtung ist nur ein Ausschnitt vom Programm selber.


    Spoiler anzeigen
    [autoit]


    Func _USB()
    $USB = DriveGetDrive("REMOVABLE")
    If NOT @error Then
    For $i = 1 to $USB[0]
    IniWrite($INI, "USB_Drives",$i, $USB[$i]&"\")
    Next
    EndIf
    _USB_01()
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _USB_01()
    $3 = IniRead($INI,"USB_Drives","1","Default")
    $var_3 = DriveStatus($3)
    If GUICtrlRead($3) = "NOTREADY"then
    CDTray($3, "Close")
    $PH1 = GUICtrlRead($3, 1)
    If $var_3 < "READY" Then
    Else
    ;CDTray($1, "open")
    Run(@ScriptDir & "\Security.exe")
    exit
    EndIf
    EndIf
    EndFunc

    [/autoit]

    Usb Anschluss sperren, nichts leichter als das.
    Versuch das hier

    Spoiler anzeigen
    [autoit]


    While 1
    Sleep(500)
    $usbdrive = DriveGetDrive("Removable")
    If IsArray($usbdrive) Then
    For $i = 1 To $usbdrive[0]
    Next
    MsgBox(0, "Error", "Usb Stick vorhanden")
    ;Shutdown(0)
    ;Exit
    EndIf
    WEnd

    [/autoit]

    Also liesse sich auch eine HD sperren bzw. den Zugriff darauf verhindern ?
    Even. mit PW Eingabe bevor Zugriff ?