Pytanie : VBS Pismo MX dokumentacyjny zmiana

Cześć,

I zastanawiać się jeżeli tam  być jakaś sposób dla MX rejestr zmiana. My kierować nasz DNS strefa i wezwanie jak tylko the rejestr zmieniać i my biedak until the poczta kolejka być być duży lub wezwanie wezwanie.

Could powiadomienie pisać scenariusz w sposób który the pismo sprawdzać to tam  i dla the następujący rejestr jeżeli być różny co my I mieć co wtedy my dostawać email powiadomienie.

domain.com MX preferencja = 8, poczta exchanger = domain.com.s5b2.pts.com
domain.com MX preferencja = 2, poczta exchanger = domain.com.s5a1.pts.com
domain.com MX preferencja = 4, poczta exchanger = domain.com.s5a2.pts.com
domain.com MX preferencja = 6, poczta exchanger = domain.com.s5b1.pts.com

Could somone pomagać 6 6 to?

Thank you

Odpowiedź : VBS Pismo MX dokumentacyjny zmiana

Swój zupełnie dobrze, I robić błąd czasem.  I dzięki twój dowiezienie mój uwaga z powrotem ten pytanie, ono właściwie zrobić mój pismo że tam  być problem w mój składnia.  Zamiast tam  5 przestrzeń między the nazwa domeny przy the początek i the "MX preferansowy" część, ono być zakładka.  The sposób ono być zawsze myśleć tam  być zmiana.

 I korygować ono i także dodawać the opcja the DNS serwer który ty chcieć 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 monitor "
strDomain= " yourdomain.com "
strDNSServer= " 4.2.2.2 "
strSMTPServer= " yoursmtpserver "
iSMTPPort=25

	Ustalony objShell = CreateObject ("WScript.Shell")
	Ustalony objNSLookup = objShell.Exec ("nslookup - q=MX "&strDomain&" "&strDNSServer)
	Ustalony objStdOut = objNSLookup.StdOut
	strOutput = objStdOut.ReadAll
	
	bChanged=False
	Jeżeli Instr (strOutput, strDomain&vbTab& " MX preferencja = 8, poczta exchanger = "&strDomain&" .s5b2.pts.com") =0 wtedy bChanged=True
	Jeżeli Instr (strOutput, strDomain&vbTab& " MX preferencja = 2, poczta exchanger = "&strDomain&" .s5a1.pts.com") =0 wtedy bChanged=True
	Jeżeli Instr (strOutput, strDomain&vbTab& " MX preferencja = 4, poczta exchanger = "&strDomain&" .s5a2.pts.com") =0 wtedy bChanged=True
	Jeżeli Instr (strOutput, strDomain&vbTab& " MX preferencja = 6, poczta exchanger = "&strDomain&" .s5b1.pts.com") =0 wtedy bChanged=True

	Jeżeli bChanged=True wtedy
		Ustalony objEmail = CreateObject ("CDO.Message")
		objEmail.From = strEmailFrom
		objEmail.To = strEmailTo
		objEmail.Subject = "DNS zmieniać"
		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
	Kończyć Jeżeli
	wscript.sleep 60000
Pętla
Inne rozwiązania  
 
programming4us programming4us