備份 eventlog

abdxj

  Option Explicit
9 b/ a9 Z1 {3 w# p' BACKUP & CLEAN EVENTLOG
( w. S& h5 `5 l" D' O' 清除功能 13:17 2005/4/7 www.msclub.org.cn7 x8 j8 U4 S# M* h7 f1 J0 c: \
' CC.HSIEH $ x% N) E# b7 B* E9 w
' 產生log 於\\fs\bklog\computername\log'*********dim*********: d! y" i; D( k3 ?2 N3 p* h* V
dim objShell,objNet,objFile- V8 D* ^/ c' n! Q4 h
dim strcomputer0 m2 e) T% A1 B; O* D# o: ?6 B
dim creatFol
+ `7 D7 D. W" v' O. u- w: odim strtoday ,stry,strm,strd3 _0 d2 u; O  Y" ]$ N. o
dim bklogfile,myfile4 q8 \9 @# Y- M. }
dim strSecity,strsize
/ H1 p; r; f) A1 F  `# pdim strSec56,strSecels
8 x% |6 \3 C# u+ o# Fdim evlogfiledrive,evlogpath,evlogtagdrive5 x7 J" m! N, ^$ F8 r
dim objWMIService,colLogFiles
, I8 O. r  R( v0 E$ m1 \& k8 ddim objLogfile,logname,size
6 k1 R7 m& L5 ^dim strBackupLog,strbak
* k8 a* `+ S( B! D0 e5 K9 O0 Q0 X! N7 p6 W, F
'*********set**********
( m8 v: q/ F1 m1 D# p1 j: ^  z
' u" }( i* e2 }Set objShell = CreateObject("WScript.Shell") 'vb shell系統
$ R9 d$ X4 I; a" g微软技术在线 您的潜力，我们的动力！Set objNet = CreateObject("WScript.NetWork") 'VB網路系統. k9 U2 Z3 E( ^* \8 H# D
Set objFile = CreateObject("Scripting.FileSystemObject") 'vb檔案系統; E) C- y( `% k2 ]
call ydatt '呼叫日期 8 o* X* ]& G8 ?7 k
strComputer = objNet.ComputerName
8 n# {/ j0 X5 d/ L微软技术在线 您的潜力，我们的动力！Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Backup, Security)}!\\" _' R; t) c5 q! N4 C0 j% d
& strComputer & "\root\cimv2") '使用wmi& O; F% R+ }* Z6 c
Set colLogFiles = objWMIService.ExecQuery("Select * from Win32_NTEventLogFile")
: _  W$ C8 m3 H2 X微软技术在线 您的潜力，我们的动力！- Z/ F( k0 B1 J( {
'*********edit*********
* t2 ?1 F' w0 D9 j% D0 ~evlogfiledrive = "\\logServer\bkeventlog"
& b6 s( [" I3 Y8 y$ Z( Ybklogfile= "\\logServer\vbjob\log\EVENTLOG\" & strComputer & ".CSV" '存檔區% x: u! G/ m; c- t2 i7 e7 q( j/ \( s
evlogtagdrive = evlogfiledrive & "\" & strComputer 'log存放區
# _; _. F% b" l3 f( swww.msclub.org.cnIf not objFile.FolderExists(evlogtagdrive) Then creatFol = objFile.CreateFolder(evlogtagdrive)
" e$ }1 @3 I% W5 Bevlogpath = evlogtagdrive & "\" & strtoday
+ k0 E9 M; e, C7 y3 L' n2 B* ?: Ywww.msclub.org.cnstrSecity = 30 '安全性大小
$ o! O0 r3 M! b  X9 r) j'******program********* 真正的程式# m( I4 A6 ?) L! U2 x+ x' J
call datfile
" [6 @5 e( n3 V/ ocall chkwork2 H) v) v& f+ }
call closefile
2 E: o+ j/ T: F7 j" p
9 c) ?* {( A* I6 w# x微软技术在线 您的潜力，我们的动力！'*********sub program*********副程式微软技术在线 您的潜力，我们的动力！8 A3 b3 d& f/ D9 }8 ]7 h
sub chkwork; H0 J- F0 I: C' |9 R" }+ W5 R6 G
For Each objLogfile in colLogFiles微软技术在线 您的潜力，我们的动力！$ {, S; o( D4 E8 {) R
if objLogFile.LogFileName = "Security" theN logname = "安全性"1 L' Q. G4 P# t0 m7 P( w. x* u- U
If logname = "安全性" then www.msclub.org.cn) U9 o( A) g- r6 _( _' n2 N
size = objLogFile.FileSize / 1024
7 P& y# [0 P; i6 g5 V5 Asize = size /1024* I& x: N$ y* L
myfile.Write strComputer & "," & size & "," & strm & "月" & strd & "日"www.msclub.org.cn( v5 E7 n' K! N
if size > strSecity then & o8 ~' S: Y3 x  m5 e# a# C
call backup
, u# P0 p% y: z# Y微软技术在线 您的潜力，我们的动力！call selcasfbk! \, m7 \) Y; z' `
else
* J& g7 I0 i- ^* @' ~  i, t9 vmyfile.Writeline ""/ Y( b" X( c: F
call closefile7 j! p( v/ i/ {& M8 f, v0 w. ]
wscript.quit
5 I; ^# Z1 |& V$ {" `5 fend if
% d5 Y2 V2 ~) ^3 U0 D- ]0 ^- aend if
) @: z6 _( b3 q' _/ [* z' z& [! \next 6 n/ T+ p) r2 F, Z* ~; F
end sub
' ?( Y2 G  A  f& f. j" ?# fsub datfile
2 R+ a9 H. Y5 `+ L微软技术在线 您的潜力，我们的动力！If not objFile.FileExists(bklogfile) Then& O0 |4 {% }# I; o! \3 L6 d' g
set myfile = objFile.CreateTextFile(bklogfile,True) 'True:OverWritewww.msclub.org.cn) t: B" i0 l% s
myfile.writeline "備份EVENTLOG,,檔案建立時間" & "," & strm & "月" & strd & "日" & ","
3 ^$ k8 R5 E6 ?$ D+ K0 \7 nmyfile.writeline "電腦名稱,安全性大小(M) ,執行日期 ,開始時間,結束時間,結果"% Q  c( k% z7 X# p# W, s  [
else
1 ~) ?7 V. M+ j8 S& _" eset myfile = objFile.OpenTextFile(bklogfile,8)
! G( E, z* _0 y  g: d6 swww.msclub.org.cnend if
! ?) u0 |% O4 x- [7 Z微软技术在线 您的潜力，我们的动力！end sub 微软技术在线 您的潜力，我们的动力！1 L8 {0 h) t( {1 Z- u/ C
; {; j  c7 @2 g8 S
sub backup& S: U( d* P, M& D
For Each objLogfile in colLogFiles
. V, I! s4 V' [5 [" Tsize = objLogFile.FileSize / 1024
- c. D2 `, C5 ?8 kif objLogFile.LogFileName = "System" then logname = "系統"www.msclub.org.cn1 Z: \! Y" V4 a8 W  U; ]. u3 u
if objLogFile.LogFileName = "DNS Server" then logname = "DNS"0 R5 d, [, `/ O+ U
if objLogFile.LogFileName = "Directory Service" then logname = "目錄服務"
4 ?7 x# g; W2 }( Q/ F1 F5 Pif objLogFile.LogFileName = "File Replication Service" then logname = "複寫"www.msclub.org.cn" K% f7 w- W  |
if objLogFile.LogFileName = "Application" then logname = "應用程式"# b. I; u7 c5 m$ L1 Y1 @
if objLogFile.LogFileName = "Security" then / l- u" _, {! F" w$ m
logname = "安全性"www.msclub.org.cn+ [0 }, |2 r" ^7 p/ n- Z/ X' D0 X
size = size / 1024
! f+ E; P+ e- u! k: M: s8 y( uMyFile.Write "," & TIME & ","
7 i0 R: |1 {  d) lend if微软技术在线 您的潜力，我们的动力！. }7 ?  C# b; N# B/ |
call bak
) e& R) p! l" C+ B+ x. Q) Gcall cleanwww.msclub.org.cn1 \8 P* F4 w- b+ [0 n% O
wscript.sleep 1000
: @8 p5 d1 U9 R1 Z4 {, xNext& J0 Q, n% ?6 y1 C( _4 w
end sub
" B/ `8 k5 R* ]* y. F2 h! ~www.msclub.org.cn
9 M; Z! }" ^  Dsub bak
" E- s* p# \1 HIf not objFile.FileExists(evlogpath & logname & ".evt") Then, ?0 W9 U% V. t& g; c9 T$ p! H% [, w
strBackupLog = objLogFile.BackupEventLog(evlogpath & logname & ".evt")www.msclub.org.cn. p1 O+ W, _& f" y- r' A$ ~' |
else
: Q6 y' S7 Q; W, b9 s- hMyFile.Writeline "," & "檔案已存在"
; @! j, C* _+ Z2 Qcall closefile
3 r2 ~6 n  f( ?; Z  Lwscript.quit
, A$ j! M1 x" ^* a* F8 qend if; J9 Q5 V2 z; h& k: M
end sub
: g$ l, N' p8 v( W3 a: d微软技术在线 您的潜力，我们的动力！/ @  ~; D" b& V6 _) I6 L; o
sub clean( |& g0 B+ [( h8 t/ W3 T
objLogFile.ClearEventLog()
4 H7 {$ j0 E2 p9 D, nend sub
; u2 r+ q9 q, I/ p" {+ Ywww.msclub.org.cn
9 Q  p7 g1 y4 g  d2 f7 A! ^, U微软技术在线 您的潜力，我们的动力！sub ydatt
% \! y4 }& f0 T4 [2 v微软技术在线 您的潜力，我们的动力！stry = DatePart("yyyy",Date())/ Q+ [- F, E: h5 |1 L8 ^
stry = mid(stry,3,2)
$ U0 K( C9 Z4 I$ O, i7 T
1 ]9 Y) v9 ?1 M* d- Zstrm = DatePart("m",Date())
- e; f$ M; V/ b) q9 }4 _www.msclub.org.cnIf len(trim(strm)) = 1 Then
' e5 s/ H9 c* K, w& y7 ?. qstrm = "0" & strm
+ \# j% M- x8 R6 O8 f( nend if
+ I' A' Y( Q- _1 H" ustrd = DatePart("d",Date())) G  @/ E; m4 x5 q& c
If len(trim(strd)) = 1 Then
  {. \: s* o/ f; u& i5 J微软技术在线 您的潜力，我们的动力！strd = "0" & strd7 E4 O1 {8 ^  A4 a
end if3 e* T& L( B6 q& A  i; t$ V3 ?
strtoday = stry & strm & strd ' call 日期
3 {7 d8 R( W6 ]% _) Y微软技术在线 您的潜力，我们的动力！end sub
3 ~+ S1 |! W' w1 X% ]5 ~/ s+ C5 G* b. B6 B* q+ U
sub selcasfbkwww.msclub.org.cn. _. e& ]7 W9 W
MyFile.Write TIME & ","  r" p, ?1 \- |) e; X/ d
select case strBackupLog; d; C+ x# {# J! x  S
case 0 ) t! C) Y: a4 g3 j
MyFile.Write "ok"
( T$ p& h, w& N" Qwww.msclub.org.cncase 183 www.msclub.org.cn% E5 j2 Z2 n! e. G' @- ^& P  t
MyFile.Write "檔案已存在"2 a* S9 _% x- @7 h2 {' X7 D" V* I
case else 8 m3 [, _& Y4 W4 D  g3 N
MyFile.Write "err" & vbtab & strBackupLog
! |0 k6 l' A1 cwww.msclub.org.cnend select
% g) F' |% h! B" o5 k$ S微软技术在线 您的潜力，我们的动力！MyFile.Writeline " "
# x5 K; w/ g5 M" p8 B5 P; Tend sub* H1 t- `0 O& f$ I/ v, x$ u. Z
sub closefile
- w- r$ I$ {" C7 t6 \( Smyfile.close
5 L" b- v; ~: d- `/ ?& Dend sub

mycarjob

好！