Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - ASP и VBScript

Страница: 1 |

 

  Вопрос: Помощь в сохранении файла Добавлено: 24.08.11 16:45  

Автор вопроса:  Олег
Мужики.
Проблема (собственно и задача).
Есть 6 файлов, которые хранятся на сервере.
Но так, что зайти на сервер и как файлы я их посмотреть не могу.
А если ввожу http://********/cdp/garant.crl, то выводится окошко, в котором предлагается открыть или сохранить этот файл!
Задача состоит в том, что проверить срок действия сертификатов и их доступность.
Всего 6 ссылок.

Какой командой в VBS можно это описать, чтобы он хотя бы мне на комп их сохранил, а дальше я бы сам парился с командой CERTUTIL. (Не знаю как, но погуглю)

________________________________________________________

У меня windows 7. Есть ли варианты использовать команды internetexplorer.application для поставленной задачи?

Код:

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://*******/cdp/garant.crl"
While objIE.Busy
 Wscript.Sleep 50
Wend
objIE.Visible = 1
'objIE.ExecWB 4, 2 'сохранение


Выдает ошибку в третьей строке, (но все равно перед этим выполняет открытие сертификата с сервера) так как после открытия .crl автоматически закрывается браузер и уже код ссылается на закрытый objIE.

Как сохранить crl?
Может сразу в файл при помощи certutil?

Ответить

  Ответы Всего ответов: 8  

Номер ответа: 1
Автор ответа:
 chialexus



ICQ: 321922 

Вопросов: 3
Ответов: 53
  Web-сайт: chialexus.narod.ru
 Профиль | | #1 		Добавлено: 26.08.11 00:09
Скачивание файла с HTTP-ресурса и сохранение его на локальном жёстком диске - http://forum.script-coding.com/viewtopic.php?id=40

Ответить

Номер ответа: 2
Автор ответа:
 Олег



Вопросов: 4
Ответов: 10
  Профиль | | #2 Добавлено: 26.08.11 14:43
Понимаю. Но в том то и дело, что сертификат просто так в txt не переведешь. Для этого нужна команда certutil. Я думал попробовать вот так через VBS :
  1. Set objShell = CreateObject("WScript.Shell")
  2. Set objScriptExec = objShell.Exec("%comspec% /" & "certutil c:\garant.crl > c:\textgarant.txt")


В таком случае он выводит только файл textgarant.txt пустым. А в командной строке он заполняет его всем тем, что выводится из сертификата посредством команды certutil.

Как можно использовать правильно certutil? Использую даже вот такой код:

  1. 'wget functionality in vbscript
  2. strFileURL = "http://garantexpress.ru/cdp/garant.crl"
  3. URL = Split(StrReverse(strFileURL), "/")
  4. basename = StrReverse(URL(0))
  5. wscript.echo "Downloadin1g " & basename
  6.  
  7. strHDLocation = "C:\" & basename
  8. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  9. objXMLHTTP.open "GET", strFileURL, false
  10. objXMLHTTP.send()
  11.  
  12. If objXMLHTTP.Status = 200 Then
  13.  Set objADOStream = CreateObject("ADODB.Stream")
  14.  objADOStream.Open
  15.  objADOStream.Type = 1 'adTypeBinary
  16.  objADOStream.Write objXMLHTTP.ResponseBody
  17.  objADOStream.Position = 0 'Set the stream position to the start
  18.  Set objFSO = Createobject("Scripting.FileSystemObject")
  19.    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  20.  Set objFSO = Nothing
  21.  objADOStream.SaveToFile strHDLocation
  22.  objADOStream.Close
  23.  Set objADOStream = Nothing
  24. End if
  25. Set objXMLHTTP = Nothing
  26.  
  27. 'The following code executes the downloaded file from a command shell (cmd.exe)
  28. Set objShell = CreateObject("WScript.Shell")
  29. Set objScriptExec = objShell.Exec("%comspec% /" & "certutil c:\garant.crl > c:\textgarant.txt")
  30. cmdOutput = objScriptExec.StdOut.ReadAll
  31. cmdErrOutput = objScriptExec.StdErr.ReadAll

Ответить

Номер ответа: 3
Автор ответа:
 Олег



Вопросов: 4
Ответов: 10
  Профиль | | #3 Добавлено: 02.09.11 14:50
РЕШИЛ. НО не все.

