中国DOS联盟

@echo off
@set MO="Microsoft Outlook"
@set HO="Hotmail"
@set WL="Windows Live Mail"
@set WM="Windows Mail"
@set OE="Outlook Express"
@for /f "tokens=2*" %%i in ('reg query HKLM\SOFTWARE\Clients\Mail /v "" ^| findstr /i /c:"REG_SZ"') do ( set client=%%j)
@if  not "%client%" == %OE% (goto NS) else (goto OE)
@if [%client%]==[] (goto CU) else (goto LM)
:CU
@for /f "tokens=2*" %%i in ('reg query HKCU\SOFTWARE\Clients\Mail /v "" ^| findstr /i /c:"REG_SZ"') do ( set client=%%j)
@if  not "%client%" == %OE% (goto NS) else (goto OE)
@if [%client%]==[] (goto Crazy) else (goto lm)
:Crazy
(
echo ---------------------------
echo   无法检测到邮件默认程序
echo     程序即将退出......
echo ---------------------------
echo   如有疑问请联系:SECO
)|msg %username%  /time 6
exit
:LM
@if  not "%client%" == %OE% (goto NS) else (goto OE)
:NS
(
echo -------------------------------------
echo 检测到邮件默认程序：
echo     %client%！
echo     本程序目前仅支持 Outlook Express!
echo     程序即将退出......
echo -------------------------------------
echo 如有疑问请联系:SECO
)|msg %username%  /time 6
exit
:OE
set mydate=%Date:~0,14%%time:~0,2%%time:~3,2%%time:~6,2%
@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)
set mydate=%Date:~0,14%%time:~0,2%%time:~3,2%%time:~6,2%
@if  exist "%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab" goto Ori
@if  exist "%wab%" goto Cus
@goto error
:Ori
@msg %username% /time 3  "检测到地址簿:"%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab"!即将更新..."
@copy /y "%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab" "%systemdrive%\%mydate%.wab" >nul
@copy /y "%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab" "%USERPROFILE%\Application Data\Microsoft\Address Book\%mydate%.wab" >nul
@ if exist "%systemdrive%\%mydate%.wab"  msg %username% /time 3 "地址簿备份成功一次："%mydate%.wab
@ if exist "%USERPROFILE%\Application Data\Microsoft\Address Book\%mydate%.wab"  msg %username% /time 3 "地址簿备份成功二次："%mydate%.wab
::@ if not exist "%systemdrive%\%mydate%.wab" goto fail
@ if not exist "%USERPROFILE%\Application Data\Microsoft\Address Book\%mydate%.wab" goto fail
@copy /y "Update.wab" "%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab" >nul
@ if not exist "%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab" goto sorry
goto OK
:Cus
@msg %username% /time 3  "检测到地址簿:%wab%!即将更新..."
@copy /y "%wab%" "%systemdrive%\%mydate%.wab" >nul
@copy /y "Update.wab" "%wab%" >nul
goto OK
:OK
@msg %username% /time 8  "替换成功, 请退出重开 Outlook Express 以生效!先前如有导出专属WAB文档的，请重新导入即可。 "
exit
:error
@msg %username% /time 5  "程序未检测到 Outlook Express 地址簿,更新无法继续! "
exit
@color 0a
:fail
@msg %username% /time 5 "备份地址簿失败，请联系管理员。程序即将中止并退出。"
exit
:sorry
@copy "%USERPROFILE%\Application Data\Microsoft\Address Book\%mydate%.wab" "%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab"
@if not exist "%USERPROFILE%\Application Data\Microsoft\Address Book\%mydate%.wab" goto sorry
@msg %username% /time 5 "备份地址簿失败，程序已经恢复原先地址簿。"
exit