VBS检测可移动磁盘的连接与断开

tmplinshi

1. strComputer = "."
   
2. Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
   
3. 
   
4. Set colEvents = objWMIService.ExecNotificationQuery _
   
5.     ("Select * From __InstanceOperationEvent Within 10 Where " _
   
6.         & "TargetInstance isa 'Win32_LogicalDisk'")
   
7. 
   
8. Do While True
   
9.     Set objEvent = colEvents.NextEvent
   
10.     If objEvent.TargetInstance.DriveType = 2 Then
    
11.         Select Case objEvent.Path_.Class
    
12.             Case "__InstanceCreationEvent"
    
13.                 Wscript.Echo "Drive " & objEvent.TargetInstance.DeviceId & _
    
14.                     " has been added."
    
15.             Case "__InstanceDeletionEvent"
    
16.                 Wscript.Echo "Drive " & objEvent.TargetInstance.DeviceId & _
    
17.                     " has been removed."
    
18.         End Select
    
19.     End If
    
20. Loop

复制代码

转自: http://blogs.technet.com/b/heysc ... gets-connected.aspx

BillGates

不错，支持一下。

Hello123World

犀利啦，这都看的懂。——这英语得多少级啊！