[mrxMonster]

Подскажите код для поиска слова из текстового файла?

[mrxMonster]

Админы!
Разъясните мне ситуацию, почему ни один человек никоим образом не прокаментировал мои вопросы?
Или мои вопросы слишком сложны для всех???

[Iska]

Разъясните мне ситуацию, почему ни один человек никоим образом не прокаментировал мои вопросы? »

Задача не интересная.

Попробуйте:

Код:

Option Explicit

Const ForReading       = 1

Const cdoSendUsingPort = 2
Const cdoBasic         = 1

Const strPartSchema    = "http://schemas.microsoft.com/cdo/configuration/"



Dim strLog
Dim strLine
Dim dtDateTime

strLog = "E:\Песочница\0092\123.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strLog) Then
		With .OpenTextFile(strLog, ForReading)
			Do Until .AtEndOfStream
				strLine = .ReadLine()
			Loop
			
			.Close
		End With
		
		dtDateTime = CDate(Split(strLine)(0) & " " & Split(strLine)(1))
		
		If DateDiff("d", dtDateTime, Now()) <= 1 Then
			If UCase(Split(strLine)(3)) = UCase("Warning") Then
				With WScript.CreateObject("CDO.Message")
					With .Configuration.Fields
						.Item(strPartSchema & "sendusing")        = cdoSendUsingPort
						.Item(strPartSchema & "smtpauthenticate") = cdoBasic
						.Item(strPartSchema & "smtpserver")       = "smtp.mail.ru"
						.Item(strPartSchema & "smtpserverport")   = 25
						.Item(strPartSchema & "sendusername")     = "login"
						.Item(strPartSchema & "sendpassword")     = "password"
						
						.Update
					End With
					
					.To            = "to@mail.com"
					.From          = "from@mail.com"
					.Subject       = "Subject"
					.TextBody      = strLine
					
					.Send
				End With
			End If
		End If
	Else
		WScript.Echo "File [" & strLog & "] not found"
	End If
End With

WScript.Quit 0

Вариант скрипта не оптимален: нужно знать, что это за лог, как часто в него пишется информация, каков его средний размер.

[mrxMonster]

Вариант скрипта не оптимален: нужно знать, что это за лог, как часто в него пишется информация, каков его средний размер. »

Спасибо огромнейшее за ответ!

Это простой текстовый лог, который пишется другим скриптом из системного журнала. Для каждой машины свой лог, но в одну папку, потому и названия будут схожи у файлов. Информация в него пишется каждый день, вернее при каждом логине системы. Средний размер где то 10 кило для файла(увеличивается с каждой записью).

Я попробовал этот код, последнюю строчку он показыват, но что косаемо проверки его даты тут непонятно. Ни ошибок ни результата.

[Iska]

Давайте сначала разберёмся с работоспособностью:

Я попробовал этот код, последнюю строчку он показыват, но что косаемо проверки его даты тут непонятно. Ни ошибок ни результата. »

Я создал файл «E:\Песочница\0092\123.txt», записал в него предложенный текст, добавил строчку:

Код:

28.11.2011 13:09:22 GVA-XP002 Warning RAID:2

обозначающую сегодняшнюю дату, заменил болванки в:

Код:

With .Configuration.Fields
	.Item(strPartSchema & "sendusing")        = cdoSendUsingPort
	.Item(strPartSchema & "smtpauthenticate") = cdoBasic
	.Item(strPartSchema & "smtpserver")       = "smtp.mail.ru"
	.Item(strPartSchema & "smtpserverport")   = 25
	.Item(strPartSchema & "sendusername")     = "login"
	.Item(strPartSchema & "sendpassword")     = "password"
	
	.Update
End With

.To            = "to@mail.com"
.From          = "from@mail.com"
.Subject       = "Subject"
.TextBody      = strLine

.Send

на реальные данные и запустил скрипт. Письмо было отправлено на заданный адрес. А что у Вас?

[mrxMonster]

Прошу прощения за свою невнимательность, я просто забыл в лог добавить запись с актуальной датой ошибки.
После внесения изменения скрипт отреагировал по другому и выдал ошибку:

Ошибка: Сервер отклонил адрес отправителя. Отклик сервера: 501
sender address must match authenticated user

код: 8004020E
Источник: (null)

Я ещё раз всё проверил и понял, что sendusername и параметр .to должны быть одинаковы.
После скрипт заработал как нужно.

У меня ещё один вопрос:
Как не писать логин и пароль от почты в таком открытом виде? Скрипт будет использоваться в доменном пространстве и мне хотелось бы знать можно ли использовать возможности домена для логина?

[Iska]

Как не писать логин и пароль от почты в таком открытом виде? »

Мне сложно сказать. Обеспечьте хранение скрипта в месте, доступном только администраторам домена. Запускайте его от имени одного из администраторов или системы.

Скрипт будет использоваться в доменном пространстве и мне хотелось бы знать можно ли использовать возможности домена для логина? »

Поясните, пожалуйста.

[Iska]

Update: Решил добавить…

Я ещё раз всё проверил и понял, что sendusername и параметр .to должны быть одинаковы. »

Раньше потребности в этом не возникало. Но, благодаря вирусописателям и спамерам, рассылавшим всякие гадости от имени «admins@yourdomain.com» и т.п., практически все сервера давно уже требуют этого, как минимальной меры предосторожности.

[mrxMonster]

Кстати, говорилось что бдут несколько логов (у каждой машины свой лог) в одной папке

1. Просматривать логи из определённой папки »

Как заставить скрипт просматривать их по очереди?