如何备份日志到另外一台服务器?

tatty_bad 2008-06-20 08:30:43
我现在有很多服务器,其中一台是备份服务器..
我想实现把其他服务器的日志,每天备份到备份服务器上去.一个一个的手工弄实在是太麻烦了...请问怎么样做比较合理?

...全文
255 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
funsuzhou 2008-06-20
  • 打赏
  • 举报
回复
什么日志啊?
如果是要备份事件文件,可以备份C:\WINDOWS\System32\Config\×.evt
tatty_bad 2008-06-20
  • 打赏
  • 举报
回复
?????没有人能够告诉我吗?
tatty_bad 2008-06-20
  • 打赏
  • 举报
回复
那我能不能利用IIS来实现呢?
每个服务器上架一个IIS,用来获取日志.然后在备份服务器上访问,把数据远程拿过来?
空心兜兜 2008-06-20
  • 打赏
  • 举报
回复
除非是SQL SERVER那样的C/S模式,且有权限帐户
chenxdb 2008-06-20
  • 打赏
  • 举报
回复
'保存以下代碼為VBS腳本文件。雙擊就可實現日志備份,如果需要還可以建立job讓服務器自動執行。
'注意修改你要保存的服務器路徑及文件夾


dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
strBackupName = dtmThisYear & right("00" & dtmThisMonth,2) & right("00" & dtmThisDay,2)
strComputer = "."
dim Logname(3)
logname(1)="Application"
logname(2)="System"
logname(3)="Security"

set ws=createobject("wscript.shell")
ws.run "net use \\192.168.100\Backup\ /user:user password",0,ture

Set objNetwork = CreateObject("WScript.Network")
strLocalComputer = objNetwork.ComputerName


Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")

for i = 1 to 3

Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='" & logname(i) & "'" )

For Each objLogfile in colLogFiles
objLogFile.BackupEventLog("\\192.168.100\Backup\" & strLocalComputer & "_" & strBackupName & _
"_" & logname(i) & ".evt")

next
Set colLogFiles = nothing
Set objNetwork = nothing
Set ws = nothing
Next




ljc007 2008-06-20
  • 打赏
  • 举报
回复
如果有ftp,可以写个批处理自动通过ftp传上去。
如果没有ftp,可以开共享,通过xcopy或者xxcopy传上去。

6,868

社区成员

发帖
与我相关
我的任务
社区描述
Windows 2016/2012/2008/2003/2000/NT
社区管理员
  • Windows Server社区
  • qishine
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