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

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