Fråga : VBS skrivar för att övervaka MX Recordändringar

Hi

I undrade, om det finns any långt att övervaka för MX-rekordändringar. Vi klarar av inte vår DNS zonplanerar, och mer än, när rekorden har ändrats och vi har inte informerats, tills posta köar är är stor eller någon appeller.

Could detta skrivas i långt som den skriva ska kontrollen ut där och fyndet för rekorden, om de är olika till vad vi mig har specificerat nedanfört därefter oss ska efter får ett e-postmeddelande. mx-preferens för

domain.com = 8, postar exchangeren = preferens för MX för domain.com.s5b2.pts.com
domain.com = 2, postar exchangeren = preferens för MX för domain.com.s5a1.pts.com
domain.com = 4, postar exchangeren = preferens för MX för domain.com.s5a2.pts.com
domain.com = 6, postar exchangeren = somone för domain.com.s5b1.pts.com

Could hjälper oss ut att skriva denna ut?

Thank you " klar "

Svar : VBS skrivar för att övervaka MX Recordändringar

Dess ganska alright, jag gör missförstår ibland.  Och tack till ditt komma med min uppmärksamhetbaksida till denna ifrågasätter, det gjorde faktiskt mig att testa mitt skrivar för att finna att det fanns ett problem i min syntax.  I stället för där att vara 5 utrymmen mellan området som är känt på början, och ”den MX-preferens” delen, det är en flik.  Långt har det skulle tänkt alltid att det fanns en ändring.

 Jag korrigerade det och tillfogade också alternativet för att ändra DNS-serveren som du önskar att query.
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 övervakar ",
strDomain= " yourdomain.com ",
strDNSServer= " 4.2.2.2 ",
strSMTPServer= " yoursmtpserver ",
iSMTPPort=25
Gör
	Fastställd objShell = CreateObject (”WScript.Shell”)
	Fastställd objNSLookup = objShell.Exec (”nslookup - q=MX”&strDomain&” ”&strDNSServer)
	Fastställd objStdOut = objNSLookup.StdOut
	strOutput = objStdOut.ReadAll
	
	bChanged=False
	Om Instr (strOutput, strDomain&vbTab& " MX-preferens = 8, postar exchangeren = ”&strDomain&” .s5b2.pts.com”), därefter bChanged=True =0
	Om Instr (strOutput, strDomain&vbTab& " MX-preferens = 2, postar exchangeren = ”&strDomain&” .s5a1.pts.com”), därefter bChanged=True =0
	Om Instr (strOutput, strDomain&vbTab& " MX-preferens = 4, postar exchangeren = ”&strDomain&” .s5a2.pts.com”), därefter bChanged=True =0
	Om Instr (strOutput, strDomain&vbTab& " MX-preferens = 6, postar exchangeren = ”&strDomain&” .s5b1.pts.com”), därefter bChanged=True =0

	Om bChanged=True därefter
		Fastställd objEmail = CreateObject (”CDO.Message”)
		objEmail.From = strEmailFrom
		objEmail.To = strEmailTo
		objEmail.Subject = ”DNS ändrade”,
		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
	Avsluta om
	wscript.sleep 60000
Kretsa
Andra lösningar  
 
programming4us programming4us