1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76
77. 77
78. 78
79. 79
80. 80
81. 81
82. 82
83. 83
84. 84
85. 85
86. 86
87. 87
88. 88
89. 89
90. 90

'******************************************************************************'
'*  Скрипт предназначен для отправки файлов-логов типа *.acc на FTP в архиве  *'
'*                                                                            *'
'*  @param strPath - путь к папке, в которой находятся лог-файлы              *'
'*  @param strServerName - наименование или IP сервера FTP                    *'
'*  @param strFtpFolder - папка на FTP-сервере                                *'
'*  @param strZipExe - полный путь к файлу архиватору     (необязательный)    *'
'*  @param strFtpsExe - полный путь к файлу архиватору    (необязательный)    *'
'*  @param strTempFolder - Временная папка для файлов     (необязательный)    *'
'*                                                                            *'
'*  Параметры передаются в указанном порядке.                                 *'
'*  Пример. Записывает с одну строку:                                         *'
'*  cscript.exe me.vbs \\10.10.10.1\acssrv$\Log\ 10.10.10.2           *'
'*     out/portovaya "C:\Program Files\7-Zip\7z.exe" "D:\Service\ftps.exe"    *'
'*                                                                            *'
'******************************************************************************'

Dim strPath
Dim strServerName
Dim strFtpFolder
Dim strZipExe
Dim strFtpsExe
Dim strTempFolder
Dim args

'On Error Resume Next
strZipExe = "C:\Program Files\7-Zip\7z.exe"
strFtpsExe = "D:\Service\ftps.exe"
strTempFolder = "D:\LogTemp"

Set args = WScript.Arguments
For i = 0 to args.Count - 1
    Select Case i
		Case 0: strPath = args(i)		
		Case 1: strServerName = args(i)
		Case 2: strFtpFolder = args(i)
		Case 3: strZipExe = args(i)
		Case 4: strFtpsExe = args(i)
		Case 5: strTempFolder = args(i)
	End Select
Next 

RunSend strPath, strServerName, strFtpFolder, strZipExe, strFtpsExe, strTempFolder

Sub RunSend(strPath, strServerName, strFtpFolder, strZipExe, strFtpsExe, strTempFolder)
	Dim WshShell
	Dim WshExec
	Dim fso
	Dim fsoTs
	
	Set fso = CreateObject("Scripting.FileSystemObject")
	strPath = fso.GetAbsolutePathName(strPath)
	strTempFolder = fso.GetAbsolutePathName(strTempFolder)
	
	If Not fso.FileExists(strZipExe) Then WScript.Echo "File " & strZipExe & " not exist": Exit Sub
	If Not fso.FileExists(strFtpsExe) Then WScript.Echo "File " & strFtpsExe & " not exist": Exit Sub
	
	If Not fso.FolderExists(strTempFolder) Then fso.CreateFolder strTempFolder
	WScript.Echo "Copy files from " & strPath
	fso.CopyFile fso.BuildPath(strPath, "*.acc"), strTempFolder
	
	WScript.Echo "Create ftp parameters"
	strFtps = fso.BuildPath(strTempFolder, "ftps.txt")
	Set fsoTs = fso.OpenTextFile(strFtps, 2, True)
	fsoTs.WriteLine "open " & strServerName & " 21"
    fsoTs.WriteLine "anonymous"
    fsoTs.WriteBlankLines 1
    fsoTs.WriteLine "cd " & strFtpFolder
    fsoTs.WriteLine "binary"
    fsoTs.WriteLine "put " & fso.BuildPath(strTempFolder, "acclogs.zip")
    fsoTs.WriteLine "quit"
    fsoTs.Close
	
	WScript.Echo "Create main bat-file"
	strBat = fso.BuildPath(strTempFolder, "runzip.bat")
    Set fsoTs = fso.OpenTextFile(strBat, 2, True)
    fsoTs.WriteLine fso.GetDriveName(strTempFolder)
    fsoTs.WriteLine "cd " & strTempFolder
    fsoTs.WriteLine """" & strZipExe & """ a acclogs.zip *.acc"
    fsoTs.WriteLine """" & strFtpsExe & """ -a -s:" & strFtps
    fsoTs.Close
	
	WScript.Echo "Executing"
	Set WshShell = WScript.CreateObject("WScript.Shell")
	Set WshExec = WshShell.Exec(strBat)
	result = WshExec.StdOut.ReadAll
	WScript.Echo "Success"
	
	fso.DeleteFile fso.BuildPath(strTempFolder, "*.*")
End Sub