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