Vraag : Manuscript VBS om MX verslagveranderingen te controleren

Hallo, was

I benieuwd of is er om het even welke manier om voor MX verslagenveranderingen te controleren. Wij beheren onze DNS streek niet en meer dan eens zijn de verslagen veranderd en wij zijn niet geïnformeerd tot de postrijen groot zijn zijn of iemand roept.

Could dit op een bepaalde manier scripted is dat het manuscript daar zal vertrekken en voor de volgende verslagen zal vinden als zij verschillend zijn van welk wij ik hebben gespecificeerd hieronder wij dan een e-mailbericht zullen worden. de

domain.com MX voorkeur = 8, postruilmiddel = domain.com.s5b2.pts.com
domain.com MX voorkeur = 2, postruilmiddel = domain.com.s5a1.pts.com
domain.com MX voorkeur = 4, postruilmiddel = domain.com.s5a2.pts.com
domain.com MX voorkeur = 6, postruilmiddel = domain.com.s5b1.pts.com

Could helpt ons uit aan manuscript dit uit?

Thank you

Antwoord : Manuscript VBS om MX verslagveranderingen te controleren

Zijn vrij in orde, soms maak ik fouten.  En dankzij uw het brengen maakte mijn aandacht terug naar deze vraag, het me eigenlijk mijn manuscript testen om te vinden dat er een probleem in mijn syntaxis was.  In plaats van daar die 5 ruimten tussen de domeinnaam bij het begin en het „MX voorkeur“ deel zijn, is het een tabel.  De manier het was zou altijd gedacht hebben er een verandering was.

 Ik verbeterde het en voegde ook de optie toe om de DNS server te veranderen die u wilt vragen.
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= " DNS monitor "
strDomain= " yourdomain.com "
strDNSServer= " 4.2.2.2 "
strSMTPServer= " yoursmtpserver "
iSMTPPort=25

	Plaats objShell = CreateObject („WScript.Shell“)
	Plaats objNSLookup = objShell.Exec („nslookup - q=MX „&strDomain&“ „&strDNSServer)
	Plaats objStdOut = objNSLookup.StdOut
	strOutput = objStdOut.ReadAll
	
	bChanged=False
	Als Instr (strOutput, strDomain&vbTab& " MX voorkeur = 8, postruilmiddel = „&strDomain&“ .s5b2.pts.com“) =0 toen bChanged=True
	Als Instr (strOutput, strDomain&vbTab& " MX voorkeur = 2, postruilmiddel = „&strDomain&“ .s5a1.pts.com“) =0 toen bChanged=True
	Als Instr (strOutput, strDomain&vbTab& " MX voorkeur = 4, postruilmiddel = „&strDomain&“ .s5a2.pts.com“) =0 toen bChanged=True
	Als Instr (strOutput, strDomain&vbTab& " MX voorkeur = 6, postruilmiddel = „&strDomain&“ .s5b1.pts.com“) =0 toen bChanged=True

	Als bChanged=True toen
		Reeks objEmail = CreateObject („CDO.Message“)
		objEmail.From = strEmailFrom
		objEmail.To = strEmailTo
		objEmail.Subject = „veranderd DNS“
		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
	Eind als
	wscript.sleep 60000
Lijn
Andere oplossingen  
 
programming4us programming4us