无忧启动论坛

标题: 分享：OE地址簿自动更新批处理 [打印本页]
作者: secowu    时间: 2009-3-6 16:53
标题: 分享：OE地址簿自动更新批处理
想了老半天，折腾了个出来。
别笑话,欢迎修正

  2. @echo off
  3. @for /f "tokens=2*" %%i in ('reg query "HKCU\Software\microsoft\wab\wab4\wab file name" /v "" ^| findstr /i /c:"REG_SZ"') do ( set wab=%%j)
  4. set mydate=%Date:~0,14%%time:~0,2%%time:~3,2%%time:~6,2%
  5. @if  exist "%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab" goto Ori
  6. @if  exist "%wab%" goto Cus
  7. @goto error
  8. :Ori
  9. @msg %username% /time 5  "检测到地址簿:"%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab"!即将更新..."
  10. @copy /y "%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab" "%systemdrive%\%mydate%.wab" >nul
  11. @copy /y "Update.wab" "%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab" >nul
  12. set S=Ori
  13. goto OK
  14. :Cus
  15. @msg %username% /time 5  "检测到地址簿:%wab%!即将更新..."
  16. @copy /y "%wab%" "%systemdrive%\%mydate%.wab" >nul
  17. @copy /y "Update.wab" "%wab%" >nul
  18. set S=Cus
  19. goto OK
  20. :OK
  21. @msg %username% /time 8  "替换成功, 请退出重开 Outlook Express 以生效! %S%"
  22. exit
  23. :error
  24. @msg %username% /time 10  "程序未检测到 Outlook Express 地址簿,更新无法继续!"
  25. exit
复制代码




欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3