Вот код по скачиванию файла *.CRL, чтении и записи его в текстовый файл.

  1. strFileURL = "http://****************/garant.crl"
  2. URL = Split(StrReverse(strFileURL), "/")
  3. basename = "GE" & StrReverse(URL(0))
  4.  
  5. strHDLocation = "C:\scriptcheckcrl\" & basename
  6. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  7. objXMLHTTP.open "GET", strFileURL, false
  8. objXMLHTTP.send()
  9.  
  10. If objXMLHTTP.Status = 200 Then
  11.  Set objADOStream = CreateObject("ADODB.Stream")
  12.  objADOStream.Open
  13.  objADOStream.Type = 1 'adTypeBinary
  14.  objADOStream.Write objXMLHTTP.ResponseBody
  15.  objADOStream.Position = 0 'Set the stream position to the start
  16.  Set objFSO = Createobject("Scripting.FileSystemObject")
  17.    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  18.  Set objFSO = Nothing
  19.  objADOStream.SaveToFile strHDLocation
  20.  objADOStream.Close
  21.  Set objADOStream = Nothing
  22. End if
  23. Set objXMLHTTP = Nothing
  24.  
  25.  
  26. Set objShell = CreateObject("WScript.Shell")
  27. strCommand1 = "certutil -split c:\scriptcheckcrl\GEgarant.crl "
  28. Set objExec1 = objShell.Exec(strCommand1)
  29. While objExec1.Status = 0
  30.         WScript.Sleep 600
  31. Wend
  32. strOutput = Replace(objExec1.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
  33.  
  34. With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("GEgarant.txt", True)
  35.     .Write strOutput
  36.     .Close
  37. End With



Теперь есть другая проблема!!!

Надо найти строки :

  1.     Следующая публикация CRL
  2.         1 сентября 2011 г. 13:50:00


Строчка - "Следующая сертификация" выступает как ключ, от которого следующая строка и будет являться проверяемой.
Сравнить дату и время с нынешней.
(Брать 10 минут с запасом)
(Т.е. если в 13:59 - то нормально.Если 14:00 - то пишем, что просрочена)
(Придётся переводить текстовый формат даты в дату - не знаю как)
Если не просрочена или просрочена - отсылать соответствующее уведомление на почту.
(Скрипт будет запускаться каждые полчаса/час через планировщик задач).



Ответить

Номер ответа: 4
Автор ответа:
 Олег



Вопросов: 4
Ответов: 10
  Профиль | | #4 Добавлено: 06.09.11 12:37
Мужики.
Разобрался с друзьями.
Вот код.

На скачивание файла + обработку в txt + поиск по тексту + плюс перевод в дату + отсыл на почту.

  1. strFileURL = "http://********/garant.crl"
  2. URL = Split(StrReverse(strFileURL), "/")
  3. basename = "GE" & StrReverse(URL(0))
  4.  
  5. strHDLocation = "C:\scriptcheckcrl\" & basename
  6. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  7. objXMLHTTP.open "GET", strFileURL, false
  8. objXMLHTTP.send()
  9.  
  10. If objXMLHTTP.Status = 200 Then
  11.  Set objADOStream = CreateObject("ADODB.Stream")
  12.  objADOStream.Open
  13.  objADOStream.Type = 1 'adTypeBinary
  14.  objADOStream.Write objXMLHTTP.ResponseBody
  15.  objADOStream.Position = 0 'Set the stream position to the start
  16.  Set objFSO = Createobject("Scripting.FileSystemObject")
  17.    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  18.  Set objFSO = Nothing
  19.  objADOStream.SaveToFile strHDLocation
  20.  objADOStream.Close
  21.  Set objADOStream = Nothing
  22. End if
  23. Set objXMLHTTP = Nothing
  24.  
  25.  
  26. Set objShell = CreateObject("WScript.Shell")
  27. strCommand1 = "certutil -split c:\scriptcheckcrl\GEgarant.crl "
  28. Set objExec1 = objShell.Exec(strCommand1)
  29. While objExec1.Status = 0
  30.         WScript.Sleep 600
  31. Wend
  32. strOutput = Replace(objExec1.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
  33.  
  34. With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("GEgarant.txt", True)
  35.     .Write strOutput
  36.     .Close
  37. End With
  38.  
  39. '_____________________________________________________
  40.  
  41. strFileURL = "http://********/garant2.crl"
  42. URL = Split(StrReverse(strFileURL), "/")
  43. basename = "GE" & StrReverse(URL(0))
  44.  
  45. strHDLocation = "C:\scriptcheckcrl\" & basename
  46. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  47. objXMLHTTP.open "GET", strFileURL, false
  48. objXMLHTTP.send()
  49.  
  50. If objXMLHTTP.Status = 200 Then
  51.  Set objADOStream = CreateObject("ADODB.Stream")
  52.  objADOStream.Open
  53.  objADOStream.Type = 1 'adTypeBinary
  54.  objADOStream.Write objXMLHTTP.ResponseBody
  55.  objADOStream.Position = 0 'Set the stream position to the start
  56.  Set objFSO = Createobject("Scripting.FileSystemObject")
  57.    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  58.  Set objFSO = Nothing
  59.  objADOStream.SaveToFile strHDLocation
  60.  objADOStream.Close
  61.  Set objADOStream = Nothing
  62. End if
  63. Set objXMLHTTP = Nothing
  64.  
  65.  
  66. Set objShell = CreateObject("WScript.Shell")
  67. strCommand2 = "certutil -split C:\scriptcheckcrl\GEgarant2.crl "
  68. Set objExec2 = objShell.Exec(strCommand2)
  69. While objExec1.Status = 0
  70.         WScript.Sleep 20
  71. Wend
  72. strOutput = Replace(objExec2.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
  73.  
  74. With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("GEgarant2.txt", True)
  75.     .Write strOutput
  76.     .Close
  77. End With
  78.  
  79. '_____________________________________________________
  80.  
  81. strFileURL = "http://********/garant.crl"
  82. URL = Split(StrReverse(strFileURL), "/")
  83. basename = "CA1" & StrReverse(URL(0))
  84.  
  85. strHDLocation = "C:\scriptcheckcrl\" & basename
  86. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  87. objXMLHTTP.open "GET", strFileURL, false
  88. objXMLHTTP.send()
  89.  
  90. If objXMLHTTP.Status = 200 Then
  91.  Set objADOStream = CreateObject("ADODB.Stream")
  92.  objADOStream.Open
  93.  objADOStream.Type = 1 'adTypeBinary
  94.  objADOStream.Write objXMLHTTP.ResponseBody
  95.  objADOStream.Position = 0 'Set the stream position to the start
  96.  Set objFSO = Createobject("Scripting.FileSystemObject")
  97.    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  98.  Set objFSO = Nothing
  99.  objADOStream.SaveToFile strHDLocation
  100.  objADOStream.Close
  101.  Set objADOStream = Nothing
  102. End if
  103. Set objXMLHTTP = Nothing
  104.  
  105.  
  106. Set objShell = CreateObject("WScript.Shell")
  107. strCommand3 = "certutil -split C:\scriptcheckcrl\CA1garant.crl "
  108. Set objExec3 = objShell.Exec(strCommand3)
  109. While objExec1.Status = 0
  110.         WScript.Sleep 20
  111. Wend
  112. strOutput = Replace(objExec3.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
  113.  
  114. With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("CA1garant.txt", True)
  115.     .Write strOutput
  116.     .Close
  117. End With
  118.  
  119. '_____________________________________________________
  120.  
  121. strFileURL = "http://*******/garant2.crl"
  122. URL = Split(StrReverse(strFileURL), "/")
  123. basename = "CA1" & StrReverse(URL(0))
  124.  
  125. strHDLocation = "C:\scriptcheckcrl\" & basename
  126. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  127. objXMLHTTP.open "GET", strFileURL, false
  128. objXMLHTTP.send()
  129.  
  130. If objXMLHTTP.Status = 200 Then
  131.  Set objADOStream = CreateObject("ADODB.Stream")
  132.  objADOStream.Open
  133.  objADOStream.Type = 1 'adTypeBinary
  134.  objADOStream.Write objXMLHTTP.ResponseBody
  135.  objADOStream.Position = 0 'Set the stream position to the start
  136.  Set objFSO = Createobject("Scripting.FileSystemObject")
  137.    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  138.  Set objFSO = Nothing
  139.  objADOStream.SaveToFile strHDLocation
  140.  objADOStream.Close
  141.  Set objADOStream = Nothing
  142. End if
  143. Set objXMLHTTP = Nothing
  144.  
  145.  
  146. Set objShell = CreateObject("WScript.Shell")
  147. strCommand4 = "certutil -split C:\scriptcheckcrl\CA1garant2.crl "
  148. Set objExec4 = objShell.Exec(strCommand4)
  149. While objExec1.Status = 0
  150.         WScript.Sleep 20
  151. Wend
  152. strOutput = Replace(objExec4.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
  153.  
  154. With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("CA1garant2.txt", True)
  155.     .Write strOutput
  156.     .Close
  157. End With
  158.  
  159. '_____________________________________________________
  160.  
  161. strFileURL = "********/garant.crl"
  162. URL = Split(StrReverse(strFileURL), "/")
  163. basename = "CA2" & StrReverse(URL(0))
  164.  
  165. strHDLocation = "C:\scriptcheckcrl\" & basename
  166. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  167. objXMLHTTP.open "GET", strFileURL, false
  168. objXMLHTTP.send()
  169.  
  170. If objXMLHTTP.Status = 200 Then
  171.  Set objADOStream = CreateObject("ADODB.Stream")
  172.  objADOStream.Open
  173.  objADOStream.Type = 1 'adTypeBinary
  174.  objADOStream.Write objXMLHTTP.ResponseBody
  175.  objADOStream.Position = 0 'Set the stream position to the start
  176.  Set objFSO = Createobject("Scripting.FileSystemObject")
  177.    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  178.  Set objFSO = Nothing
  179.  objADOStream.SaveToFile strHDLocation
  180.  objADOStream.Close
  181.  Set objADOStream = Nothing
  182. End if
  183. Set objXMLHTTP = Nothing
  184.  
  185.  
  186. Set objShell = CreateObject("WScript.Shell")
  187. strCommand5 = "certutil -split C:\scriptcheckcrl\CA2garant.crl "
  188. Set objExec5 = objShell.Exec(strCommand5)
  189. While objExec1.Status = 0
  190.         WScript.Sleep 20
  191. Wend
  192. strOutput = Replace(objExec5.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
  193.  
  194. With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("CA2garant.txt", True)
  195.     .Write strOutput
  196.     .Close
  197. End With
  198.  
  199. '_____________________________________________________
  200.  
  201. strFileURL = "http://********/garant2.crl"
  202. URL = Split(StrReverse(strFileURL), "/")
  203. basename = "CA2" & StrReverse(URL(0))
  204.  
  205. strHDLocation = "C:\scriptcheckcrl\" & basename
  206. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  207. objXMLHTTP.open "GET", strFileURL, false
  208. objXMLHTTP.send()
  209.  
  210. If objXMLHTTP.Status = 200 Then
  211.  Set objADOStream = CreateObject("ADODB.Stream")
  212.  objADOStream.Open
  213.  objADOStream.Type = 1 'adTypeBinary
  214.  objADOStream.Write objXMLHTTP.ResponseBody
  215.  objADOStream.Position = 0 'Set the stream position to the start
  216.  Set objFSO = Createobject("Scripting.FileSystemObject")
  217.    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  218.  Set objFSO = Nothing
  219.  objADOStream.SaveToFile strHDLocation
  220.  objADOStream.Close
  221.  Set objADOStream = Nothing
  222. End if
  223. Set objXMLHTTP = Nothing
  224.  
  225.  
  226. Set objShell = CreateObject("WScript.Shell")
  227. strCommand6 = "certutil -split C:\scriptcheckcrl\CA2garant2.crl "
  228. Set objExec6 = objShell.Exec(strCommand6)
  229. While objExec1.Status = 0
  230.         WScript.Sleep 20
  231. Wend
  232. strOutput = Replace(objExec6.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
  233.  
  234. With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("CA2garant2.txt", True)
  235.     .Write strOutput
  236.     .Close
  237. End With
  238.  
  239. '____________________________________________________________________________
  240.  
  241. Dim fName_1
  242. Dim fName_2
  243. Dim fName_3
  244. Dim fName_4
  245. Dim fName_5
  246. Dim fName_6
  247. Dim objFSO_1
  248. Dim txtFile_1
  249. Dim txtFile_2
  250. Dim txtFile_3
  251. Dim txtFile_4
  252. Dim txtFile_5
  253. Dim txtFile_6
  254. Dim strLine_1
  255. Dim strLine_2
  256. Dim strLine_3
  257. Dim strLine_4
  258. Dim strLine_5
  259. Dim strLine_6
  260. Dim strMsg
  261. Dim strMsg_1
  262. Dim strMsg_2
  263. Dim strMsg_3
  264. Dim strMsg_4
  265. Dim strMsg_5
  266. Dim strMsg_6
  267. Dim objCDO_1
  268. Dim Conf_1
  269.  
  270. fName_1 = "c:\scriptcheckcrl\GEgarant.txt"
  271. fName_2 = "c:\scriptcheckcrl\GEgarant2.txt"
  272. fName_3 = "c:\scriptcheckcrl\CA1garant.txt"
  273. fName_4 = "c:\scriptcheckcrl\CA1garant2.txt"
  274. fName_5 = "c:\scriptcheckcrl\CA2garant.txt"
  275. fName_6 = "c:\scriptcheckcrl\CA2garant2.txt"
  276.  
  277. Set objFSO_1= WScript.CreateObject("Scripting.FileSystemObject")
  278. Set txtFile_1 = objFSO_1.OpenTextFile(fName_1)
  279.  
  280. Do While Not txtFile_1.AtEndOfStream
  281.     If InStr(txtFile_1.ReadLine, "Следующая публикация CRL") Then
  282.       strLine_1 = txtFile_1.ReadLine
  283.       Exit Do
  284.     End If
  285. Loop
  286.  
  287. txtFile_1.Close
  288.  
  289. Set objFSO_2= WScript.CreateObject("Scripting.FileSystemObject")
  290. Set txtFile_2 = objFSO_2.OpenTextFile(fName_2)
  291.  
  292. Do While Not txtFile_2.AtEndOfStream
  293.     If InStr(txtFile_2.ReadLine, "Следующая публикация CRL") Then
  294.       strLine_2 = txtFile_2.ReadLine
  295.       Exit Do
  296.     End If
  297. Loop
  298.  
  299. txtFile_2.Close
  300.  
  301. Set objFSO_3= WScript.CreateObject("Scripting.FileSystemObject")
  302. Set txtFile_3 = objFSO_3.OpenTextFile(fName_3)
  303.  
  304. Do While Not txtFile_3.AtEndOfStream
  305.     If InStr(txtFile_3.ReadLine, "Следующая публикация CRL") Then
  306.       strLine_3 = txtFile_3.ReadLine
  307.       Exit Do
  308.     End If
  309. Loop
  310.  
  311. txtFile_3.Close
  312.  
  313. Set objFSO_4= WScript.CreateObject("Scripting.FileSystemObject")
  314. Set txtFile_4 = objFSO_4.OpenTextFile(fName_4)
  315.  
  316. Do While Not txtFile_4.AtEndOfStream
  317.     If InStr(txtFile_4.ReadLine, "Следующая публикация CRL") Then
  318.       strLine_4 = txtFile_4.ReadLine
  319.       Exit Do
  320.     End If
  321. Loop
  322.  
  323. txtFile_4.Close
  324.  
  325. Set objFSO_5= WScript.CreateObject("Scripting.FileSystemObject")
  326. Set txtFile_5 = objFSO_5.OpenTextFile(fName_5)
  327.  
  328. Do While Not txtFile_5.AtEndOfStream
  329.     If InStr(txtFile_5.ReadLine, "Следующая публикация CRL") Then
  330.       strLine_5 = txtFile_5.ReadLine
  331.       Exit Do
  332.     End If
  333. Loop
  334.  
  335. txtFile_5.Close
  336.  
  337. Set objFSO_6= WScript.CreateObject("Scripting.FileSystemObject")
  338. Set txtFile_6 = objFSO_6.OpenTextFile(fName_6)
  339.  
  340. Do While Not txtFile_6.AtEndOfStream
  341.     If InStr(txtFile_6.ReadLine, "Следующая публикация CRL") Then
  342.       strLine_6 = txtFile_6.ReadLine
  343.       Exit Do
  344.     End If
  345. Loop
  346.  
  347. txtFile_6.Close
  348.  
  349.  
  350. If DateDiff("n", CDate(Replace(strLine_1, "г.", "")), Now) > 9 Then
  351.   strMsg_1 = "Просрочена"
  352. Else
  353.   strMsg_1 = "Не просрочена"
  354. End If
  355.  
  356. If DateDiff("n", CDate(Replace(strLine_2, "г.", "")), Now) > 9 Then
  357.   strMsg_2 = "Просрочена"
  358. Else
  359.   strMsg_2 = "Не просрочена"
  360. End If
  361.  
  362. If DateDiff("n", CDate(Replace(strLine_3, "г.", "")), Now) > 9 Then
  363.   strMsg_3 = "Просрочена"
  364. Else
  365.   strMsg_3 = "Не просрочена"
  366. End If
  367.  
  368. If DateDiff("n", CDate(Replace(strLine_4, "г.", "")), Now) > 9 Then
  369.   strMsg_4 = "Просрочена"
  370. Else
  371.   strMsg_4 = "Не просрочена"
  372. End If
  373.  
  374. If DateDiff("n", CDate(Replace(strLine_5, "г.", "")), Now) > 9 Then
  375.   strMsg_5 = "Просрочена"
  376. Else
  377.   strMsg_5 = "Не просрочена"
  378. End If
  379.  
  380. If DateDiff("n", CDate(Replace(strLine_6, "г.", "")), Now) > 9 Then
  381.   strMsg_6 = "Просрочена"
  382. Else
  383.   strMsg_6 = "Не просрочена"
  384. End If
  385.  
  386. If (strMsg_1 = "Не просрочена") and (strMsg_2 = "Не просрочена") and (strMsg_3 = "Не просрочена") and (strMsg_4 = "Не просрочена") and (strMsg_5 = "Не просрочена") and (strMsg_6 = "Не просрочена") then
  387. strMsg = "Не просрочена"
  388. Else
  389. strMsg = "Просрочена"
  390. End If
  391.  
  392.  
  393. Set objCDO_1 = WScript.CreateObject("CDO.Message")
  394.  
  395. objCDO_1.From = "От кого"    
  396. objCDO_1.To = "Кому, Кому1"
  397. objCDO_1.Subject = "Проверка CRL"
  398. objCDO_1.HTMLBody = strMsg
  399.  
  400. Set Conf_1 = objCDO_1.Configuration
  401.   Conf_1("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    
  402.   Conf_1("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp сервер"
  403. '  Conf_1("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  404.   Conf_1("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
  405.  ' Conf_1("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Логин"
  406.  ' Conf_1("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Пароль"
  407.   Conf_1("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  408. Conf_1.Fields.Update
  409.  
  410. objCDO_1.Send
  411.  
  412. Set objFSO_1 = Nothing
  413. Set objCDO_1 = Nothing
  414.  
  415. WScript.Quit



Теперь осталось его красиво упаковать в процедуры.

Помогите, товарищи =)

Ответить

Номер ответа: 5
Автор ответа:
 Олег



Вопросов: 4
Ответов: 10
  Профиль | | #5 Добавлено: 07.09.11 16:52
Люди =) Вторую часть упаковал в процедуры (После кода, который скачивает и преобразовывает файлы в *.txt).

Вроде получилось так:

  1. '____________________________________________________________________________
  2.  
  3. Dim fName_1
  4. Dim fName_2
  5. Dim fName_3
  6. Dim fName_4
  7. Dim fName_5
  8. Dim fName_6
  9. Dim objFSO
  10. Dim txtFile
  11. Dim strMsg
  12. Dim strMsg_1
  13. Dim strMsg_2
  14. Dim strMsg_3
  15. Dim strMsg_4
  16. Dim strMsg_5
  17. Dim strMsg_6
  18. Dim STR
  19. Dim STR1
  20. Dim STR2
  21. Dim STR3
  22. Dim STR4
  23. Dim STR5
  24. Dim STR6
  25. Dim objCDO
  26. Dim Conf
  27.  
  28. fName_1 = "c:\scriptcheckcrl\GEgarant.txt"
  29. fName_2 = "c:\scriptcheckcrl\GEgarant2.txt"
  30. fName_3 = "c:\scriptcheckcrl\CA1garant.txt"
  31. fName_4 = "c:\scriptcheckcrl\CA1garant2.txt"
  32. fName_5 = "c:\scriptcheckcrl\CA2garant.txt"
  33. fName_6 = "c:\scriptcheckcrl\CA2garant2.txt"
  34.  
  35. Set objFSO= WScript.CreateObject("Scripting.FileSystemObject")
  36.  
  37. '_____________!!!!!!!!ФУНКЦИЯ НАХОЖДЕНИЯ СТРОКИ С ДАТОЙ
  38.  
  39. Function ReadLineTXT(FileName)
  40.    Set txtFile = objFSO.OpenTextFile(FileName)
  41.        Do While Not txtFile.AtEndOfStream
  42.           If InStr(txtFile.ReadLine, "Следующая публикация CRL") Then
  43.               ReadLineTXT = txtFile.ReadLine
  44.        Exit Do
  45.           End If
  46.        Loop
  47.    txtFile.Close
  48.   
  49. End Function
  50.  
  51. STR1=ReadLineTXT(fName_1)
  52. STR2=ReadLineTXT(fName_2)
  53. STR3=ReadLineTXT(fName_3)
  54. STR4=ReadLineTXT(fName_4)
  55. STR5=ReadLineTXT(fName_5)
  56. STR6=ReadLineTXT(fName_6)
  57.  
  58. '_____________!!!!!!!!ФУНКЦИЯ СРАВНЕНИЯ ДАТЫ В ФАЙЛЕ С ТЕКУЩЕЙ
  59.  
  60. Function SMS(STR)
  61.    If DateDiff("n", CDate(Replace(STR, "г.", "")), Now) > 9 Then
  62.       SMS = "Просрочена"
  63.    Else
  64.       SMS = "Не просрочена"
  65.    End If
  66. End function
  67.  
  68. strMsg_1=SMS(STR1)
  69. strMsg_2=SMS(STR2)
  70. strMsg_3=SMS(STR3)
  71. strMsg_4=SMS(STR4)
  72. strMsg_5=SMS(STR5)
  73. strMsg_6=SMS(STR6)
  74.  
  75. '_____________!!!!!!!!СРАВНЕНИЕ СТАТУСОВ КАЖДОГО ФАЙЛА
  76.  
  77. If (strMsg_1 = "Не просрочена") and (strMsg_2 = "Не просрочена") and (strMsg_3 = "Не просрочена") and (strMsg_4 = "Не просрочена") and (strMsg_5 = "Не просрочена") and (strMsg_6 = "Не просрочена") then
  78. strMsg = "Не просрочена"
  79. Else
  80. strMsg = "Просрочена"
  81. End If
  82.  
  83.  
  84. '_____________!!!!!!!!СООБЩЕНИЕ НА ПОЧТОВЫЙ ЯЩИК
  85.  
  86.  
  87. Set objCDO = WScript.CreateObject("CDO.Message")
  88.  
  89. objCDO.From = "aparin@garant.ru"    
  90. objCDO.To = "aparin@garant.ru"
  91. objCDO.Subject = "Проверка CRL"
  92. objCDO.HTMLBody = strMsg
  93.  
  94. Set Conf = objCDO.Configuration
  95.   Conf("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    
  96.   Conf("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-np.garant.ru"
  97. '  Conf("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  98.   Conf("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
  99.  ' Conf("http://schemas.microsoft.com/cdo/configuration/sendusername") = "aparin"
  100.  ' Conf("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "CHIPSET37_A"
  101.   Conf("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  102. Conf.Fields.Update
  103.  
  104. objCDO.Send
  105.  
  106. Set objFSO = Nothing
  107. Set objCDO = Nothing
  108.  
  109. WScript.Quit



Теперь хочу первую половину добить.

Пишу процедуру, так как она все равно ничего не возвращает.(Если не ошибаюсь)

  1.  
  2.  
  3. SAVEFILE ("http://garantexpress.ru/cdp/garant.crl", "GE", "certutil -split c:\scriptcheckcrl\GEgarant.crl", "GEgarant.txt")
  4. SAVEFILE ("http://garantexpress.ru/cdp/garant2.crl", "GE", "certutil -split c:\scriptcheckcrl\GEgarant2.crl", "GEgarant2.txt")
  5. SAVEFILE ("http://ca.garant.ru/cdp/garant.crl", "CA1", "certutil -split c:\scriptcheckcrl\CA1garant.crl", "CA1garant.txt")
  6. SAVEFILE ("http://ca.garant.ru/cdp/garant2.crl", "CA1", "certutil -split c:\scriptcheckcrl\CA1garant2.crl", "CA1garant2.txt")
  7. SAVEFILE ("http://ca.garant.ru/cdp2/garant.crl", "CA2", "certutil -split c:\scriptcheckcrl\CA2garant.crl", "CA2garant.txt")
  8. SAVEFILE ("http://ca.garant.ru/cdp2/garant2.crl", "CA2", "certutil -split c:\scriptcheckcrl\CA2garant2.crl", "CA2garant2.txt")
  9.  
  10. Sub SAVEFILE(URL1, Base_Name, Command, TXT)
  11. strFileURL = URL1
  12. URL = Split(StrReverse(strFileURL), "/")
  13. basename = Base_Name & StrReverse(URL(0))
  14.  
  15. strHDLocation = "C:\scriptcheckcrl\" & basename
  16. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  17. objXMLHTTP.open "GET", strFileURL, false
  18. objXMLHTTP.send()
  19.  
  20. If objXMLHTTP.Status = 200 Then
  21.  Set objADOStream = CreateObject("ADODB.Stream")
  22.  objADOStream.Open
  23.  objADOStream.Type = 1 'adTypeBinary
  24.  objADOStream.Write objXMLHTTP.ResponseBody
  25.  objADOStream.Position = 0 'Set the stream position to the start
  26.  Set objFSO = Createobject("Scripting.FileSystemObject")
  27.    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  28.  Set objFSO = Nothing
  29.  objADOStream.SaveToFile strHDLocation
  30.  objADOStream.Close
  31.  Set objADOStream = Nothing
  32. End if
  33. Set objXMLHTTP = Nothing
  34.  
  35.  
  36. Set objShell = CreateObject("WScript.Shell")
  37. strCommand1 = Command
  38. Set objExec1 = objShell.Exec(strCommand1)
  39. While objExec1.Status = 0
  40.         WScript.Sleep 20
  41. Wend
  42. strOutput = Replace(objExec1.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
  43.  
  44. With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile(TXT, True)
  45.     .Write strOutput
  46.     .Close
  47. End With
  48.  
  49. End Sub
  50.  
  51. SAVEFILE ("http://garantexpress.ru/cdp/garant.crl", "GE", "certutil -split c:\scriptcheckcrl\GEgarant.crl", "GEgarant.txt")
  52. SAVEFILE ("http://garantexpress.ru/cdp/garant2.crl", "GE", "certutil -split c:\scriptcheckcrl\GEgarant2.crl", "GEgarant2.txt")
  53. SAVEFILE ("http://ca.garant.ru/cdp/garant.crl", "CA1", "certutil -split c:\scriptcheckcrl\CA1garant.crl", "CA1garant.txt")
  54. SAVEFILE ("http://ca.garant.ru/cdp/garant2.crl", "CA1", "certutil -split c:\scriptcheckcrl\CA1garant2.crl", "CA1garant2.txt")
  55. SAVEFILE ("http://ca.garant.ru/cdp2/garant.crl", "CA2", "certutil -split c:\scriptcheckcrl\CA2garant.crl", "CA2garant.txt")
  56. SAVEFILE ("http://ca.garant.ru/cdp2/garant2.crl", "CA2", "certutil -split c:\scriptcheckcrl\CA2garant2.crl", "CA2garant2.txt")
  57.  
  58.  



Ошибку выдает на последнюю скобку первого запуска процедуры. В чем ошибка у меня?

Ответить

Номер ответа: 6
Автор ответа:
 Millenium



ICQ: 629966 

Вопросов: 118
Ответов: 903
  Web-сайт: www.aliyev.us
 Профиль | | #6 		Добавлено: 08.09.11 08:44
Думаю что, не сохранив файл в локалке, сертификат не проверишь. А так, у майкрософта была своя утилка, которая могрла проверять онлайн сертификаты. Вспомню. Напишу.

Ответить

Номер ответа: 7
Автор ответа:
 Олег



Вопросов: 4
Ответов: 10
  Профиль | | #7 Добавлено: 08.09.11 10:31
ПОЛУЧИЛОСЬ СДЕЛАТЬ НАЧАЛО В ПРОЦЕДУРУ!

Надо было скобки убрать из SUB в начале.


  1. SAVEFILE "http://garantexpress.ru/cdp/garant.crl", "GE", "certutil -split c:\scriptcheckcrl\GEgarant.crl", objExec1, "GEgarant.txt"
  2. SAVEFILE "http://garantexpress.ru/cdp/garant2.crl", "GE", "certutil -split c:\scriptcheckcrl\GEgarant2.crl", objExec2, "GEgarant2.txt"
  3. SAVEFILE "http://ca.garant.ru/cdp/garant.crl", "CA1", "certutil -split c:\scriptcheckcrl\CA1garant.crl", objExec3, "CA1garant.txt"
  4. SAVEFILE "http://ca.garant.ru/cdp/garant2.crl", "CA1", "certutil -split c:\scriptcheckcrl\CA1garant2.crl", objExec4, "CA1garant2.txt"
  5. SAVEFILE "http://ca.garant.ru/cdp2/garant.crl", "CA2", "certutil -split c:\scriptcheckcrl\CA2garant.crl", objExec5, "CA2garant.txt"
  6. SAVEFILE "http://ca.garant.ru/cdp2/garant2.crl", "CA2", "certutil -split c:\scriptcheckcrl\CA2garant2.crl", objExec6, "CA2garant2.txt"
  7.  
  8. Sub SAVEFILE(URL1, Base_Name, Command, OBJ1, TXT)
  9.  
  10. strFileURL = URL1
  11. URL = Split(StrReverse(strFileURL), "/")
  12. basename = Base_Name & StrReverse(URL(0))
  13.  
  14. strHDLocation = "C:\scriptcheckcrl\" & basename
  15. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  16. objXMLHTTP.open "GET", strFileURL, false
  17. objXMLHTTP.send()
  18.  
  19. If objXMLHTTP.Status = 200 Then
  20.  Set objADOStream = CreateObject("ADODB.Stream")
  21.  objADOStream.Open
  22.  objADOStream.Type = 1 'adTypeBinary
  23.  objADOStream.Write objXMLHTTP.ResponseBody
  24.  objADOStream.Position = 0 'Set the stream position to the start
  25.  Set objFSO = Createobject("Scripting.FileSystemObject")
  26.    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  27.  Set objFSO = Nothing
  28.  objADOStream.SaveToFile strHDLocation
  29.  objADOStream.Close
  30.  Set objADOStream = Nothing
  31. End if
  32. Set objXMLHTTP = Nothing
  33.  
  34.  
  35. Set objShell = CreateObject("WScript.Shell")
  36. strCommand1 = Command
  37. Set OBJ1 = objShell.Exec(strCommand1)
  38. While objExec1.Status = 0
  39.         WScript.Sleep 20
  40. Wend
  41. strOutput = Replace(OBJ1.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
  42.  
  43. With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile(TXT, True)
  44.     .Write strOutput
  45.     .Close
  46. End With
  47.  
  48. End Sub



Начало работает отлично!

Тут я ошибся с концом! Почему то ошибку выдает:

  1. STR1=ReadLineTXT(fName_1)
  2.  
  3. STR2=ReadLineTXT(fName_2)
  4.  
  5. STR3=ReadLineTXT(fName_3)
  6.  
  7. STR4=ReadLineTXT(fName_4)
  8.  
  9. STR5=ReadLineTXT(fName_5)
  10.  
  11. STR6=ReadLineTXT(fName_6)
  12.  
  13.   
  14. '_____________!!!!!!!!ФУНКЦИЯ СРАВНЕНИЯ ДАТЫ В ФАЙЛЕ С ТЕКУЩЕЙ
  15.  
  16.   
  17. Function SMS(STR)
  18.  
  19.    If DateDiff("n", CDate(Replace(STR, "г.", "")), Now) > 9 Then  ' ТУТ выдает ОШИБКУ! ОБЪЯСНИТЕ!
  20.  
  21.       SMS = "Просрочена"
  22.  
  23.    Else
  24.  
  25.       SMS = "Не просрочена"
  26.  
  27.    End If
  28.  
  29. End function
  30.  
  31.   
  32. strMsg_1=SMS(STR1)
  33.  
  34. strMsg_2=SMS(STR2)
  35.  
  36. strMsg_3=SMS(STR3)
  37.  
  38. strMsg_4=SMS(STR4)
  39.  
  40. strMsg_5=SMS(STR5)
  41.  
  42. strMsg_6=SMS(STR6)


В чем там при цикле может быть ошибка?
Говорит про Cdate. Можете попробовать мой код.

А вот так работает нормально!

  1. If DateDiff("n", CDate(Replace(strLine_1, "г.", "")), Now) > 9 Then
  2.  
  3.   strMsg_1 = "Просрочена"
  4.  
  5. Else
  6.  
  7.   strMsg_1 = "Не просрочена"
  8.  
  9. End If
  10.  
  11.   
  12. If DateDiff("n", CDate(Replace(strLine_2, "г.", "")), Now) > 9 Then
  13.  
  14.   strMsg_2 = "Просрочена"
  15.  
  16. Else
  17.  
  18.   strMsg_2 = "Не просрочена"
  19.  
  20. End If
  21.  
  22.   
  23. If DateDiff("n", CDate(Replace(strLine_3, "г.", "")), Now) > 9 Then
  24.  
  25.   strMsg_3 = "Просрочена"
  26.  
  27. Else
  28.  
  29.   strMsg_3 = "Не просрочена"
  30.  
  31. End If
  32.  
  33.   
  34. If DateDiff("n", CDate(Replace(strLine_4, "г.", "")), Now) > 9 Then
  35.  
  36.   strMsg_4 = "Просрочена"
  37.  
  38. Else
  39.  
  40.   strMsg_4 = "Не просрочена"
  41.  
  42. End If
  43.  
  44.   
  45. If DateDiff("n", CDate(Replace(strLine_5, "г.", "")), Now) > 9 Then
  46.  
  47.   strMsg_5 = "Просрочена"
  48.  
  49. Else
  50.  
  51.   strMsg_5 = "Не просрочена"
  52.  
  53. End If
  54.  
  55.   
  56. If DateDiff("n", CDate(Replace(strLine_6, "г.", "")), Now) > 9 Then
  57.  
  58.   strMsg_6 = "Просрочена"
  59.  
  60. Else
  61.  
  62.   strMsg_6 = "Не просрочена"
  63.  
  64. End If
  65.  

Ответить

Номер ответа: 8
Автор ответа:
 Олег



Вопросов: 4
Ответов: 10
  Профиль | | #8 Добавлено: 09.09.11 14:29
УРА!!! СПАСИБО ВСЕМ!
ВСЁ РАБОТАЕТ!!!
ВОТ ХОРОШИЙ код.

  1. SAVEFILE "http://*****1/garant.crl", "GE", "certutil -split c:\scriptcheckcrl\GEgarant.crl", objExec1, "GEgarant.txt"
  2. SAVEFILE "http://*****1/garant2.crl", "GE", "certutil -split c:\scriptcheckcrl\GEgarant2.crl", objExec2, "GEgarant2.txt"
  3. SAVEFILE "http://*****2/garant.crl", "CA1", "certutil -split c:\scriptcheckcrl\CA1garant.crl", objExec3, "CA1garant.txt"
  4. SAVEFILE "http://*****2/garant2.crl", "CA1", "certutil -split c:\scriptcheckcrl\CA1garant2.crl", objExec4, "CA1garant2.txt"
  5. SAVEFILE "http://*****3/garant.crl", "CA2", "certutil -split c:\scriptcheckcrl\CA2garant.crl", objExec5, "CA2garant.txt"
  6. SAVEFILE "http://*****3/garant2.crl", "CA2", "certutil -split c:\scriptcheckcrl\CA2garant2.crl", objExec6, "CA2garant2.txt"
  7.  
  8.  
  9. '__________Процедура на скачивание и на преобразование CRL в TXT
  10.  
  11. Sub SAVEFILE(URL1, Base_Name, Command, OBJ1, TXT)
  12.  
  13. strFileURL = URL1
  14. URL = Split(StrReverse(strFileURL), "/")
  15. basename = Base_Name & StrReverse(URL(0))
  16.  
  17. strHDLocation = "C:\scriptcheckcrl\" & basename
  18. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  19. objXMLHTTP.open "GET", strFileURL, false
  20. objXMLHTTP.send()
  21.  
  22. If objXMLHTTP.Status = 200 Then
  23.  Set objADOStream = CreateObject("ADODB.Stream")
  24.  objADOStream.Open
  25.  objADOStream.Type = 1 'adTypeBinary
  26.  objADOStream.Write objXMLHTTP.ResponseBody
  27.  objADOStream.Position = 0 'Set the stream position to the start
  28.  Set objFSO = Createobject("Scripting.FileSystemObject")
  29.    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  30.  Set objFSO = Nothing
  31.  objADOStream.SaveToFile strHDLocation
  32.  objADOStream.Close
  33.  Set objADOStream = Nothing
  34. End if
  35. Set objXMLHTTP = Nothing
  36.  
  37.  
  38. Set objShell = CreateObject("WScript.Shell")
  39. strCommand1 = Command
  40. Set OBJ1 = objShell.Exec(strCommand1)
  41. While objExec1.Status = 0
  42.         WScript.Sleep 20
  43. Wend
  44. strOutput = Replace(OBJ1.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
  45.  
  46. With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile(TXT, True)
  47.     .Write strOutput
  48.     .Close
  49. End With
  50.  
  51. End Sub
  52.  
  53. '____________________________________________________________________________
  54. Dim fName(5)
  55. Dim objFSO
  56. Dim i
  57. Dim txtFile
  58. Dim ReadLineTXT
  59. Dim checkLic
  60. Dim strMsg
  61. Dim objCDO
  62. Dim Conf
  63. Dim DataCrl(5)
  64.  
  65. fName(0) = "c:\scriptcheckcrl\GEgarant.txt"
  66. fName(1) = "c:\scriptcheckcrl\GEgarant2.txt"
  67. fName(2) = "c:\scriptcheckcrl\CA1garant.txt"
  68. fName(3) = "c:\scriptcheckcrl\CA1garant2.txt"
  69. fName(4) = "c:\scriptcheckcrl\CA2garant.txt"
  70. fName(5) = "c:\scriptcheckcrl\CA2garant2.txt"
  71.  
  72. Set objFSO= WScript.CreateObject("Scripting.FileSystemObject")
  73.  
  74. '_____________!!!!!!!!НАХОЖДЕНИЕ СТРОКИ С ДАТОЙ
  75.  
  76. For i = 0 To UBound(fName)
  77.   Set txtFile = objFSO.OpenTextFile(fName(i))
  78.   Do While Not txtFile.AtEndOfStream
  79.     If InStr(txtFile.ReadLine, "Следующая публикация CRL") Then
  80.       ReadLineTXT = txtFile.ReadLine
  81.       checkLic = checkLic + SMS(ReadLineTXT)
  82.   DataCrl(i) = ReadLineTXT
  83.       Exit Do
  84.     End If
  85.   Loop
  86.   txtFile.Close
  87. Next
  88.  
  89. '_____________!!!!!!!!ФУНКЦИЯ СРАВНЕНИЯ ДАТЫ В ФАЙЛЕ С ТЕКУЩЕЙ
  90.  
  91. Function SMS(STR)
  92.   If DateDiff("n", CDate(Replace(STR, "г.", "")), Now) > 9 Then
  93.     SMS = 0
  94.   Else
  95.     SMS = 1
  96.   End If
  97. End Function
  98.  
  99.  
  100. '_____________!!!!!!!!СРАВНЕНИЕ СТАТУСОВ КАЖДОГО ФАЙЛА
  101.  
  102. If checkLic = 6 Then
  103.   strMsg = "Не просрочена"
  104. Else
  105.   strMsg = "Просрочена"
  106. End If
  107.  
  108. '_____________!!!!!!!!СООБЩЕНИЕ НА ПОЧТОВЫЙ ЯЩИК
  109.  
  110.  
  111. Set objCDO = WScript.CreateObject("CDO.Message")
  112. objCDO.From = "ОТ КОГО"    
  113. objCDO.To = "КОМУ"
  114. objCDO.Subject = "Проверка CRL"
  115. objCDO.HTMLBody = strMsg & "<br>" & "<br>" & "GEgarant.txt" & DataCrl(0) & "<br>" &  "GEgarant2.txt" & DataCrl(1) & "<br>" &  "CA1garant.txt" & DataCrl(2) & "<br>" &  "CA1garant2.txt" & DataCrl(3) & "<br>" &  "CA2garant.txt" & DataCrl(4) & "<br>" &  "CA2garant2.txt" & DataCrl(5)
  116. Set Conf = objCDO.Configuration
  117.   Conf("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    
  118.   Conf("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp сервер"
  119. ' Conf("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  120.   Conf("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
  121. ' Conf("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Login"
  122. ' Conf("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Pass"
  123.   Conf("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  124. Conf.Fields.Update
  125.  
  126. objCDO.Send
  127.  
  128. Set objFSO = Nothing
  129. Set objCDO = Nothing
  130.  
  131. WScript.Quit


Объясните только, почсему в папке ещё создается Blob0_0.crl ???

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам