Day 2294 U盘关机检测脚本

放在自己办公机上的，用来在关机的时候检测已登记但尚未移除的USB存储设备。
不过，若是处于充电模式而未通知系统Plugged-in事件的设备就没办法了。

'USB可移动磁盘检测脚本
'Nov.3 2011 by Lucsiro Touka
'参考脚本: http://www.codeguru.com/forum/showthread.php?t=408639
'
'本脚本用于检测系统中已装载的USB存储类设备，初衷是为了在关机时提示用户有未拔下的U盘、移动硬盘等。
'将本脚本保存为vbs，加入注销脚本列表（组策略—本地计算机策略—用户配置—Windows设置—脚本（登录/注销）—注销）即可达到关机提示的效果。

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colDiskDrives = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive WHERE InterfaceType = 'USB'")

i=1

For Each objDrive In colDiskDrives
	sExistDevice = sExistDevice & i & ". " & objDrive.Caption & vbCrlf
	i = i + 1
Next

If sExistDevice <> "" Then Msgbox "下列USB移动存储设备尚未卸载。" & vbCrlf & "请手动移除其中需要卸载的设备后，单击确定继续关机。" & vbCrlf & sExistDevice, vbInformation, "有尚未卸载的USB移动存储设备"

使用效果：