电脑关机自动加密文件夹的方法

saintlulu

ps:关机以后 能自动上锁，开机时打开文件夹得用密码

利用组策略的关机脚本关机时运行文件夹加密软件自动输入密码加密文件夹成功后关机。例如：有F盘下有MOV文件夹，里面有文本文件key.txt ，便携式文件夹加密程序lockdir.exe 编写以下VBS脚本
内容如下：
Dim fname,fspec,ws,fso
fname="F:\mov\key.txt"
fspec="F:\mov\Thumbs.db"
set ws=wscript.createobject("wscript.shell")
set fso=CreateObject("scripting.FileSystemObject")
Do While fso.FileExists(fname)  '利用循环结构检测要加密的文件夹里面的文件key.txt直到不存在时说明加密成功，防止加密失败
  If fso.FolderExists(fspec) Then
     fso.deleteFolder(fspec)  ’删除要加密的文件夹下的Thumbs.db，防止加密失败
  end if
   wscript.sleep 1000
  ws.run "taskkill /f /im explorer.exe"   '强制结束explorer进程，防止要加密的文件夹被锁定，也可以强制结束迅雷程序，如要加密的文件夹是下载文件夹  ws.run "taskkill /f /im thunder5.exe"                           
  wscript.sleep 2000
  ws.run ("F:\mov\lockdir.exe")  ’运行要加密文件夹下的便携式文件夹加密程序lockdir.exe
  wscript.sleep 500
  ws.sendkeys "123"  '加密密码，如123
  wscript.sleep 500
  ws.sendkeys("{TAB}")
  wscript.sleep 500
  ws.sendkeys "123"  ’确认加密密码
  wscript.sleep 500
  ws.sendkeys("{enter}")
  wscript.sleep 3000
Loop

存为 加密.VBS,加入关机脚本中运行即可。

2011haring

额。。。怎么加入关机脚本中？

saintlulu

组策略-计算机配置-windows设置-脚本（启动/关机）中

renchmin

楼主提供的这个方法还是很不错的啊。