#76893 - 2003-09-27 10:49 AM
Enumerate remote files
|
Saleem
Hey THIS is FUN
Registered: 2001-04-11
Posts: 280
Loc: UAE
|
basically I want to delet old event log in all my servers centraly by running a script, I have written a script for that but it seems it is not enumerating files in remote servers. code:
$dt1=@date $x1 = SubStr($dt1, Len($dt1) - 9, 4) $x2 = SubStr($dt1, Len($dt1) - 4, 2) $x3 = SubStr($dt1, Len($dt1) - 1, 2) $result=$x1 + $x2 + $x3 ? $result $sub=Val($result) $sub1=$sub-7 ? $sub1
$dr=Dir("\\server\eventlog") While $dr <> "" AND @error = 0
$dt=GetFileTime ("\\server\eventlog\$dr") ? $dt $dttrm=Left("$dt",10) $y1 = SubStr($dttrm, Len($dttrm) - 9, 4) $y2 = SubStr($dttrm, Len($dttrm) - 4, 2) $y3 = SubStr($dttrm, Len($dttrm) - 1, 2) $result1=$y1 + $y2 + $y3 ? $result1
If ($result1 < $sub1) Del "\\server\eventlog\$dr" ? "less than 7 exist" EndIf $DR=Dir() Loop
any better idea to do this ??
_________________________
“I’ll not change you unless you don’t have intention to change yourself”
--H:Quran
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 259 anonymous users online.
|
|
|