『楼 主』:
[分享]用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
|
