分享：OE地址簿自动更新批处理

secowu

想了老半天，折腾了个出来。
别笑话,欢迎修正

1. 
   
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

复制代码