用VBS检测U盘插入和弹出事件（二）

鉴于很多人反映之前写的那篇在XP下无效，做了一下修改。说是修改，其实是直接复制粘贴脚本专家的代码。

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

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

Do While True
    Set objEvent = colEvents.NextEvent
    If objEvent.TargetInstance.DriveType = 2 Then 
        Select Case objEvent.Path_.Class
            Case "__InstanceCreationEvent"
                Wscript.Echo "Drive " & objEvent.TargetInstance.DeviceId & _
                    " has been added."
            Case "__InstanceDeletionEvent"
                Wscript.Echo "Drive " & objEvent.TargetInstance.DeviceId & _
                    " has been removed."
        End Select
    End If
Loop

参考链接：How Can I Determine When a Removable Drive Gets Connected?

随机文章:

1. PTMaster，新的PT流量作弊工具？
2. VBS实现UTF-8转Unicode(UTF-16)
3. WMI中的Win32_PingStatus类
4. IPv6免费传文件——uTorrent鲜为人知的功能
5. Python Proxy，快速、轻量级的HTTP代理服务器

这篇文章发布于 2011年01月9日，星期日，23:56，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。