Global $array[], $array2[], $c, $Value[]
SetOption(NoVarsInStrings, On)
SetOption(WrapAtEOL, On)
SetOption(NoMacrosinStrings,ON)
If Open(1,"c:\ScriptHome\Support\iplist.txt") = 0
$c=0
Use * "\\server\share" /user:"user" /password:"password"
$Drive = @Result
While @ERROR=0
ReDim Preserve $array[$c]
ReDim Preserve $array2[$c]
$line = ReadLine (1)
If $line <> ""
$Value = Split ($line,",")
$array[$c] = $Value[0]
$array2[$c] = $Value[1]
EndIf
$c=$c+1
Loop
Close(1)
$CUDate = SerialDate(@Date)
$C = 0
While $C <= UBound($Array)
$compare = Dir($Drive+"\"+$Array2[$c]+"\"+$Array[$c]+"\backup config\")
While $Compare<> "" And @Error = 0
$Filedate = GetFileTime($Drive+"\"+$Array2[$c]+"\"+$Array[$c]+"\backup config\"+$Compare)
$Filedate = Split($Filedate," ")
$Filedate = SerialDate($FileDate[0])
If $CUDate - $FileDate > 30
Del $Drive+"\"+$Array2[$c]+"\"+$Array[$c]+"\backup config\"+$Compare
EndIf
$Compare = Dir()
Loop
$C = $C + 1
Loop
$compare = Dir("c:\ScriptHome\Logs\tftp*.*")
While $Compare<> "" And @Error = 0
$Filedate = GetFileTime($Compare)
$Filedate = Split($Filedate," ")
$Filedate = SerialDate($FileDate[0])
If $CUDate - $FileDate > 30
Del "c:\ScriptHome\Logs\"+$Compare
EndIf
$Compare = Dir()
Loop
Use $Drive /delete
Function serialdate($ExpD)
Dim $z,$h,$a,$b,$c,$y,$m,$d
If InStr($ExpD,'/')
$ExpD=Split($ExpD,'/')
$y=Val($ExpD[0])
$m=Val($ExpD[1])
$d=Val($ExpD[2])
If $m<3
$m=$m+12
$y=$y-1
EndIf
$SerialDate=$d+(153*$m-457)/5+365*$y+$y/4-$y/100+$y/400-306
Else
$z=0+$ExpD+306
$h=100*$z-25
$a=$h/3652425
$b=$a-$a/4
$y=(100*$b+$h)/36525
$c=$b+$z-365*$y-$y/4
$m=(5*$c+456)/153
$d=$c-(153*$m-457)/5
If $m>12
$y=$y+1
$m=$m-12
EndIf
$SerialDate=Right('0000'+$y,4)+'/'+Right('00'+$m,2)+'/'+Right('00'+$d,2)
EndIf
EndFunction