Frage : Monitor DNS MX-Aufzeichnungen mit einem VBS script

Hallo, möchten

We unsere MX-Aufzeichnungen so überwachen, wenn sie geändert zu unterschiedlichem etwas wir erhalten einen Alarm erhalten.

The folgendes scipt läuft, um wenn überhaupt Änderungen zu überwachen geschehen für die MX recods, aber das Problem, dass wir mit dem Code haben, ist, dass wir immer alertss erhalten, da er nslookup und den Ausgang benutzt, ist immer in einem anderen Auftrag also im Indexwillen denkt immer, dass es eine Änderung gibt und auslösen und alarmiert.  

We möchten gerade in MX Recordänderungen auskennen, aber wir suchen nicht nach Änderungen auf dem Auftrag/der Position der Aufzeichnung.

Does jedermann kennen eine Weise zu erhalten zu resultieren, dass wir wünschen?

Thank Sie. 
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

Antwort : Monitor DNS MX-Aufzeichnungen mit einem VBS script

Weitere Lösungen  
 
programming4us programming4us