Question : Manuscrit de VBS pour surveiller des changements de MX Record

Bonjour, le

I se demandait s'il y a n'importe quelle manière de surveiller pour des changements de disques de MX. Nous ne contrôlons pas notre zone de DNS et plus d'une fois les disques ont été changés et nous n'avons pas été informés jusqu'à ce que les files d'attente de courrier soient soient grandes ou quelqu'un appelle. le

Could ceci soit préétabli d'une manière dont le manuscrit vérifiera là et trouver pour les disques suivants si elles sont différentes à ce que nous je nous avons spécifique ci-dessous puis obtiendra un avis d'email. la préférence de MX du

domain.com = 8, messager = préférence de MX du
domain.com de domain.com.s5b2.pts.com = 2, messager = préférence de MX du
domain.com de domain.com.s5a1.pts.com = 4, messager = préférence de MX du
domain.com de domain.com.s5a2.pts.com = 6, messager = somone du

Could de domain.com.s5b1.pts.com nous dépannent script ceci dehors ?

Thank you class= de

Réponse : Manuscrit de VBS pour surveiller des changements de MX Record

Son tout à fait bien, je fais des erreurs parfois.  Et grâce à votre apporter mon attention de nouveau à cette question, il m'a incité réellement à examiner mon manuscrit pour constater qu'il y avait un problème en ma syntaxe.  Au lieu là d'être les 5 espaces entre le Domain Name au début et la pièce « de préférence de MX », c'est une tableau.  La manière qu'il était toujours aurait pensé qu'il y avait un changement.

 Je l'ai corrigée et ai également ajouté l'option pour changer le serveur de DNS que vous voulez questionner.

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= " moniteur de DNS " strDomain= " yourdomain.com " strDNSServer= " 4.2.2.2 " strSMTPServer= " yoursmtpserver " iSMTPPort=25 Font Placer l'objShell = le CreateObject (« WScript.Shell ») Placer l'objNSLookup = l'objShell.Exec (« nslookup - &strDomain& » « le &strDNSServer de q=MX « ) Placer l'objStdOut = l'objNSLookup.StdOut strOutput = objStdOut.ReadAll bChanged=False Si bChanged=True =0 d'Instr (strOutput, strDomain&vbTab& " préférence de MX = 8, messager = « &strDomain& » .s5b2.pts.com ») puis Si bChanged=True =0 d'Instr (strOutput, strDomain&vbTab& " préférence de MX = 2, messager = « &strDomain& » .s5a1.pts.com ») puis Si bChanged=True =0 d'Instr (strOutput, strDomain&vbTab& " préférence de MX = 4, messager = « &strDomain& » .s5a2.pts.com ») puis Si bChanged=True =0 d'Instr (strOutput, strDomain&vbTab& " préférence de MX = 6, messager = « &strDomain& » .s5b1.pts.com ») puis Si bChanged=True alors Placer l'objEmail = le CreateObject (« CDO.Message ») objEmail.From = strEmailFrom objEmail.To = strEmailTo objEmail.Subject = « DNS a changé » objEmail.Textbody = strOutput _ d'objEmail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2 _ d'objEmail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = strSMTPServer _ d'objEmail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = iSMTPPort objEmail.Configuration.Fields.Update objEmail.Send wscript.quit Finir si wscript.sleep 60000 Boucle