Форум программистов [Powered by Invision Power Board]

Код

LogDirPath = "C:\Program Files\TrafInsp\Log\"
Set Args = WScript.Arguments.Unnamed
If Args.Count <> 1 Then
       WScript.Echo "??? usage: cscript.exe billing.vbs DaysAmount, ObjectType /sn:ServerName"        
       WScript.Quit        
End If
DayAm = CInt(Args(0))
Set fso = CreateObject("Scripting.FileSystemObject")
Set LogDir = fso.GetFolder(LogDirPath)
Set LogFolders = LogDir.SubFolders
For Each LFolder In LogFolders
       WScript.Echo LFolder.Name
       Set LogFiles = LFolder.Files
       For Each LFile In LogFiles
               If (LFile.DateLastModified < DateAdd("d",-DayAm,Date)) And (Right(LFile.Name,3) = "log") Then
                       FileRO = LFile.attributes And 1
                       If FileRO = 0 Then
                               WScript.Echo "  Обрабатывается " & LFile.Name & "  " & DateValue(LFile.DateLastModified) & "..."
                       LFile.APILogon(APIPass)
BillData = LFile.ApiGetBilling(ObjType, ObjID)
If Not IsArray(BillData) Then
      WScript.Echo "Нет данных"        
      WScript.Quit        
End If
If IsArray(BillData(0)) Then
       For I = 0 To UBound(BillData, 1)
               Data = BillData(I)
               WScript.Echo Data(0) & Chr(9) & Data(1) & Chr(9) & Data(2) & Chr(9) & Data(3) & Chr(9) & Data(4) & Chr(9) & Data(5)
       Next
Else
       WScript.Echo "login" & Chr(9) & BillData(0)
       WScript.Echo "recv" & Chr(9) & BillData(1)
       WScript.Echo "sent" & Chr(9) & BillData(2)
       WScript.Echo "starttime" & Chr(9) & BillData(3)
       WScript.Echo "stoptime" & Chr(9) & BillData(4)
       WScript.Echo "ipdest" & Chr(9) & BillData(5)
       WScript.Echo "ipsour" & Chr(9) & BillData(6)
       WScript.Echo "portsour" & Chr(9) & BillData(7)
       WScript.Echo "protocol" & Chr(9) & BillData(8)
       WScript.Echo "attributes" & Chr(9) & BillData(9)
End If
                       Else
                               WScript.Echo "  Невозможно обработать файл " & LFile.Name & "  " & DateValue(LFile.DateLastModified) & " - предназначен только для чтения."
                       End If
               End If
       Next
Next
WScript.Echo "Обработаны все логи до " & DateAdd("d",-DayAm,Date) & "."