VBS，更新OE地址簿问题

secowu

哪位帮忙修改下：

1. 
   
2. If MsgBox("即将替换方式更新：" & vbNewLine & "Outlook Express 地址簿,是否继续？"  & vbNewLine & "点是继续",1,"^_^") = vbOK Then
   
3. Set FSO = CreateObject("Scripting.FileSystemObject")
   
4. If  FSO.FileExists("%systemdrive%\%DATE%.wab") Then
   
5.     Wscript.Echo "你已经更新过了，不需要重复更新。"
   
6. else
   
7. If Not FSO.FileExists("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab") Then
   
8. if MsgBox("不存在 Outlook Express 地址簿,是否强制更新？"  & vbNewLine & "点是继续",1,"^_^") = vbOK Then
   
9. End if
   
10. If FSO.FileExists("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab") Then
    
11. createobject("wscript.shell").popup"程序在3秒钟后将自动开始替换更新!",3,"^_^",64+4096
    
12. 
    
13. Dim WshShell,OldWab
    
14. On Error Resume next
    
15. set WshShell=WScript.CreateObject("WScript.shell")
    
16. OldWab=WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab")
    
17. msgbox OldWab
    
18. Fso.CopyFile Oldwab,"%SystemDrive%\%Date%.WAB",true
    
19. Fso.CopyFile Update.WAB,Oldwab,true
    
20. set fso=nothing
    
21. createobject("wscript.shell").popup"替换成功, 请退出重开Outlook Express以生效!",3,"^_^",64+4096
    
22. set fso=nothing
    
23. End If
    
24. End If
    
25. End If

复制代码

secowu

@echo off
set mydate=%Date:~0,14%%time:~0,2%%time:~3,2%%time:~6,2%
@copy /y "%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab" "%systemdrive%\%mydate%.wab" >nul
@copy /y "Update.wab" "%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab" >nul
@color 0A
@msg %username% /time 5  "替换成功, 请退出重开 Outlook Express 以生效!"
exit