Questione : Scritto di VBS per controllare i cambiamenti di MX Record

Ciao, il

I stava domandando se ci è qualunque senso controllare per i cambiamenti delle annotazioni del MX. Non stiamo dirigendo la nostra zona di DNS e le annotazioni sono state cambiate più di una volta e non siamo stati informati fino a che le code della posta non fossero fossero grandi o qualcuno denominasse. il

Could questo è scritto secondo copione in un senso che lo scritto verificherà là e trovare per le seguenti annotazioni se sono differenti a io che cosa specificato sotto allora noi otterrà una notifica del email. la preferenza del MX del

domain.com = 8, scambiatore di posta = preferenza del MX del
domain.com di domain.com.s5b2.pts.com = 2, scambiatore di posta = preferenza del MX del
domain.com di domain.com.s5a1.pts.com = 4, scambiatore di posta = preferenza del MX del
domain.com di domain.com.s5a2.pts.com = 6, scambiatore di posta = somone del

Could di domain.com.s5b1.pts.com li aiuta fuori a script questo fuori?

Thank you class= del

Risposta : Scritto di VBS per controllare i cambiamenti di MX Record

Relativo abbastanza alright, faccio a volte gli errori.  E grazie a vostro portare la mia attenzione di nuovo a questo problema, realmente lo ha incitato a verificare il mio scritto per trovare che ci era un problema in mia sintassi.  Anziché là essere 5 spazi fra il Domain Name all'inizio e “la parte di preferenza del MX„, è una tabella.  Il senso era avrebbe pensato sempre che ci fosse un cambiamento.

 Lo correggevo che ed inoltre che ho aggiunto l'opzione per cambiare l'assistente di DNS che volete interrogare.
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 di DNS "
strDomain= " yourdomain.com "
strDNSServer= " 4.2.2.2 "
strSMTPServer= " yoursmtpserver "
iSMTPPort=25
Fanno
	Regolare il objShell = CreateObject (“WScript.Shell„)
	Regolare il objNSLookup = objShell.Exec (“nslookup - &strDomain&„ “&strDNSServer del q=MX “)
	Regolare il objStdOut = objNSLookup.StdOut
	strOutput = objStdOut.ReadAll
	
	bChanged=False
	Se bChanged=True =0 di Instr (strOutput, strDomain&vbTab& " preferenza del MX = 8, scambiatore di posta = “&strDomain&„ .s5b2.pts.com„) allora
	Se bChanged=True =0 di Instr (strOutput, strDomain&vbTab& " preferenza del MX = 2, scambiatore di posta = “&strDomain&„ .s5a1.pts.com„) allora
	Se bChanged=True =0 di Instr (strOutput, strDomain&vbTab& " preferenza del MX = 4, scambiatore di posta = “&strDomain&„ .s5a2.pts.com„) allora
	Se bChanged=True =0 di Instr (strOutput, strDomain&vbTab& " preferenza del MX = 6, scambiatore di posta = “&strDomain&„ .s5b1.pts.com„) allora

	Se bChanged=True allora
		Regolare il objEmail = CreateObject (“CDO.Message„)
		objEmail.From = strEmailFrom
		objEmail.To = strEmailTo
		objEmail.Subject = “DNS è cambiato„
		objEmail.Textbody = strOutput
		_ di objEmail.Configuration.Fields.Item
		    (" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
		_ di objEmail.Configuration.Fields.Item
		    (" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = strSMTPServer
		_ di objEmail.Configuration.Fields.Item
		    (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = iSMTPPort
		objEmail.Configuration.Fields.Update
		objEmail.Send
		wscript.quit
	Concluder se
	wscript.sleep 60000
Ciclo
Altre soluzioni  
 
programming4us programming4us