以前有个对优盘插入和弹出检测的au3，能不能再发一遍

ken0137

以前有个对优盘插入和弹出检测的au3，能不能再发一遍

[ 本帖最后由 ken0137 于 2008-5-14 20:05 编辑 ]

dingamao

那个是我以前发的吧，你自己参考一下中文资料区的WMI教程，我也是以它为蓝本写的

ken0137

对于WMI一窍不通，
我记得说是有个来自官方的检测优盘插入拔出的代码

renren

可移动USB 监视 用WMI 的事件提示

$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")

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

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

[ 本帖最后由 renren 于 2008-5-13 13:52 编辑 ]

renren

这个添加了 USB 设备的详细描述 注意要先开启你的 wmi 服务先，可以去别的版块找下  wmi 相关资料


$strComputer = "."

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colDevices = $objWMIService.ExecQuery ("Select * From Win32_USBControllerDevice")

For $objDevice in $colDevices
    $strDeviceName = $objDevice.Dependent
    $strQuotes = Chr(34)
    $strDeviceName = StringReplace($strDeviceName, $strQuotes, "")
    $arrDeviceNames = StringSplit($strDeviceName, "=")
    $strDeviceName = $arrDeviceNames[2]
    $colUSBDevices = $objWMIService.ExecQuery ("Select * From Win32_PnPEntity Where DeviceID = '" & $strDeviceName & "'")
    For $objUSBDevice in $colUSBDevices
        MsgBox(0,"USB Description",$objUSBDevice.Description)
    Next
    MsgBox(0,"USB Devices",$strDeviceName)
Next

[ 本帖最后由 renren 于 2008-5-13 20:05 编辑 ]

ken0137

那2000下这个服务是不是默认开的啊

abowan

我在官方看到的几个都是用WMI实现的，代码也比较短···

dingamao

官网的那个就是用WMI来实现的

35598253

这个很好，收藏了！！！！