[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
方法1 VBS+Wmi
  1. set objShell = CreateObject ("Wscript.Shell")
  2. Set oLocator = CreateObject ("WbemScripting.SWbemLocator")
  3. Set oSink = WScript.CreateObject ("WbemScripting.SWbemSink","Event_")
  4. Set oWMISvc = oLocator.ConnectServer
  5.     oWMISvc.ExecNotificationQueryAsync oSink, "Select * From __InstanceCreationEvent WITHIN 5 " & _
  6.             "Where TargetInstance ISA 'Win32_LogicalDisk'"
  7. Do
  8.     WScript.Sleep 2000
  9. Loop
  10. Sub Event_OnObjectReady(oEventSource,oContext)
  11.     WScript.Echo "USB 设备已插入,盘符为 "&oEventSource.TargetInstance.Name
  12. End Sub
复制代码
方法2 VBS+FileSystemObject
  1. Set Fso = CreateObject("Scripting.FileSystemObject")
  2. Set DC = Fso.Drives
  3. Do
  4. For Each D in DC
  5.     aDisk=""
  6.     If D.DriveType = 1 Then
  7.        aDisk = aDisk & D.DriveLetter & ": "
  8.     End If
  9. Next
  10. aDisk = Replace(aDisk, "A: ","")
  11. If aDisk = "" Then
  12.    Wscript.sleep 8000
  13.    Else
  14.    WScript.Echo "USB 设备已插入,盘符为 "&aDisk
  15. End If
  16. Wscript.sleep 20000
  17. Loop
复制代码

TOP

返回列表