Create scheduled DNS Clear Cache in MOM

1.Follow the instrustions for creating a custom script in MOM (see link below).
2.Make sure you create your custom event rule in the custom rule group that has the respective custom computer
  groups associated or the mom rule group that has the appropriate dns computer groups associated with it/ 
3.Keep in mind, this rule runs on the Agent, not the Management server.   

Link to article that will guide you through the custom script creation:

http://www.it-jedi.net/2007/01/responding-to-alerts-via-email-with-mom_17.html

(Thanks www.momresources.org)


Below is the script you will use as your response script.  Parameters are listed in the notes.  


'==========================================================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.1
'
' NAME: DNS Clear Cache Script (dnscmd.exe /clearcache)
'
' AUTHOR: Bryce Kinnamon - Social Security Administration (assisted by Phil Gibson - Intellinet)
' DATE  : 2/1/2007
'
' Parameter: You must make sure the DNSCMD.exe tool is located on C:\ on the respective DNS Servers 
'          (or whatever respective location)  **note--I had problems if the path had spaces in it anywhere**
'          When you create the script in MOM the run location is Agent Computer!!
'==========================================================================================================

'On Error Resume Next

Dim objAlert

Set WshShell = CreateObject("WScript.Shell")

WshShell.Run ("C:\dnscmd.exe /clearcache")
 

If err.number <> 0 Then
				
                Set objAlert = ScriptContext.CreateAlert()
                objAlert.Name = "Clear DNS Cache"
                objAlert.AlertLevel = 50 'Critical Error
                objAlert.Description = "Unsuccessfully cleared DNS Cache. Error number = " & Err.number & ". Error Description = " & Err.description
                ScriptContext.Submit objAlert				
       
Else               

                Set objAlert = ScriptContext.CreateAlert()
                objAlert.Name = "Clear DNS Cache"
                objAlert.AlertLevel = 10 'Success
                objAlert.Description = "Successfully cleared DNS Cache."
                ScriptContext.Submit objAlert
				
End If

Set objAlert = nothing