回复：上课时写了个脚本，不知道叫啥名字~应该算是给电脑配了把钥

不会的，popup不是有定时功能嘛，呵�

哦~~

不错！谢谢了!!

你多插几个可移动盘试试，还是会注销的。
好好理解一下代码：
Dim dl 
For Each d In objfs.Drives 
 If d.DriveType=1 Then 
 dl=d.DriveLetter 
 End If 
Next 
=====dl变量只是最后一个可移动盘的盘符========
只有最后一个可移动盘里有“SecretKey”文件而且内容为“Breakan”才能通过认证，如果你所谓的“密钥盘”不是最后一个程序都将关机!
不信你先插一个“密钥盘”,然后插个非“密钥盘”试试，准关机@_*
【发现漏洞，哦也……哈哈】
做个广告【爱学者】http://www.iaixue.com

用serialNumber属性吧，唯一u盘，别的u盘即使有那个文件，即使文件一摸一样也不行，

得先确定u盘的serialNumber

For Each d In objfs.Drives 
 If d.serialNumber=343434 then 
 wscript.quit
 end if
Next 

rem [sorry shutdown]


得先得到自己U盘的serialNumber是几哈，

看到20楼的后才想到�

嗯，不错不错。大家想的真周到呀~~~

都不错，楼上看得出来有一些高手在里面

我来学习的，

测试发现，如果使用的是系统帐号例如administrator,依然是可以登录进系统的，只是登录进去有弹出提示而已，只要不对弹出的提示点击取消，就可以对系统进行任意操作，所以说还是有待改进

不会吧，难道objws.Popup设定的时间不起作用？

高手很多，我不说了^_^

楼上的一句没看懂。。

删了不就什么都没了吗？？？