功能：把自己的U盘变成一把钥匙，只有在开机前插着那个U盘才能正常使用电脑，相当于给电脑加上另一种形式的密匙。

使用方法：保存下面的代码为“U盘锁.vbs”，双击运行，按照提示做就可以了。

如果要取消U盘锁，还是运行“U盘锁.vbs”，到任意一步，点“取消”按钮就可以移除之前设置的U盘锁。

''''''''''''''''''''代码开始''''''''''''''''''''

On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set ws=CreateObject("WScript.Shell")
Set WIN=fso.GetSpecialFolder(0)

fso.GetFile(WIN.Path & "\ThisIsMyComputer.vbs").Delete(True)

Password=InputBox("请输入密码：","U盘锁安装程序","Password")
If Password="" Then
ws.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UKEY"
WScript.Quit
End If

Set TRO=fso.CreateTextFile(WIN.Path & "\ThisIsMyComputer.vbs")
TRO.WriteLine("MyKey=1")
TRO.WriteLine("MyPassword=""" & Password & """")
TRO.WriteLine("Set fso=CreateObject(""Scripting.FileSystemObject"")")
TRO.WriteLine("Set ws=CreateObject(""WScript.Shell"")")
TRO.WriteLine("")
TRO.WriteLine("for Each drv In fso.Drives")
TRO.WriteLine("If (drv.DriveType=1 And drv.IsReady) Then")
TRO.WriteLine("If fso.FileExists(drv.Path & ""\MyKey.tdr"") Then")
TRO.WriteLine("If fso.OpenTextFile(drv.Path & ""\MyKey.tdr"").ReadLine=MyPassword Then MyKey=0")
TRO.WriteLine("End If")
TRO.WriteLine("End If")
TRO.WriteLine("Next")
TRO.WriteLine("")
TRO.WriteLine("If MyKey Then")
TRO.WriteLine("ws.Run ""Shutdown -s -t 3 -c "" & ""对不起，您的登录非法！"" & Chr(13) & Chr(13) & ""系统将于3秒钟后关闭！"",0,False")
TRO.WriteLine("End If")
TRO.Close
fso.GetFile(WIN.Path & "\ThisIsMyComputer.vbs").Attributes=7

Do
MsgBox "请插入作为密匙的U盘...",64,"U盘锁安装程序"
I=InputBox("请输入U盘密匙盘符：","U盘锁安装程序","I:")
If I="" Then
fso.GetFile(WIN.Path & "\ThisIsMyComputer.vbs").Delete(True)
ws.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UKEY"
WScript.Quit
End If

If Not fso.FolderExists(I) Then
MsgBox "你的输入有误，请重新输入！",48,"U盘锁安装程序"
Else
Exit Do
End If
Loop

fso.GetFile(I & "\MyKey.tdr").Delete(True)

Set TRO=Nothing
Set TRO=fso.CreateTextFile(I & "\MyKey.tdr")
TRO.WriteLine(Password)
TRO.Close
Set TRO=Nothing
fso.GetFile(I & "\MyKey.tdr").Attributes=7

ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UKEY",WIN.Path & "\ThisIsMyComputer.vbs","REG_SZ"
MsgBox "U盘锁安装完毕！",64,"U盘锁安装程序"

''''''''''''''''''''代码结束''''''''''''''''''''