Frage : VBS Index, zum der MX Recordänderungen zu überwachen

Hallo, wunderte sich

I, wenn es irgendeine Weise gibt, MX-Aufzeichnungsänderungen zu überwachen. Wir handhaben nicht unsere DNS-Zone und mehrmals sind die Aufzeichnungen geändert worden und wir sind nicht informiert worden, bis die Postwarteschlangen sind groß sind, oder jemand benennt.

Could dieses ist auf eine Art vorbereitet, die der Index heraus dort überprüft und für die folgenden Aufzeichnungen zu finden, wenn sie verschieden sind von, was wir ich unten spezifiziert dann uns haben eine eMail-Mitteilung erhält.

domain.com MX-Präferenz = 8, Postaustauscher = domain.com.s5b2.pts.com
domain.com MX-Präferenz = 2, Postaustauscher = domain.com.s5a1.pts.com
domain.com MX-Präferenz = 4, Postaustauscher = domain.com.s5a2.pts.com
domain.com MX-Präferenz = 6, Postaustauscher = domain.com.s5b1.pts.com

Could somone helfen uns heraus script dieses heraus?

Thank you

Antwort : VBS Index, zum der MX Recordänderungen zu überwachen

Sein ziemlich gut, mache ich Fehler manchmal.  Und dank Ihr Holen meiner Aufmerksamkeit zurück zu dieser Frage, ließ er mich wirklich meinen Index prüfen, um zu finden, dass es ein Problem in meiner Syntax gab.  Anstatt, dort 5 Räume zwischen dem Domain Name zu Beginn und dem „MX-Präferenz“ Teil, ist es zu sein ein Tab.  Die Weise, die es war, würde immer gedacht haben, dass es eine Änderung gab.

 Ich behob sie und addierte auch die Wahl, um den DNS-Bediener zu ändern, den Sie fragen möchten.
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:
6:

strEmailTo= " [email protected] "
strEmailFrom= " DNS-Monitor "
strDomain= " yourdomain.com "
strDNSServer= " 4.2.2.2 "
strSMTPServer= " yoursmtpserver "
iSMTPPort=25
Tun
	objShell = CreateObject („WScript.Shell“) einstellen
	objNSLookup = objShell.Exec („nslookup - q=MX „&strDomain&“ „&strDNSServer) einstellen
	objStdOut = objNSLookup.StdOut einstellen
	strOutput = objStdOut.ReadAll
	
	bChanged=False
	Wenn Instr (strOutput, strDomain&vbTab& " MX-Präferenz = 8, Postaustauscher = „&strDomain&“ .s5b2.pts.com“) dann bChanged=True =0
	Wenn Instr (strOutput, strDomain&vbTab& " MX-Präferenz = 2, Postaustauscher = „&strDomain&“ .s5a1.pts.com“) dann bChanged=True =0
	Wenn Instr (strOutput, strDomain&vbTab& " MX-Präferenz = 4, Postaustauscher = „&strDomain&“ .s5a2.pts.com“) dann bChanged=True =0
	Wenn Instr (strOutput, strDomain&vbTab& " MX-Präferenz = 6, Postaustauscher = „&strDomain&“ .s5b1.pts.com“) dann bChanged=True =0

	Wenn bChanged=True dann
		objEmail = CreateObject („CDO.Message“) einstellen
		objEmail.From = strEmailFrom
		objEmail.To = strEmailTo
		objEmail.Subject = „DNS änderte“
		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
	Beenden wenn
	wscript.sleep 60000
Schleife
Weitere Lösungen  
 
programming4us programming4us