Vraag : DNS MX van de monitor verslagen met een manuscript VBS

Hallo, wil

We onze MX verslagen zo controleren als zij in verschillend iets wij zullen krijgen een alarm veranderd worden.

The na scipt loopt te controleren als om het even welke veranderingen voor MX recods zijn gebeurd maar het probleem dat wij met de code hebben is dat wij altijd alertss worden aangezien het nslookup gebruikt en de output altijd in een verschillende orde is zodat zal het manuscript denkt altijd dat er een verandering is en zal teweegbrengen en zal alarmeren.  

We wil enkel van MX verslagveranderingen op de hoogte zijn maar wij zoeken geen veranderingen op de orde/de positie van het verslag.

Does iedereen kent een manier krijgen voort te vloeien dat wij willen?

Thank u.
" codeBody " 
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

Antwoord : DNS MX van de monitor verslagen met een manuscript VBS

Andere oplossingen  
 
programming4us programming4us