' ============================================================
' OfficeScan 数据备份脚本（VBScript）
' 功能：将 OfficeScan 安装目录下的关键数据备份到指定磁盘
' 用法：cscript backup_ofcdata.vbs
' ============================================================
' 定义注册表根键常量（本脚本未直接使用，保留备用）
strComputer="."
CONST HKEY_LOCAL_MACHINE = &H80000002
' 创建文件系统对象，用于后续的文件夹/文件操作
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 由用户输入 OfficeScan 的安装路径，例如 C:\Program Files\Trend Micro\OfficeScan\PCCSRV
OFCPath=Inputbox("Please specify the OfficeScan Installation Path.Example:<C:\Program Files\Trend Micro\OfficeScan\PCCSRV>")
' 路径长度小于 5 视为无效输入，直接退出脚本
if Len(OFCPath)<5 then Wscript.quit
' 由用户输入备份目标盘符，只允许单个字母，例如 C
objDisk=inputbox("Please select backup data to which disk.Example:C","Select Target")
' 校验盘符长度，非单个字符则提示格式错误并退出
If len(objDisk)<>1 then
Wscript.echo "Input Disk Letter Format Error!Backup Failed!"
Wscript.quit
End If
' 拼接备份根目录，盘符统一转为大写，例如 C:\BackupOFS
TargetFolder=UCase(objDisk) & ":\BackupOFS"
' 若备份目录已存在则先删除，保证每次备份都是干净目录
If objFSO.FolderExists(TargetFolder)=TRUE Then objFSO.DeleteFolder(TargetFolder),TRUE
' 创建备份根目录
objFSO.CreateFolder TargetFolder
'Backup OFCData....
' 创建 Private 子目录，并复制客户端私有数据目录
objFSO.CreateFolder TargetFolder & "\Private"
objFSO.CopyFolder OFCPath & "\Private",TargetFolder & "\Private"
' 复制 OfficeScan 主配置文件 ofcscan.ini（TRUE 表示覆盖同名文件）
objFSO.CopyFile OFCPath & "\ofcscan.ini",TargetFolder & "\ofcscan.ini",TRUE
' 复制更新服务器配置文件 ous.ini
objFSO.CopyFile OFCPath & "\ous.ini",TargetFolder & "\ous.ini",TRUE
' 创建 Web 目录及其下的 tmOPP 子目录，并复制 tmOPP 内容
objFSO.CreateFolder TargetFolder & "\Web"
objFSO.CreateFolder TargetFolder & "\Web\tmOPP"
objFSO.CopyFolder OFCPath & "\Web\tmOPP",TargetFolder & "\Web\tmOPP"
' 创建 Pccnt\Common 目录，用于存放客户端公共数据
objFSO.CreateFolder TargetFolder & "\Pccnt"
objFSO.CreateFolder TargetFolder & "\Pccnt\Common\"
' 若存在防火墙策略数据 OfcPfw.dat，则一并备份
If objFSO.FileExists(OFCPath & "\Pccnt\Common\OfcPfw.dat") Then objFSO.CopyFile OFCPath & "\Pccnt\Common\OfcPfw.dat",TargetFolder & "\Pccnt\Common\OfcPfw.dat",TRUE
' 创建 Download 目录，并备份其中的 OfcPfw.dat（若存在）
objFSO.CreateFolder TargetFolder & "\Download"
If objFSO.FileExists(OFCPath & "\Download\OfcPfw.dat") Then objFSO.CopyFile OFCPath & "\Download\OfcPfw.dat",TargetFolder & "\Download\OfcPfw.dat",TRUE
' 创建 Log 目录，并复制日志数据
objFSO.CreateFolder TargetFolder & "\Log"
objFSO.CopyFolder OFCPath & "\Log",TargetFolder & "\Log"
' 创建 Virus 目录，并复制病毒码/隔离区数据
objFSO.CreateFolder TargetFolder & "\Virus"
objFSO.CopyFolder OFCPath & "\Virus",TargetFolder & "\Virus"
' 创建 HTTPDB 目录，并复制 Web 部署数据库
objFSO.CreateFolder TargetFolder & "\HTTPDB"
objFSO.CopyFolder OFCPath & "\HTTPDB",TargetFolder & "\HTTPDB"
' 输出备份完成提示，显示源路径与目标路径
Wscript.echo "Backup OFCData From <" & OFCPath & ">" & Chr(13) & " to Folder <" & TargetFolder & "> completed!"