Pergunta : Certificado de VBS para monitorar mudanças do MX Record

Olá!, o

I queria saber se há qualquer maneira de monitorar para mudanças dos registros do MX. Nós não estamos controlando nossa zona do DNS e os registros estiveram mudados mais de uma vez e nós não fomos informado até que as filas do correio estejam estivessem grandes ou alguém chamasse. o

Could isto scripted em uma maneira que o certificado verific para fora lá e encontrar para os seguintes registros se são diferente a o que nós mim nos temos especific abaixo então começ uma notificação do email. a preferência do MX do

domain.com = 8, cambista de correio = preferência do MX do
domain.com de domain.com.s5b2.pts.com = 2, cambista de correio = preferência do MX do
domain.com de domain.com.s5a1.pts.com = 4, cambista de correio = preferência do MX do
domain.com de domain.com.s5a2.pts.com = 6, cambista de correio = somone do

Could de domain.com.s5b1.pts.com ajuda-nos para fora a script para fora este?

Thank you class= do

Resposta : Certificado de VBS para monitorar mudanças do MX Record

Seu completamente alright, eu faço erros às vezes.  E agradecimentos a seu trazer minha atenção de volta a esta pergunta, fêz-me realmente testar meu certificado para encontrar que havia um problema em minha sintaxe.  Em vez lá de ser 5 espaços entre o Domain Name no início e do “a peça da preferência MX”, é uma aba.  A maneira que era pensaria sempre que havia uma mudança.

 Eu corrigi-a e igualmente adicionei-o a opção para mudar o usuário de DNS que você quer perguntar.
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= do " monitor DNS "
strDomain= " yourdomain.com "
strDNSServer= " 4.2.2.2 "
strSMTPServer= " yoursmtpserver "
iSMTPPort=25
Fazem
	Ajustar o objShell = o CreateObject (“WScript.Shell”)
	Ajustar o objNSLookup = o objShell.Exec (“nslookup - &strDomain&” “o &strDNSServer do q=MX “)
	Ajustar o objStdOut = o objNSLookup.StdOut
	strOutput = objStdOut.ReadAll
	
	bChanged=False
	Se bChanged=True =0 de Instr (strOutput, strDomain&vbTab& do " preferência MX = 8, cambista de correio = “&strDomain&” .s5b2.pts.com”) então
	Se bChanged=True =0 de Instr (strOutput, strDomain&vbTab& do " preferência MX = 2, cambista de correio = “&strDomain&” .s5a1.pts.com”) então
	Se bChanged=True =0 de Instr (strOutput, strDomain&vbTab& do " preferência MX = 4, cambista de correio = “&strDomain&” .s5a2.pts.com”) então
	Se bChanged=True =0 de Instr (strOutput, strDomain&vbTab& do " preferência MX = 6, cambista de correio = “&strDomain&” .s5b1.pts.com”) então

	Se bChanged=True então
		Ajustar o objEmail = o CreateObject (“CDO.Message”)
		objEmail.From = strEmailFrom
		objEmail.To = strEmailTo
		objEmail.Subject = “DNS mudou”
		objEmail.Textbody = strOutput
		_ de objEmail.Configuration.Fields.Item
		    (“http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
		_ de objEmail.Configuration.Fields.Item
		    (“http://schemas.microsoft.com/cdo/configuration/smtpserver ") = strSMTPServer
		_ de objEmail.Configuration.Fields.Item
		    (“http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = iSMTPPort
		objEmail.Configuration.Fields.Update
		objEmail.Send
		wscript.quit
	Terminar se
	wscript.sleep 60000
Laço
Outras soluções  
 
programming4us programming4us