放在自己办公机上的,用来在关机的时候检测已登记但尚未移除的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移动存储设备"
使用效果:
远嚣 Comment