『楼 主』:
整个VBS或者批处理来实现备份与替换OE的地址簿
谁帮忙修改下这个脚本呢？
或者修改完后，再转换一个批处理的版本呢？
谢谢了
If MsgBox("即将替换方式更新：" & vbNewLine & "Outlook Express 地址簿,是否继续？" & vbNewLine & "点是继续",1,"^_^") = vbOK Then
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists("%systemdrive%\%DATE%.wab") Then
Wscript.Echo "你已经更新过了，不需要重复更新。"
else
If Not FSO.FileExists("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab") Then
if MsgBox("不存在 Outlook Express 地址簿,是否强制更新？" & vbNewLine & "点是继续",1,"^_^") = vbOK Then
End if
If FSO.FileExists("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab") Then
createobject("wscript.shell").popup"程序在3秒钟后将自动开始替换更新!",3,"^_^",64+4096
Dim WshShell,OldWab
On Error Resume next
set WshShell=WScript.CreateObject("WScript.shell")
OldWab=WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab")
msgbox OldWab
Fso.CopyFile Oldwab,"%SystemDrive%\%Date%.WAB",true
Fso.CopyFile Update.WAB,Oldwab,true
set fso=nothing
createobject("wscript.shell").popup"替换成功, 请退出重开Outlook Express以生效!",3,"^_^",64+4096
set fso=nothing
End If
End If
End If [ Last edited by secowu on 2009-2-27 at 09:03 ]
|
