Day 8621 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移动存储设备"

使用效果:

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注

 剩余字数 ( Characters available )

Your comment will be available after auditing.
您的评论将在通过审核后显示。

Please DO NOT add any links in your comment, otherwise it would be identified as SPAM automatically and never be audited.
请不要在评论中插入任何链接,否则将被自动归类为垃圾评论,且永远不会被提交给博主进行复审。

*