Вопрос : Сценарий VBS для того чтобы контролировать изменения показателя MX

Hi,

I интересовало если будет любая дорога контролировать для изменений показателей MX. Мы не управляем нашей зоной DNS и больше чем как только показатели были изменены и мы бедный человек, котор будут информированный до тех пор пока косы почты не быть большие или кто-то вызываем.

Could это написанный в дороге сценарий будет заканчивал связь там и находка для следующий показателей если они по-разному к, то мы я имеем после того как мы определены ниже после этого нас получит извещение электронная почта. предпочтение MX

domain.com = 8, обменник почты = предпочтение MX
domain.com domain.com.s5b2.pts.com = 2, обменник почты = предпочтение MX
domain.com domain.com.s5a1.pts.com = 4, обменник почты = предпочтение MX
domain.com domain.com.s5a2.pts.com = 6, обменник почты = somone

Could domain.com.s5b1.pts.com помогает нам вне script это вне?

Thank you class=

Ответ : Сценарий VBS для того чтобы контролировать изменения показателя MX

Сво довольно alright, я совершаю ошибки иногда.  И спасибо ваш приносить мое внимание назад к этому вопросу, он фактическ сделал меня испытать мой сценарий для того чтобы найти что была проблема в моем синтаксисе.  Вместо там быть 5 пространств между имя домена в начале и «часть предпочтения MX», будет Tab.  Дорога, котор она была всегда подумала бы было изменение.

 Я исправил его и также добавил вариант для того чтобы изменить сервера DNS вы хотите запросить.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

strEmailTo= " [email protected] "
strEmailFrom= " монитор DNS "
strDomain= " yourdomain.com "
strDNSServer= " 4.2.2.2 "
strSMTPServer= " yoursmtpserver "
iSMTPPort=25
Сделайте
	Установите objShell = CreateObject («WScript.Shell»)
	Установите objNSLookup = objShell.Exec («nslookup - &strDomain&» «&strDNSServer q=MX «)
	Установите objStdOut = objNSLookup.StdOut
	strOutput = objStdOut.ReadAll
	
	bChanged=False
	Если bChanged=True =0 Instr (strOutput, strDomain&vbTab& " предпочтения MX = 8, обменника почты = «&strDomain&» .s5b2.pts.com») после этого
	Если bChanged=True =0 Instr (strOutput, strDomain&vbTab& " предпочтения MX = 2, обменника почты = «&strDomain&» .s5a1.pts.com») после этого
	Если bChanged=True =0 Instr (strOutput, strDomain&vbTab& " предпочтения MX = 4, обменника почты = «&strDomain&» .s5a2.pts.com») после этого
	Если bChanged=True =0 Instr (strOutput, strDomain&vbTab& " предпочтения MX = 6, обменника почты = «&strDomain&» .s5b1.pts.com») после этого

	Если bChanged=True после этого
		Установите objEmail = CreateObject («CDO.Message»)
		objEmail.From = strEmailFrom
		objEmail.To = strEmailTo
		objEmail.Subject = «DNS изменило»
		objEmail.Textbody = strOutput
		_ objEmail.Configuration.Fields.Item
		    (" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
		_ objEmail.Configuration.Fields.Item
		    (" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = strSMTPServer
		_ objEmail.Configuration.Fields.Item
		    (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = iSMTPPort
		objEmail.Configuration.Fields.Update
		objEmail.Send
		wscript.quit
	Закончитесь если
	wscript.sleep 60000
Петля
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us