Pages

Thursday 27 October 2011

Custom Monitoring to check Folder exist using VB script for SCOM

Custom Monitoring to check Folder exist using VB script
Steps to create the new Class
1.     Open the Authoring Console
2.     Select  Service Model
3.     Click on Class New - Select Windows Server Role
4.      Provide the ID, Display name and description (Ex: ID: BizTalk.AppServer.Class and Display name: BizTalk Application Server Class and Description


5.     Click on Finish

Steps to create the new Discovery
1.     Select Health Model
2.     Click on Discoveries - Expand the class name  
3.     Enter the Element ID:, Display Name, Description, Target and Category as below
a.     Element ID: BizTalk.AppServer.Discovery
b.    Display Name: BizTalk Application server Discovery
c.     Target:Microsoft.Windows.Computer
d.    Category:Discovery

4.     Configure your schedule screen enter the discovery interval and click on Next

5.     Find the target computer’s name don’t change anything click on Next

6.     On the Registry Probe Configuration click on Add Change the Object Type to Value and enter the Properties as below
a.     Name: ServerRole
b.    Path: SOFTWARE\SCOM\BizTalk\ServerRole
c.     Attribute Type:String

7.     On the Build event Expression  click on Insert and Enter the below Values
a.     Parameter Name: values/ServerRole
b.    Operator:Equals
c.     Value: BiztalkApp

8.     On the Discovery Mapper select the below values
a.     Class ID:Biztalk.AppServer
b.    Key Properties select the Principle name
c.     Click on Finish



Steps to create the monitor
1.     Select Health Model
2.     Click on Monitors - New  -  Scripting  - Two State
3.     Specify the Element ID, Display Name, Description, Target, Parent Monitor and Category as below
a.     Element ID: FolderCheckMonitor
b.    Display Name: FolderCheckMonitor
c.     Target:BizTalk. AppServer
d.    Parent Monitor: System.health.AvailabilityState
e.     Category: AvailabilityHealth


4.     Configure your schedule screen specify the interval

5.     Enter script information page specify the File Name, timeout and script


Dim Fname,FSO,x,Problem,oArgs,oAPI
Dim sfolder, folder, files, sfile, sfilePart1, ScriptExitTime, strMessage,FileModTime,ChkOtherFIle,FinalIDD
On Error Resume Next
Problem=0
Set oAPI = CreateObject("MOM.ScriptAPI")
Set FSO= CreateObject("Scripting.FileSystemObject")
Set oArgs = WScript.Arguments
'Collect data from the arguments
sfolder = oArgs(0)
sfolder = “Location of the Folder"
'Check the folder existence...
If (fso.FolderExists(sFolder)) Then
             Problem = 0
             wscript.quit
Else
                Problem = 1
End If

if Problem = 0 Then
                Set propertyBag = oAPI.CreatePropertyBag ()
                Call propertyBag.AddValue ("Status", "Good")
Else
                Set propertyBag = oAPI.CreatePropertyBag ()
                Call propertyBag.AddValue ("Status", "Error")
End if
Call oAPI.Return(propertyBag)

6.     Unhealthy Expression screen Enter the Parameter Name Operator and Value as below
a.     Parameter Name: Property[@Name='Status']
b.    Operator: Equals
c.     Value: Error

7.     Healthy Expression screen Enter the Parameter Name Operator and Value as below
a.     Parameter Name: Property[@Name='Status']
b.    Operator: Equals
c.     Value: Good

8.     Click on Finish




No comments:

Post a Comment