|
|
发表于 2024-1-26 09:11:11
|
显示全部楼层
vbs- s = "SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE " & _
- "TargetInstance ISA 'Win32_LogicalDisk' AND TargetInstance.DriveType = 2"
- Set oWshShell = CreateObject("WScript.Shell")
- Set oWMI = GetObject("Winmgmts:\\.\Root\Cimv2")
- Set oSWbemEventSource = oWMI.ExecNotificationQuery(s)
- Do
- Set oSWbemObject = oSWbemEventSource.NextEvent()
- Select Case oSWbemObject.Path_.Class
- Case "__InstanceCreationEvent"
- 'MsgBox "U盘插入,盘符:" & oSWbemObject.TargetInstance.DeviceId
- oWshShell.Run "net use ......", 0
- Case "__InstanceDeletionEvent"
- 'MsgBox "U盘移除,盘符:" & oSWbemObject.TargetInstance.DeviceId
- oWshShell.Run "net use ......", 0
- End Select
- Loop
复制代码 net命令自己修改一下 |
评分
-
查看全部评分
|