标题: [分享]用U盘给电脑加锁，VBS脚本 [打印本页]
作者: clian76 时间: 2008-10-28 13:33 标题: [分享]用U盘给电脑加锁，VBS脚本
这不是我的作品，我对VBS一窍不通，是偶然的机会在网上找到的，觉得不错，或许对需要的朋友很有用，就发上来了
说明：
打开gpedit.msc
把脚本放到“登陆脚本”里，这样
登陆系统时就需要插上U盘，并且U盘中有一个SecretKey的文件，并且文件中有Breakan这个字符串。
不然就自动注销。
呵呵
Dim objws,objfs
Set objws=WScript.CreateObject("wscript.shell")
Set objfs=CreateObject("scripting.filesystemobject")
Dim dl
For Each d In objfs.Drives
If d.DriveType=1 Then
dl=d.DriveLetter
End If
Next
If dl<>"" Then
If objfs.FileExists(dl & ":\SecretKey") Then
Set objf=objfs.OpenTextFile(dl & ":\SecretKey",1,False)
If objf.ReadAll="Breakan" Then
objws.Popup "^-^ 合法用户,欢迎使用!",3,"你好",64
Else
objws.Popup "-_- 非法用户,密钥错误!",3,"提示",16
objws.Run "shutdown -l"
End If
Else
objws.Popup "#_# 非法用户,密钥文件错误!",3,"错误",16
objws.Run "shutdown -l"
End If
Else
objws.Popup "@_@ 非法用户,物理密钥错误!",3,"错误",16
objws.Run "shutdown -l"
End If
Set objws=WScript.CreateObject("wscript.shell")
Set objfs=CreateObject("scripting.filesystemobject")
Dim dl
For Each d In objfs.Drives
If d.DriveType=1 Then
dl=d.DriveLetter
End If
Next
If dl<>"" Then
If objfs.FileExists(dl & ":\SecretKey") Then
Set objf=objfs.OpenTextFile(dl & ":\SecretKey",1,False)
If objf.ReadAll="Breakan" Then
objws.Popup "^-^ 合法用户,欢迎使用!",3,"你好",64
Else
objws.Popup "-_- 非法用户,密钥错误!",3,"提示",16
objws.Run "shutdown -l"
End If
Else
objws.Popup "#_# 非法用户,密钥文件错误!",3,"错误",16
objws.Run "shutdown -l"
End If
Else
objws.Popup "@_@ 非法用户,物理密钥错误!",3,"错误",16
objws.Run "shutdown -l"
End If
作者: sea1112 时间: 2008-10-28 15:32
有点垃圾了，问题多多。
一、开机运行后，机只还没全开动，P处理注销不了系统的。
二、就算是注销系统后重进一次，只要不重起也是可以进去的。
三、安全模式进去把他删除后还是给破解的。
四、可以做成“请插入用户密码匙进入系统”等提示就好多了。
五、出来了一个小黑CMD，隐藏运行才好啊。看上去就象中毒是的......
作者: everest79 时间: 2008-10-28 15:43
2楼看好，人家是放在登陆脚本中的
作者: clian76 时间: 2008-10-28 16:30
对二楼的回答：
一、首先这不是P处理，是VBS脚本，然后是“登陆系统”时，不是开机时会出现。
二、这是加入到系统登陆脚本里的，注销后如果没插入U盘，还是会提示你然后注销
三、安全模式确实可以很容易的删除，因为安全模式不会加载启动脚本。
四、你喜欢的话，自己把错误提示改一下就好了。
五、VBS，不会有小黑CMD，只会弹出一个消息提示框。
作者: sea1112 时间: 2008-10-31 11:44
你是自己试过才说的。你有没放过，放过你一次就知了。
objws.Run "shutdown -l
这句出来的就是CMD小黑窗了。
[ Last edited by sea1112 on 2008-10-31 at 11:46 ]