Indetectables

Código: Seleccionar todo

Func _Detect_Usb()
    ; Code réalisé par ptrex le Mardi 13 2007.
    $strComputer = "."
     $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")

     $colEvents = $objWMIService.ExecNotificationQuery _
        ("Select * From __InstanceOperationEvent Within 5 Where " _
            & "TargetInstance isa 'Win32_LogicalDisk'")

    While 1
         $objEvent = $colEvents.NextEvent
        If $objEvent.TargetInstance.DriveType = 2 Then
            Select
                Case $objEvent.Path_.Class()="__InstanceCreationEvent"
                    Consolewrite("Drive " & $objEvent.TargetInstance.DeviceId & "has been added." & @CR)
                Case $objEvent.Path_.Class()="__InstanceDeletionEvent"
                    Consolewrite("Drive " & $objEvent.TargetInstance.DeviceId & "has been removed."& @CR)
            EndSelect
        EndIf
    WEnd
EndFunc