Cuestión : Escritura de VBS para supervisar cambios del MX Record

Hola, el

I se preguntaba si hay cualquier manera de supervisar para los cambios de los expedientes del MX. No estamos manejando nuestra zona del DNS y los expedientes se han cambiado más de una vez y nos no han informado hasta que sean las coletas del correo sean grandes o alguien llama. el

Could esto sea con guión de una manera que la escritura compruebe hacia fuera allí y encontrar para los expedientes siguientes si son diferentes a lo que yo nos tenemos especificado abajo entonces conseguirá una notificación del email. ¿la preferencia del MX del

domain.com = 8, cambiador de correo = preferencia del MX del
domain.com de domain.com.s5b2.pts.com = 2, cambiador de correo = preferencia del MX del
domain.com de domain.com.s5a1.pts.com = 4, cambiador de correo = preferencia del MX del
domain.com de domain.com.s5a2.pts.com = 6, cambiador de correo = somone del

Could de domain.com.s5b1.pts.com nos ayuda hacia fuera a script esto hacia fuera?

Thank you class= del

Respuesta : Escritura de VBS para supervisar cambios del MX Record

Su absolutamente bien, incurro en equivocaciones a veces.  Y los gracias a su traer mi atención de nuevo a esta pregunta, hizo realmente que prueba mi escritura para encontrar que había un problema en mi sintaxis.  En vez allí de ser 5 espacios entre el Domain Name al principio y “la pieza de la preferencia del MX”, es un cuadro.  La manera que era habría pensado siempre que había un cambio.

 La corregí y también agregué la opción para cambiar el servidor de DNS que usted quiere preguntar.
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= " monitor del DNS "
strDomain= " yourdomain.com "
strDNSServer= " 4.2.2.2 "
strSMTPServer= " yoursmtpserver "
iSMTPPort=25
Hacen
	Fijar el objShell = CreateObject (“WScript.Shell”)
	Fijar el objNSLookup = objShell.Exec (“nslookup - &strDomain&” “el &strDNSServer del q=MX “)
	Fijar el objStdOut = objNSLookup.StdOut
	strOutput = objStdOut.ReadAll
	
	bChanged=False
	Si bChanged=True =0 de Instr (strOutput, strDomain&vbTab& " preferencia del MX = 8, cambiador de correo = “&strDomain&” .s5b2.pts.com”) entonces
	Si bChanged=True =0 de Instr (strOutput, strDomain&vbTab& " preferencia del MX = 2, cambiador de correo = “&strDomain&” .s5a1.pts.com”) entonces
	Si bChanged=True =0 de Instr (strOutput, strDomain&vbTab& " preferencia del MX = 4, cambiador de correo = “&strDomain&” .s5a2.pts.com”) entonces
	Si bChanged=True =0 de Instr (strOutput, strDomain&vbTab& " preferencia del MX = 6, cambiador de correo = “&strDomain&” .s5b1.pts.com”) entonces

	Si bChanged=True entonces
		Fijar el objEmail = CreateObject (“CDO.Message”)
		objEmail.From = strEmailFrom
		objEmail.To = strEmailTo
		objEmail.Subject = “DNS cambió”
		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 si
	wscript.sleep 60000
Lazo
Otras soluciones  
 
programming4us programming4us