SYSTEM OPERATIONS [Michel Kamp]

This Is My Last BLOG Post

michel kamp — Wed, 04 Jul 2007 09:19:00 GMT

Hello bloggers,

This will be my last blog post by and for Info Support.

I will be blogging in the future on www.scug.nl the Dutch System Center User Group or on a other blog site. (Just search for my name on the internet)

Hope you enjoyed the blogs post i have written.

See you later.....

Michel

MOM ORACLE MANAGEMENT PACK

michel kamp — Thu, 02 Nov 2006 12:57:00 GMT

Feeling lucky today?. Due to a feet operation I’m in recovery at home. So my mind was spinning to do something. I was always wondering why there wasn’t a ORACLE management pack for MOM. Of course you could buy one form Netiq example , but the complete version will have more overhead that you want (I tried it). No I want a FREE and simple one!.

Ok so you’re lucky, here’s the free oracle MP.

I’m NOT a oracle expert so there maybe missing some checks but it’s a start. If you give me some remarks then I have a look at it.

What does it for all oracle instances:

- it monitors the oracle alert files. And report the important ORA-xxx messages and oracle text messages. (last one disabled by default).

- it monitors oracle NT services state changes.

- it collects important performance counters from the instances. (v$ views)

- It monitors the free space on tablespaces. And report if below 25% free.

- Oracle instances discovery. Automatically finds all instances and SIDs in all homes.

Configuration:

To use all the monitor features you must do a little configuration on the oracle instances and the mp.

At the oracle servers:

1. Change the alertlogfile locations. (no shutdown required)

1) open the enterprise manager login to the instance under system sysdba

2) go to configuration -> all initialization parameters

3) Change the “background_dump_dest” to “c:\oracle\alertlogs” You can change this path but then you have also to change the MOM alert log file provider.

4) Then apply.

5) Do step 1 .. 4 for every instance you have running on any server.

Now all the alert logs are written to a standard location. This is needed because the

Path of the “MOM application log provider” cannot be dynamically configured.

2. Install the ORACLE ODBC driver and client tools (connectivity) on the oracle servers.

3. The performance and table space check use a oracle account to login. You specify this at the respond rules. I use the system user for this. But better is to create a special account for this. If you do be sure it can read the sys.v$ views and the tablespace table.

At the mom oracle mp:

Import the MOM ORACLE MP
change the user and passwords of the respond script of the rules:
[MITS] ORACLE\ [MITS] ORACLE CHECKS\ [MITS] Collect Oracle free tablespace info
and
[MITS] ORACLE\ [MITS] ORACLE PERFORMANCE V$ COLLECTIONS\*
change the path of the “providers\[MITS] oracle alert log files” provider to the location you have changed in step 1 “change the alertlogfile locations”
change or create more alert rules for notification.
do a commit.

That’s all.

What you will see at the operator console:

Open the mom operator console go to the “Alerts\[MITS] Oracle” folder.

Open the mom operator console go to the “Performance\[MITS] Oracle” folder.

There should me more views created but it’s a start.

Hope you enjoy this MP.

Download at : http://blogs.infosupport.com/files/folders/10895/download.aspx

Michel Kamp

PART 1: AXIOS ASSYST MOM PRODUCT CONNECTOR

michel kamp — Wed, 11 Oct 2006 08:19:00 GMT

Why:

We are using Assyst as our helpdesk tool. If MOM detects a critical error this must be logged as a Assyst call. Now we are doing this manually. I always wondered why there was no MOM product connector for ASSYST. Yesterday I could not wait anymore for it so I have build one my self.

What is it:

The first release will be one build on the MPC SDK example and will be a basic one-way connector and a ASSYST webservice.

How this works:

The new alert is generated in MOM. You evaluate it if this should be logged into ASSYST. You change the resolution state to "Log to Assyst". The MPC will now do a webservice call to the Assyst webservice. This webservice will make a Assyst incident using the ACLI (from Assyst) interface. The ACLI returns the incident number. The MPC receives the incident number and saves this in the MOM alerts "ticked id" field. At last the MPC changes the resolution state to "level 1:.... assigned...".

Status:

Yesterday I complied ,installed and tested the ASSYST MPC. And it works!!! Now I have to put in some error handling.

Download:

In part 2 I will post the setup package. Please let me know if you like this worked out idea.

Michel Kamp

MOM MP: Basic Windows Security check

michel kamp — Thu, 14 Sep 2006 04:36:00 GMT

Due to account policy's we forbid administrators to logon with specific domain admin accounts or with the local administrator accounts. Also wanted was a security audit to lookup or monitor possible attacks.

To do this I've written a simple security management pack. That collects all security events and generate alerts when a logon fails 3 times within 3 min , account rights are changed and when a local administrator, specific admin account logon (successful) is detected.

Pre-installs:

1 Import the security MP into MOM. Its by default assigned to all windows servers.

2 Change the domain audit policy to "audit account logon events" , "audit logon events" and "audit account management" to value "Success,Failure". Change also for the Evenlog policy that your eventlogs are min 20Mb big. AND THAT OVERWRITE IF NEEDED IS ACTIVATED. MOM will be fast enough to store the evens in the database before the will be overwritten in case of a flush attack. Otherwise your system will go in HOLD status. (and that's not what you want)

3 Deploy your policy.

4 Change the rules to the admin accounts you want to monitor. Rule "[MITS] SECURITY ISSUE ALERT ON [Logon/Logoff admin_xxx]" -> "criteria" property "user name" to what specific account you want to monitor. For multiply accounts you can also use a regexpression for this.

5 Do a MOM commit.

6 Open the operator console and go to the "security views" There must be events in it.

To do:

- I'm working on a datawarehouse report that will analyze the events.

Be aware:

That your onepoint db will grow faster.

That the mom datawarehouse db will also grow faster.

So make source there enough space in it.

You can download the MP HERE:

Michel

PART 2: Mass MOM rule Editor

michel kamp — Thu, 07 Sep 2006 08:42:41 GMT

Ok did some coding today.

There's the first real build. !!!!

Please test it NOT on production ;-)

Don't except error handling in this version.

The tool is quite easy to understand.

1. Run the exe on you MOM server (with the MOM SDK installed).

2. Press on "Get MPs". And wait.

3. Navigate to your rule group. You can rightmouse click to do the actions enable/disable all rules or selected rule group.

4. If there are rules in the rule group they are displayed in the rule list.

5. Select the rule you want to change. For now you can only change : disable/enable the rule and the CompanyKnowledge fields.

6. Press the update rule(s) button to process the changes. Only the selected rules will be processed.

7. OR if you want to set a value for all the selected rules you can fill in the value in the rule detail box and then press the mass rule update button.

Please give me some feedback on this tool!!!!

see for the download: MassMOMRuleEditorV1

see below for some screen shots.

Have fun with it Michel

PART 1: Mass MOM rule Editor

michel kamp — Wed, 06 Sep 2006 05:09:00 GMT

OK. I was I a situation that I had about 200 rules that must be disabled. The only way to do this is:

1. By hand one by one with the administrator console

2. Do a non supported SQL update

3. Use the MOM SDK

Of course I did step 3. And the MassMomRuleEditor is born. I'm still working on it but the tool is getting some body. What the MassMomRuleEditor must do is:

Wanted features:

1. View the MPs

2. Disable/enable MP rule group(s)

3. Disable/enable MP rule(s) . All or only the selected.

4. Display information on a rule or rule group

5. Edit the rule. Name , Knowledge , criteria etc.

6. Backup (export) a rule/ rule group.

7. some of version control using Microsoft visual source safe.

Steps % completed:

step 1 : 100%

step 2: 100%

step 3: 90%

step 4: 90%

step 5: 10%

step 6: 0%

step 7: 0%

To tease you I have posted a screen shot below. I will post the tool if I have a feeling it is stable.

Meanwhile you are free to give me some comments on wanted features.

SO KEEP LOOKING AT THIS BLOG SITE

MP: Sophos v4

michel kamp — Tue, 05 Sep 2006 08:53:31 GMT

Yesterday I needed some rules to check Sophos Virus scanner on our corporate network.

So I made an first version to monitor Sophos Version 4.x

You can Import it into MOM and it will automatic find the sophos enabled servers. See also the Alert and event view. In this version I have only enabled the most critical event rules.

You are free to change it , please inform me also when what you have changed. So we can come to a next version.

Have fun with it!

Michel

Download sophos v4 MOM management pack

HOWTO: bulk export / import MOM management packs

michel kamp — Fri, 01 Sep 2006 05:02:00 GMT

Hi,

As a MOM system administrator / consultant I have visited many customers that don't backup the MOM MPs. The say "why? I'm making a SQL onepoint backups , this should do it....” Personally I'm not a big pro on restoring the complete onepoint db if you lose or miss-change a MP. So the mom SDK has some tools to export / import MPs from the command line. The only problem is that this tool only processes 1 rule group at the time. I've written a c# program that solves this problem. This is a simple way to export (backup) your MPs. I use the tool for one reason more: I'm using the MOM to MOM product connector to forward alerts from a co hosting MOM locations to our main MOM location. This requires you to have the same MPs on both sites. My tool has a Import feature as well. So you can make a co-site export and import to the main site in one step.
So if you want to make only a export (for backup resons) you make the source and destination server parameters the same. The tool then only exports the MPs to the given directory. If you fill in a different destination server the tool will imports the exported MPs one by one on the specified server. The tool also export / imports all the RULES , VIEWS , TASKS.

Command line usage:
ExportImportMP.exe <source mom server> <dest mom server> <dest path>

requirements:
- Dot Net 1.1 framework installed
- MOM SDK installed
- must exists:\Program Files\Microsoft Operations Manager 2005\ManagementModuleUtil.exe
- execute on the MOM server.

I will share the code. This is a quick programming project , so do not except to much:
(You can download the project from the download section on this blog server)

It is build of 3 parts.
Part one reads out the command line arguments and is creating a MOM management object.

System.Diagnostics.Process proc = new System.Diagnostics.Process();
     string arguments;
     string SourceSrv;
     string DestSrv;
     string DestDir;
     if (args.Length != 3)
        {
       Console.WriteLine("Error invalid arguments");
          Console.WriteLine("VERSION : 0.9");
          Console.WriteLine("Michel Kamp. 2006");
          Console.WriteLine("Usage: ExportImportMP <source mom server> <dest mom server> <dest path>");
          Console.WriteLine("Description: Export and import MOM MPs with the ManagementModuleUtil.exe");
          Console.WriteLine(@"Description: besure C:\Program Files\Microsoft Operations Manager 2005\ManagementModuleUtil.exe exsists");
          Console.WriteLine("HINT: If the Source and destionation is the same then no import will be done. This is usefull for making an backup. ");
       Environment.Exit(-1);
        }
     SourceSrv = args[0].ToString();
     DestSrv = args[1].ToString();
     DestDir = args[2].ToString();
     Console.WriteLine("ExportImportMP " + SourceSrv + " " + DestSrv + " " +DestDir );
     Administration admin = Administration.GetAdministrationObject();
     RuleGroupsCollection rgs = admin.GetRuleGroups();

Part 2 does the export

foreach (RuleGroup rg in rgs)
{
Console.WriteLine("Export RULES: " + rg.Name);
Console.WriteLine("DestDir: " + DestDir);
arguments = " -O " + SourceSrv + " {" + rg.Id.ToString().ToUpper() + "} " + "\"" + DestDir + @"\" + rg.Name + @".AKM" + "\"" + " -W";
proc.EnableRaisingEvents=true;
proc.StartInfo.FileName=@"C:\Program Files\Microsoft Operations Manager 2005\ManagementModuleUtil.exe" ;
proc.StartInfo.Arguments=arguments;
Console.WriteLine("Processing :" + proc.StartInfo.FileName + " " + proc.StartInfo.Arguments);
proc.Start();
…….

Part 3 does the import

if ( SourceSrv != DestSrv )
            {
            Console.WriteLine("IMPORT: " + rg.Name);
            arguments = " -I " + DestSrv + " \"" + DestDir + @"\" + rg.Name + ".AKM" + "\" -F";
            proc.EnableRaisingEvents=true;
            proc.StartInfo.FileName=@"C:\Program Files\Microsoft Operations Manager 2005\ManagementModuleUtil.exe" ;
proc.StartInfo.Arguments=arguments;
            Console.WriteLine("Processing :" + proc.StartInfo.FileName + " " + proc.StartInfo.Arguments);
            proc.Start();
            proc.WaitForExit();
            }

Hope you can use it. If not please let me know why and what’s missing.

You can download the project from the download section on this blog server

Michel Kamp

Testing and developing MOM scripts outside MOM.

michel kamp — Fri, 21 Jul 2006 13:10:00 GMT

Testing and developing MOM scripts outside MOM.

Here’s a simple and good working solution to test and develop your mom scripts without buying MP studio enterprise.

1) Install Visual studio 2003 or Visual studio 2005

2) Install the “responsetest.exe” from the “MOM resource tool kit 2005 sp1”

3) Create a “empty” solution as “test mom scripts”

(and you would add it to sourcesafe also ;-) )

4) Create a “empty” project as “mom vbs”

5) Add a new “vbscript” item , name it “test1.vbs”

Fill it with example code:

set oEvent = ScriptContext.CreateEvent

oEvent.EventNumber = 1

oEvent.EventSource = "SampleScript.txt"

oEvent.Message = “This is a event. Prameter is :” & ScriptContext.Parameters.Get(“Test Param”)

ScriptContext.Submit oEvent

6) Create a file “test.cmd” in the project directory

Fill it with the batch code: (make sure your path to the responsetest.exe is correct)

:: Enter the name below of the script your editing (NO .vbs !)

set MOM_SCRIPT=test1

set MOM_RESPONSE=%MOM_SCRIPT%_RESPONSE.xml

set MOM_CONFIG=%MOM_SCRIPT%_Config.xml

"C:\Program Files\Microsoft Operations Manager Resource Kit\Tools\Response Test Utility\ResponseTest.exe" /q /d /out:%MOM_RESPONSE% /script:%MOM_SCRIPT%.vbs /config:%MOM_CONFIG%

7) Add the existing item file “test.cmd” to the project.

8) Add an new XML Item named “test1_CONFIG.XML”

Fill it with the parameter info that will be used for calling the mom script.

9) Now edit the “mom vbs” project properties.

· Click the “configuration manager”

· Create a new configuration. Name it “MOM response via test.cmd”. then close.

· Under “common properties” change the “output type” to “class library” . then Apply

· Under “Debugging” change the “start application” to “c:\windows\system32\cmd.exe”. then apply

· Under “Debugging” change the “command line Arguments” to “/t test.cmd”. then apply an OK.

If you done this all you can now press F5 and it will run the test1.vbs code. The output is stored in the directory where you installed the responsetest.exe and is named “test1_RESPONSE.xml”. Drag this file into your project and set the view mode to DATA. Now you will see all the events (1) that the MOM script “test1.vbs” will create if it runs in MOM.

!!!! Be aware that all vb code is executed in real. Only the mom events / performance events are simulated !!!!!!!

Here some action screen shots:

Editing the MP:

Editing the parameters:

Viewing the results:

MOM 2005 MOBILE PHONE OPERATOR CONSOLE

michel kamp — Wed, 14 Jun 2006 09:47:00 GMT

MOM 2005 MOBILE PHONE OPERATOR CONSOLE

Yesterday I’ve managed to get the mom mobile phone console working. So what you say… Ok look at the source . It is in Chinese language and Microsoft says the wont bring out an English version. . After what testing I figured out that you can change it to English easily. Because they used resource files and the programmed it also (??) for the English language you can change the language to English in the web.config.

Here are the steps I’ve taken:

Download the “mom2005Mpc.exe” at http://www.microsoft.com/japan/mom/evaluation/mpc.mspx
Download and Install the “mobile components update 4.0” from http://www.microsoft.com/downloads/details.aspx?FamilyId=02FA15FE-40D9-4DCE-9BB1-4DD61A5B7CCB&displaylang=en
Install the “mom2005Mpc.exe” . Just click the buttons you normally will click. Choose all the programs to install. The setup will create 2 websites on the given ports (default 1280 and 1281). It will also create an database MOMMPC on the database server you selected during the install. This database will contain 3 tables and stored procedures needed for the web service to authenticate the mobile devices.
Connect to the mobile phone console website http://localhost:1280/default.aspx You will see this in Chinese….
Change for the MobilePhoneConsole website the web.config as following. Search the text “DefaultLocaleId” and change the value to 1033. This is English US. Now we are almost there.
Connect again to http://localhost:1280/default.aspx . You will see this in English. Log on with a correct user that has mom privileges. I used the local administrator. Now you will see the “device not approved” message.
Go to the SQL server where the database MOMMPC and tables are created. Go to the table “MPChwId” . Query the table. You will see an entry in it . Change for al rows the vaule from the column “IdStatus” to 2. And change the “LocaleId” to 1033.
Connect to http://localhost:1280/default.aspx And you will see it WORKS!!

Have fun with it.

Michel

MOM 2000/2005 WAP Operator Console is born!.

michel kamp — Sun, 12 Mar 2006 09:15:00 GMT

MOM 2000/2005 WAP Operator Console is born.

Past week I had a great idea. We are now sending SMS alerts to our standby phone. This is working O.K but the problem was that the standby operator was getting multiply SMS parts because the alert message was longer than 160 chars. I had to figure out to get a fast and costless solution for this. I thought about this:

1) Get a XDA or PDA smart phone.

Send the alert as email to the standby operator mail box. Since Exchange SP2 you are getting right-on your messages.

Problem: You must have a XDA/PDA smart phone and an GPRS/UMTS connection.

2) Get a XDA or PDA smart phone.

Connect with the PDA internet explorer to the MOM web operator console and browse the alerts/events.

Problem: The web console is not written for a PDA screen resolution. So you are spending more time clicking on the scroll bars than reading you alerts.

3) Get a XDA or PDA smart phone.

Connect with the PDA internet explorer to the MOM Mobile operator console and browse the alerts/events. Seems the perfect solution. BUT….

Problem: Yea sure , Microsoft hasn’t writing one yet. They have indeed written one but that’s a Chinese version. (by the way : I have the source code , and I’m trying to translate this one…)

4) OR… You’re using your old Nokia phone (with WAP function)

So now we still send 1 SMS to this phone. This SMS is only saying that a “source” is in service unavailable state. The operator then connects with WAP to the MOM operator WAP console. Read the Alert information and browse other alerts/events.

Option 4 is the solution I’m going to explain. This one is written in 30min and installed in 5min. You don’t have to get to your boss and ask for a XDA/PDA investment, just use your old WAP compatible phone. I have written this one in my private time so I will share some code.

Short steps I’ve taken:

Open a new project in visual studio named: Mobile Web application
Drag a new form on it.
Drag a Object List on this form
Drag 3 buttons on it. (or more)
Name the button: SU alerts , CE alerts , Error Alerts etc..
Click on the (example CE alerts) button and assign a action.
The action is a procedure I will explain below. For now just fill in this code:

private void Command2_Click(object sender, System.EventArgs e)

{

try

{

// ResolutionState=0, Severity=70 critial error

GetAlerts(0,70);

}

catch(System.Exception err)

{

Label1.Text = "Fatal error : " + err.Message;

}

Now we are getting to the main part of this console. The Getalerts() procedure.

This procedure is for now using the (old unsupported?) MOM WMI interfaces. But you can however simple use the SDK MOM SQL views for this. That’s up to you!. I’m using for now the WMI MSFT_Alert interfaces to retrieve the alerts with a specific resolution state.

Here’s the code:

private void GetAlerts(int ResolutionState, int Severity )

{

try

{

string sMOMserver = ".";

ManagementScope scope = new ManagementScope("\\\\"+ sMOMserver +"\\root\\mom");

// display where to get the data

Label2.Text = "MOM " + sMOMserver;

// Create a DataSet (only needed if you want to save to XML )

System.Data.DataSet ds = new System.Data.DataSet();

// Create a DataTable to hold our results

System.Data.DataTable dt = new System.Data.DataTable("Alerts");

// Add the table to the dataset

ds.Tables.Add(dt);

// Create columns for our data

dt.Columns.Add(new System.Data.DataColumn("DateTime", typeof(DateTime)));

dt.Columns.Add(new System.Data.DataColumn("Type", typeof(String)));

dt.Columns.Add(new System.Data.DataColumn("Name", typeof(String)));

dt.Columns.Add(new System.Data.DataColumn("Message", typeof(String)));

scope.Connect();

ObjectQuery query= new ObjectQuery("Select * from MSFT_Alert where ResolutionState=" + ResolutionState.ToString() +" and Severity= " + Severity.ToString() );

ManagementObjectSearcher searcher = new ManagementObjectSearcher(scope, query);

DateTime TimeLastModified = new DateTime();

// Loop through each item in the collection

foreach( System.Management.ManagementObject queryObj in searcher.Get() )

{

// convert the WMI datetime to a GM date time

TimeLastModified = ManagementDateTimeConverter.ToDateTime(queryObj["TimeLastModified"].ToString());

// Add a row of data to our table

dt.Rows.Add(new object[] {

TimeLastModified,

queryObj["Severity"],

queryObj["Name"],

queryObj["Description"] } );

}

Label2.Text = "ROWS: " + dt.Rows.Count.ToString();

// sort on datetime

DataView dv = new DataView(dt);

dv.Sort = "DateTime DESC";

ObjectList1.DataSource = dv;

ObjectList1.DataBind();

}

catch(ManagementException err)

{

Label1.Text = "An error occurred while querying for WMI data: " + err.Message;

}

catch(System.UnauthorizedAccessException unauthorizedErr)

{

Label1.Text = "Connection error (user name or password might be incorrect): " + unauthorizedErr.Message;

}

catch(System.Exception err)

{

Label1.Text = "Fatal error : " + err.Message;

}

9) Now you build the project and deploy it on your MOM server. This is a WEB project so it must be deployed as a IIS web application.

10)Open a internet explorer and browse to the IIS application site you have created. And now you must see the create WAP site. If so. Then you’re ready to test it with the WAP phone.

11)Open with the phone the WAP URL. I’ve created a bookmark so it can be request easily.

This is it up to now. You can easily extend this MOM WAP console and even get a trend performance graph in to it… But that’s up to you.

Hope this helps..

Any questions are welcome…

Michel

See for project download:

http://blogs.infosupport.com/files/folders/11170/download.aspx

[HOWTO] Installatie SNMP op de MOM management server

michel kamp — Tue, 21 Feb 2006 13:36:00 GMT

Sorry , only in Dutch. Use AltaVista's Babelfish to translate

1.1 Installatie SNMP op de MOM management server

Voor dat SNMP in combinatie met MOM gebruikt kan worden op Windows 2003 moet er een aantal onderdelen geïnstalleerd en geconfigureerd worden. SNMP in combinatie met MOM werkt via een WMI interface. In het kort is de werkwijze alsvolgt:

Een SNMP device heeft een aantal counters welke uit gelezen kunnen worden. De counters kunnen via een O.I.D (object indentifier ) uitgelezen worden. Een OID is een cijfer reeks gescheiden door punten. ( bijvoorbeeld: 1.0.2.3.42 ). Aangezien zo’n OID niets zeggend is maakt men gebruik een mapping naar echte namen . Deze koppeling tussen OID en een naam wordt in een MIB file gezet. Op deze mannier kan men via een SNMP object naam de counter opvragen. MOM heeft standaard niet de mogelijkheid om via een SNMP reader direct een SNMP device uit telezen. Dit wordt opgelost door een WMI SNMP Provider. Deze WMI provider werkt als een soort Proxy. Men kan dus direct een WQL query lost laten op deze WMI class zonder enige SNMP MIB kennis te hoeven hebben. De WMI SNMP provider zal de SNMP object gegevens ophalen en deze als een WMI class terug geven. Voor dat dit goed gaat werken moet er in WMI nog wel de MIB definities omgezet worden naar MOF definities. (omdat WMI alleen met MOF werkt). Je maakt als het ware een transformatie van de MIB naar MOF classes. Dit moet men doen met de Smi2smir compiler. Indien de translatie goed is gegaan moet de net gegenereerde MOF file in WMI gezet worden met het Mofcomp commando. Nu zijn de WMI MOF classes aanwezig maar nog niet via de normale WQL aanroep bruikbaar. De WMI SNMP provider weet namelijk nog niet welke device uitgelezen moet worden. Dit moet men aangeven in de context van de WMI connectie welke op 2 mannier uitgevoerd kan worden. Via een WMI namespace of in het WMI connectie object zelf. De meest gemakkelijke methode is deze op te nemen in het WMI connectie object.

De onderstaande procedures beschrijven de installatie en configuratie.

1.1.1 Installatie WMI SNMP provider.

Voer uit op de MOM management server.

Via de Control Panel, selecteer Add/Remove Programs.
Selecteer Add/Remove Windows Components, daarna Windows Components Wizard, en selecteer Management and Monitoring Tools.
Selecteer Simple Network Management Protocol en de WMI SNMP Provider, en druk op OK.

1.1.2 SNMP Security instellen

Na dat de installatie is uitgevoerd is de management server dus niet alleen een WMI SNMP proxy maar ook een SNMP device/trap receiver. Dit laatste kan een security issue zijn. Dus moeten we onder andere de Community string aanpassen.

Selecteer Computer Management -> Services -> SNMP Service -> Security.

Voeg toe in de “accepted community names” table:

Public met rights READ ONLY. Is alleen voor test noodzakelijk. Aangezien we de management server in ‘productie’ niet gaan uitlezen met als SNMP device. Daarvoor hebben we immers WMI.

Activeer de “Accept SNMP packets from any host”. Zodat we ook de SNMP TRAPs kunnen ontvangen.

1.1.3 Aanmaken WMI SNMP namespace.

Voordat de SNMP proxy provider weet van welk device deze de gegevens moet uitlezen, moet er een content namespace aangemaakt worden. Voer de onderstaande code uit mbv mofcomp . Je kunt deze actie , na aanpassing van de gegevens , voor elk SNMP device dat je wilt uitlezen uitvoeren , maar ook kun je in de programma code zelf deze gegevens dynamisch aanpassen. (voorkeur)

// Load classes and instances into <\\.\root> namespace

#pragma namespace("\\\\.\\root\\snmp")

[

AgentAddress( "localhost" ),

AgentReadCommunityName( "public"),

AgentWriteCommunityName( "private"),

AgentRetryCount( 1 ),

AgentRetryTimeout( 500 ),

AgentVarBindsPerPdu( 10 ),

AgentFlowControlWindowSize ( 3 )

]

instance of __Namespace

{

Name = "localhost" ;

};

1.1.4 Transformatie MIB naar MOF

In eerste instantie is er alleen de MIB file RFC1213 geïnstalleerd, verder zijn er nog geen MIB classes omgezet en daarom zijn er ook geen MOF classes aanwezig voor de WMI SNMP provider (zie de namespace: root\snmp\SMIR). Windows 2003 bevat standaard een aantal MIB files welke informatie van Windows platforms kunnen uitlezen. Indien je ook Windows computers wilt monitoren met behulp van SNMP Proxy dan moeten we deze MIB files ook importeren , in alle andere gevallen hoef je alleen de SNMP MIB files importeren welke bij het te monitoren device behoren:

1.1.4.1 Windows platform

Indien men Windows devices gaat uitlezen is het onderstaande noodzakelijk. Open een command prompt en voer uit:

cd %windir%\system32\wbem\SNMP

Smi2smir /g ..\..\hostmib.mib > hostmib.mof

Smi2smir /g ..\..\ipforwd.mib > ipforwd.mof

Smi2smir /g ..\..\nipx.mib > nipx.mof

Smi2smir /g ..\..\mib_ii.mib > mib_ii.mof

Smi2smir /g ..\..\lmmib2.mib > lmmib2.mof

Smi2smir /g ..\..\mcastmib.mib > mcastmib.mof

Smi2smir /g ..\..\rfc2571.mib > rfc2571.mof

Smi2smir /g ..\..\wfospf.mib > wfospf.mof

Smi2smir /g ..\..\dhcp.mib ..\..\msft.mib > dhcp.mof

Smi2smir /g ..\..\wins.mib ..\..\msft.mib > wins.mof

Smi2smir /g ..\..\mipx.mib ..\..\msft.mib > mipx.mof

Smi2smir /g ..\..\mripsap.mib ..\..\msft.mib > mripsap.mof

Smi2smir /g ..\..\msipbtp.mib ..\..\msft.mib > msipbtp.mof

Smi2smir /g ..\..\msiprip2.mib ..\..\msft.mib > msiprip2.mof

1.1.4.2 NON-windows bijvoorbeeld CISCO routers

In dit voorbeeld gaan gaan we de CPU belasting uit een CISCO router uitlezen. Hier voor heb je de volgende MIB file nodig: OLD-CISCO-CPU-MIB . Er zijn hier 2 versies van namelijk V1 en V2. Gebruik hier voor V1. Download via: http://tools.cisco.com/Support/SNMP/do/BrowseMIB.do?local=en&step=2 .

Deze MIB file heeft echter dependicies welke dus eerst geladen moeten worden. Download via:

http://tools.cisco.com/Support/SNMP/do/BrowseMIB.do?local=en&step=2&mibName=OLD-CISCO-CPU-MIB de onder staande files:

· SNMPv2-SMI (sla op als SNMPv2-SMI.my.txt )

· CISCO-SMI (sla op als CISCO-SMI.my.txt )

· RFC-1212 (= gelijk aan de RFC-1213 welke reeds geïnstalleerd is)

· OLD-CISCO-CPU-MIB (sla op als OLD-CISCO-CPU-MIB.my.txt )

Nu we de MIB files hebben moeten deze omgezet worden naar een MOF file en daarna moet de MOF files in WMI geladen worden. Voer het volgende commando uit op de locatie waar de MIB files staan:

1	%windir%\system32\wbem\SNMP\smi2smir.exe /g OLD-CISCO-CPU-MIB.my.txt CISCO-SMI-V1SMI.my.txt >> CISCO-OLD-CPU.MOF
2	mofcomp CISCO-OLD-CPU.MOF

Er mogen geen fouten optreden tijdens deze acties. Check daarom bij regel 1 op de tekst:

MOF file has been successfully parsed

Storing data in the repository...

Done!

En bij regel 2 op :

C:\WINDOWS\system32\wbem\SNMP\smi2smir.exe : Semantic Check successful on "OLD-CISCO-CPU-MIB.my.txt"

C:\WINDOWS\system32\wbem\SNMP\smi2smir.exe: Generated MOF successfully

Als deze bovengenoemde tekst aanwezig is dan hebben we een mogelijk werkende SNMP configuratie. In de onderstaande stap wordt uitgelegd hoe we dit kunnen testen.

1.1.5 Test SNMP

Met de volgende VB script applicatie kunnen we de WMI SNMP Proxy testen. Voordat het script uitgevoerd kan worden moet eerst de content aangepast worden zodat deze naar het juiste SNMP device wijst. Pas hiervoor regel 6 aan met het IP nummers (of DNS naam) van het SNMP device en verander regel 7 met de juiste community string. Voer daarna het script uit op de MOM management server mbv cscript .

1.	Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
2.	wmiLocator.Security_.ImpersonationLevel = 3
3.	Set wmiService = wmiLocator.ConnectServer(, "root\snmp\localhost")
4.
5.	Set wmiContext = CreateObject("WbemScripting.SWbemNamedValueSet")
6.	Set strNamedValue = wmiContext.Add("AgentAddress", "127.0.0.1")
7.	Set strNamedValue = wmiContext.Add("AgentReadCommunityName", "public")
8.
9.	Set mibDataObjects = wmiService.ExecQuery ("Select * from SNMP_RFC1213_MIB_ifTable", , , wmiContext)
10.	wscript.echo "Count: " & mibDataObjects.count
11.
12.	' Read SNMP values
13.	For Each mibDataObjecta In mibDataObjects
14.	'wscript.echo "=============================="
15.	'wscript.echo "ifDescr: " & mibDataObjecta.Properties_.item("x25OperLocalAddress")
16.	'wscript.echo "ifInNUcastPkts: " & cstr(mibDataObjecta.Properties_.item("ifInNUcastPkts"))
17.	wscript.echo "=============================="
18.
19.	For Each mibDataObject in mibDataObjecta.Properties_
20.	If Not IsNull( mibDataObject.Name ) Then
21.	str = mibDataObject.Name
22.	str = str & " == "
23.	str = str & mibDataObject.Value
24.	WScript.Echo str
25.	End If
26.	Next
27.	wscript.echo "=============================="
28.
29.	Next

In dit script wordt een SNMP class uitgelezen welke op de MOM management server aanwezig is , namelijk de ifTable uit de RFC1213 MIB waarin alle netwerk interfaces staan. Als alles goed is geconfigureerd zou je de onderstaande uitvoer moeten zien (kan afwijken als er meerdere netwerkkaarten aanwezig zijn):

Microsoft (R) Windows Script Host Version 5.6

Count: 1

==============================

ifAdminStatus == up

ifDescr == Intel(R) PRO/100 Network Connection

ifIndex == 65539

ifInDiscards == 0

ifInErrors == 0

ifInNUcastPkts == 323401

ifInOctets == 1314208699

ifInUcastPkts == 2398296

ifInUnknownProtos == 1

ifLastChange == 0

ifMtu == 1500

ifOperStatus == up

ifOutDiscards == 0

ifOutErrors == 2

ifOutNUcastPkts == 3443

ifOutOctets == 531226388

ifOutQLen == 0

ifOutUcastPkts == 2206851

ifPhysAddress == 00:06:5b:3d:6e:15

ifSpecific == 0.0

ifSpeed == 100000000

ifType == ethernet-csmacd

==============================

Hopelijk heeft deze HOWTO je geholpen. Mijzelf in iedergeval wel ;-)

Automatically Refreshing the Perf View in the MOM console

michel kamp — Wed, 18 Jan 2006 05:11:00 GMT

spotted on: http://blogs.technet.com/momteam/archive/2005/07/03/407231.aspx

Automatically Refreshing the Perf View in the MOM console

Quite a few customers have asked 'Why doesn’t the performance view automatically refresh like the other views in the operator console?" This is a great question. There are basically two reasons for this:

1. The performance view takes quite a bit of processing power on the database to generate. Having the performance view open and refreshing every 30 seconds (default view refresh rate) would be a pretty heavy load on the database.

2. More important - MOM only collects a performance counter sample every 15 minutes or so for each performance counter. The frequency depends on the rule but most of the rules shipped in the Management Packs for Microsoft products sample every 15 minutes. So - if you had the performance view open looking at CPU utilization on a particular computer. It would refresh every 30 seconds but the view would remain unchanged for 15 minutes until you had a new sample come into the database.

For those, reasons we disabled the automatic view refresh in the MOM 2005 operator console. However, there are definitely some scenarios where you do want to have automatic refresh. You may collect performance samples frequently enough for a particular counter that it would make sense to automatically refresh the view. Or, you may want to project some statistics on a large screen in your data center.

Whatever the case, people have asked me how to do it. You can’t do it using the console itself. But you can use a send key script to refresh the console "automatically" by simulating pushing F5 ("Refresh").

Here is a basic example of the script:

Set WshShell = WScript.CreateObject("WScript.Shell")

Do While 1=1

WScript.Sleep 5000

WshShell.SendKeys "{F5}"

Loop

Explanation of code:

Do While 1=1 sets up an infinite loop. This loop will run until you terminate the process. WScript.Sleep is a pause command. It will pause for 5000 milliseconds (5 seconds). You can change this number to whatever interval you want. The SendKeys method will send whatever key stroke combination you want. For a full list of commands you can send see the SendKeys Method section of the MSDN library.

To use this code do the following:

1) Open Notepad

2) Copy the code into the notepad window

3) Save the file as 'Refresh.vbs' on your desktop or somewhere else

4) Launch the operator console and navigate to the performance view that you want to automatically refresh

5) Execute the Refresh.vbs file

6) Make the MOM console the active window

This will only work for situations where you are not actually using the computer because it will send a F5 keystroke to whatever the active window is. To stop the script you need to open Task Manager and select the wscript.exe process and click the End Process button.

If you want to make the script a little more sophisticated and cycle through a bunch of Windows you can make a script like this:

Set WshShell = WScript.CreateObject("WScript.Shell")

Do While 1=1

WScript.Sleep 5000

WshShell.SendKeys "%{TAB 3}"

WScript.Sleep 500

WshShell.SendKeys "{F5}"

Loop

Replace the number after 'TAB' with the number of windows you want to cycle between minus one.

Another frequent question I get is how to refresh the web console. The web console does not refresh automatically by default. Fortunately, it is trivial to make it refresh automatically.

Add the following code to the default.aspx page inside the <Head> tags:

<Head>

</Head>

Take Control of your MOM 2005 Operator Console

michel kamp — Wed, 18 Jan 2006 04:54:00 GMT

Spotted on : http://blogs.technet.com/momteam/archive/2005/08/03/408629.aspx

Take Control of your MOM 2005 Operator Console Experience with .omc Files

The MOM 2005 Operator Console has a great hidden feature most people don't know about - .omc files! A .omc file is a file which stores your personalization settings for the console session. You can do a File/Save As at any time to start a new .omc file. From then on, while you have the file "open" your personalization settings will be stored in the .omc file. You can then put the .omc file on your desktop and open the console to a personalized view of the console.

Things that are stored in the .omc file:

Connection settings such as which Management Server to connect to.
Column hide/show settings per view
Column size settings per view
Column order settings per view
Column sort order per view
Number of panes - if you use the multipane view feature
Last view (or views in multipane) that you were looking at
Other stuff - open a .omc file in notepad to browse the XML and see what other stuff is stored in there

How is this useful? Here are some ideas how to take advantage of this feature:

Save a .omc file for each of the Management Groups that you connect to on your desktop. Then you can connect directly to the Management Group you need to without having to go to File/Console Settings to change it.
Save a .omc file for a particular layout of a multipane console
Use a single .omc file that all of your operators launch the console from so that they all get a consistent experience
Save a .omc file for a favorite view that you like to start in. That way when you launch the console you can always start there instead of the last view that you looked at.
Launch the console from the command line or Start/Run by pointing to the .omc file
Store your .omc file in a location that you normally backup files in to preserve your customizations in case of a disk failure.

Give it a try! Here are the steps:

Open the console
Go the main menu and choose File/Save As
Choose a location where you want to save your .omc file
Get the console configured the way that you want - the changes you make will be written to the .omc file while you work
File/Save at any time or close the console which will save the .omc file before exiting
Open the console by launching the .omc file instead of the usual Start/Program Files method

Too many SQL connections

michel kamp — Wed, 09 Nov 2005 07:23:00 GMT

Quote:

We have  many SQL 2000 server, that is not setup as a distributor or a

publisher. It is not involved in replication. we we have been seeing a bunch of connections on the server from user NT AUTHORITY/SYSTEM application SQLDMO executing exec sp_helpdistpublisher @check_user = 1 a number of times. Why would it be doing that, when the server is not setup for replication. One more thing.. We have MOM2005 SP1 would this be related.. ??

I'm getting the same problem. After installing the new SQL MP the connections arn't released. So I started the query analyzer. Exec a sp_who2. The process names where all SQLDMO_ and the SQL statement was exec sp_helpdistpublisher @check_user = 1 . I started a SQL profiles and monitored the server for a while. Then i did a search string with “exec sp_helpdistpublisher @check_user = 1”. On the match record i looked at the “clientProcessID” . Then i looked in the system task manager what process has this PID. And yes it was the “MOMHost.exe”. So YES it is MOM releated. I'm going to see whats the solution.

Found it on the inet:

Quote:

RESOLUTION:

To resolve the issue, you changed the contents of the SQL Server 2000
Replication Monitoring script with the contents of the one from the original
SQL 2000 MP (version 05.0.2746.0000). Since then, the process is now being
released.

Ok this solves the problem. I pasted the 05.0.2746.0000 script below:

'-------------------------------------------------------------------
' <company>Microsoft Corporation</company>
' <copyright>Copyright (c) Microsoft Corporation 2003</copyright>
' <summary>
' Alerts on Replication failures
' </summary>
'-------------------------------------------------------------------

option explicit

'Event Constants
Const EVENTID_INFORMATION = 10701

Const PROBLEMSTATE_NOTSET = 0
Const PROBLEMSTATE_GREEN = 1
Const PROBLEMSTATE_GREY = 2
Const PROBLEMSTATE_RED = 3

Const ALERT_SUCCESS = 10
Const ALERT_INFORMATION = 20
Const ALERT_WARNING = 30
Const ALERT_ERROR = 40
Const ALERT_CRITICAL_ERROR = 50
Const ALERT_SECURITY_BREACH = 60
Const ALERT_SERVICE_UNAVAILABLE = 70

'Other constants
Const SCRIPT_NAME = "SQL Server 2000 Replication Failures"

Dim g_oSQL

Sub Main()

Dim oParams, bInformationEvent, aInstances, sMsgActive
Dim i, sMessage, oEvent

Set g_oSQL = New SQL

Set oParams = ScriptContext.Parameters
bInformationEvent = CBool(oParams.Get("InformationEvent"))
Set oParams = Nothing

aInstances = Split(g_oSQL.GetSQLInstances(),",")
For i = 0 To UBound(aInstances)
If sMsgActive <> "" Then sMsgActive = sMsgActive & ","
sMsgActive = sMsgActive & aInstances(i)

  CheckReplicationFailures aInstances(i)
Next

If bInformationEvent Then
  If sMsgActive <> "" Then
   sMessage = "The script '" & SCRIPT_NAME & "' ran. The following instances are available on this server and were checked: " & sMsgActive
  Else
   sMessage = "The script '" & SCRIPT_NAME & "' ran. There were no instances currently active on this server"
  End If
  g_oSQL.CreateEvent EVENTID_INFORMATION, EVENT_TYPE_INFORMATION, sMessage
    End If

End Sub

'******************************************************************************
' Name: CheckReplicationFailures
'
' Purpose: Checks for replication failures
'
' Parameters: sInstance - the name of the instance to check
'
' Returns: nothing
'
Function CheckReplicationFailures(sInstance)
dim cnADOConnection
dim rsSQLReplicationFailures
dim strServerName
dim strProv
dim strQuery
dim strDatabaseName
dim sName
dim spath
dim sMessage

strDatabaseName = "distribution"

On Error Resume Next

sName = g_oSQL.GetSQLName(sInstance)

If sName <> "" Then

  If sInstance = "MSSQLSERVER" Then
  sPath = sName
  Else
  sPath = sName & "\" & sInstance
  End If

  Set cnADOConnection = MomCreateObject("ADODB.Connection")
  cnADOConnection.Provider = "sqloledb"
  cnADOConnection.ConnectionTimeout = 30
  strProv = "Server=" & sPath & ";Database=" & strDatabaseName & ";Trusted_Connection=yes"

  on error resume next
  Err.Clear
  cnADOConnection.Open strProv
  if 0 <> Err.number then
   on error goto 0
   Set cnADOConnection = Nothing
   Exit Function
  end if
  on error goto 0

  'SELECT
  ' dbo.MSdistribution_history.agent_id,
  ' dbo.MSdistribution_history.runstatus,
  ' dbo.MSdistribution_history.[time],
  ' dbo.MSdistribution_history.comments,
  ' dbo.MSdistribution_agents.name
  'FROM
  ' dbo.MSdistribution_history INNER JOIN
  ' dbo.MSdistribution_agents ON dbo.MSdistribution_history.agent_id = dbo.MSdistribution_agents.id
  'WHERE
  ' (dbo.MSdistribution_history.runstatus = '6') AND
  ' DATEDIFF(minute, [time], getdate()) < 10
  strQuery = "SELECT dbo.MSdistribution_history.agent_id, dbo.MSdistribution_history.runstatus, dbo.MSdistribution_history.[time], dbo.MSdistribution_history.comments, dbo.MSdistribution_agents.name FROM dbo.MSdistribution_history INNER JOIN dbo.MSdistribution_agents ON dbo.MSdistribution_history.agent_id = dbo.MSdistribution_agents.id WHERE (dbo.MSdistribution_history.runstatus = '6') AND DATEDIFF(minute, [time], getdate()) < 20"

Set rsSQLReplicationFailures = cnADOConnection.Execute(strQuery)

Do While rsSQLReplicationFailures.EOF = False

sMessage = "The SQL Server Replication Agent (" & rsSQLReplicationFailures("name").Value & ") has failed. Details: " & rsSQLReplicationFailures("comments").Value
g_oUtil.LogMessage g_oUtil.DBG_TRACE, sMessage

   g_oSQL.CreateAlert ALERT_CRITICAL_ERROR, _
    SCRIPT_NAME, _
    sMessage, _
    "", _
    ""

rsSQLReplicationFailures.MoveNext
Loop

End If

Set cnADOConnection = Nothing
Set rsSQLReplicationFailures = Nothing
End Function

Dim g_aDatabaseExcludeArray
Dim g_bDatabaseExclusion
Dim g_aJobExcludeArray
Dim g_bJobExclusion

Const SQL_CLASS_ID = "SQL"

Const SQL_SQL_SERVER_INSTANCE_NAME_ATTRIBUTE_ID =           "SQL Server Instance Name"
Const SQL_AUDIT_LEVEL_ATTRIBUTE_ID =                        "Audit Level"
Const SQL_AUTHENTICATION_MODE_ATTRIBUTE_ID =                "Authentication Mode"
Const SQL_CLUSTER_ATTRIBUTE_ID =                            "Cluster"
Const SQL_CONNECTION_NAME_ATTRIBUTE_ID =                    "Connection Name"
Const SQL_ENABLE_ERROR_REPORTING_ATTRIBUTE_ID =             "Enable Error Reporting"
Const SQL_ERROR_LOG_LOCATION_ATTRIBUTE_ID =                 "Error Log Location"
Const SQL_LANGUAGE_ATTRIBUTE_ID =                           "Language"
Const SQL_MASTER_DATABASE_LOCATION_ATTRIBUTE_ID =           "Master Database Location"
Const SQL_MASTER_DATABASE_LOG_LOCATION_ATTRIBUTE_ID =       "Master Database Log Location"
Const SQL_REPLICATION_ATTRIBUTE_ID =                        "Replication"
Const SQL_REPLICATION_DISTRIBUTION_DATABASE_ATTRIBUTE_ID = "Replication Distribution Database"
Const SQL_REPLICATION_WORKING_DIRECTORY_ATTRIBUTE_ID =      "Replication Working Directory"
Const SQL_SERVICE_NAME_ATTRIBUTE_ID =                       "Service Name"
Const SQL_SERVICE_PACK_VERSION_ATTRIBUTE_ID =               "Service Pack Version"
Const SQL_SQL_SERVER_VERSION_ATTRIBUTE_ID =                 "SQL Server Version"
Const SQL_AGENT_NAME_ATTRIBUTE_ID =                         "Agent Name"
Const SQL_INSTALL_PATH_ATTRIBUTE_ID =                       "Install Path"
Const SQL_TOOLS_PATH_ATTRIBUTE_ID =                         "Tools Path"

Const SQL_LOG_SPACE_COMPONENT_ID =                          "Log Space"
Const SQL_DB_HEALTH_COMPONENT_ID =                          "DB Health"
Const SQL_AGENT_COMPONENT_ID =                              "Agent"
Const SQL_CONNECTIVITY_COMPONENT_ID =                       "Connectivity"
Const SQL_DB_SPACE_COMPONENT_ID =                           "DB Space"
Const SQL_SQL_COMPONENT_ID =                                "SQL"

'******************************************************************************
' Name - SQL - SQL Server Utility Class
'
' Version - Microsoft Operations Manager 2005
'
' Purpose - Utility Class for SQL Server health monitoring
'
' Methods Implemented -
'
' Discovery and Service Check:
'  GetSQLInstances  - Returns a comma-delimited list of SQL instances
'  IsSQL7    - Returns True if SQL Server 7.0
'  Is64Bit    - Returns True if 64Bit
'  IsMSDE    - Returns True if MSDE
'  IsClustered   - Returns boolean for SQL clustered value
'  IsServiceStarted - Checks if the specified service is started
'  GetSQLName   - Returns the name of the SQL Server
'  GetSQLInstanceName - Returns the SQL Server instance name
'  CollectDatabaseExclusions - Collect a list of excluded servers
'       CollectJobExclusions    - Collect a list of excluded jobs
'  IsDatabaseExcluded   - Determine if a database is excluded
'       IsJobExcluded       - Determine if a job is excluded
'       IsSQLServiceStarted - Checks if the specified SQL server instance is started
'       GetSQLServiceName   - Returns the service name for a SQL instance
'       GetConnectionFailureMessage - Returns an error message for connection failures
'       GetRunningInstances - Returns arrays of the instances in a given array that are running and not running
'
' Connectivity Check:
'  SQLConnect   - Checks if a specified instance returns data
'
' Event Logging:
'  CreateEvent   - Creates a MOM event
'       CreateAlert         - Creates a MOM alert
'
' Service Discovery:
'  ServiceStateUpdate - Updates the Summary State View for a specified SRG
'
' Registry Reading:
'  ReadRegistryStringValue - Read a string registry key
'  ReadRegistryMultiStringValue - Read a multi string registry key
'  ReadRegistryDWORDValue - Read a DWORD value registry key
'       GetSQLInstanceKeyRoot - Get the root of the sql instance's registry keys
'       GetSQLInstanceKey     - Get the registry key path for a sql instance
'
' Version 12

Class SQL

Public HKEY_LOCAL_MACHINE
Public SQL_DEFAULT
Public SQL_KEY_DEFAULT
Public SQL_KEY_NAMED
Public SQL_KEY_VER
Public SQL_VAL_INSTINST

Public SERVICESTATE_GREEN
Public SERVICESTATE_YELLOW
Public SERVICESTATE_RED

Public DATABASE_EXCLUDE_FILENAME
Public DATABASE_EXCLUDE_DIRECTORY
Public JOB_EXCLUDE_FILENAME
Public JOB_EXCLUDE_DIRECTORY

Private m_oSafeRegistry

'******************************************************************************
' Name: Class_Initialize
'
' Purpose: Initialize the public methods of the class
'
' Parameters: None
'
' Returns: None
'
Private Sub Class_Initialize()

    HKEY_LOCAL_MACHINE = &H80000002
    SQL_DEFAULT = "MSSQLSERVER"
    SQL_KEY_DEFAULT = "Software\Microsoft\MSSQLServer"
    SQL_KEY_NAMED = "Software\Microsoft\Microsoft SQL Server"
    SQL_KEY_VER = "Software\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion"
    SQL_VAL_INSTINST = "InstalledInstances"

    SERVICESTATE_GREEN = 0
    SERVICESTATE_YELLOW = 1
    SERVICESTATE_RED = 2

    DATABASE_EXCLUDE_FILENAME = "SQLExclude.txt"
    DATABASE_EXCLUDE_DIRECTORY = "C:\"
    JOB_EXCLUDE_FILENAME = "SQLMPAgentExclude.txt"
    JOB_EXCLUDE_DIRECTORY = "C:\"

    Set m_oSafeRegistry = New SafeRegistry
    m_oSafeRegistry.SuppressionFlags = (m_oSafeRegistry.SUPPRESS_KEY_NOT_FOUND Or m_oSafeRegistry.SUPPRESS_VALUE_NOT_FOUND)

End Sub

'******************************************************************************
' Name: GetRunningInstances
'
' Purpose:
'
' Parameters:
'
' Returns:
'
Public Function GetRunningInstances(ByVal aInstances, ByRef aNonRunningInstances)

    Dim sWQLNameList
    Dim sInstance

    If Not IsArray(aInstances) Then Exit Function

    For Each sInstance In aInstances
        If sWQLNameList <> "" Then sWQLNameList = sWQLNameList & " or "
        sWQLNameList = sWQLNameList & "Name = '" & GetSQLServiceName(sInstance) & "'"
    Next

    If sWQLNameList <> "" Then
        Dim sWQLQuery
        sWQLQuery = "select Name from Win32_Service where (" & sWQLNameList & ")"

        Dim sNamespace
        sNamespace = "winmgmts://" & ScriptContext.TargetComputer & "/root/cimv2"

        Dim oRunning
        Set oRunning = WMIExecQuery(sNamespace, sWQLQuery & " and State = 'Running'")

        GetRunningInstances = CreateSQLInstanceArray(oRunning)

        Dim oNotRunning
        Set oNotRunning = WMIExecQuery(sNamespace, sWQLQuery & " and State <> 'Running'")

        aNonRunningInstances = CreateSQLInstanceArray(oNotRunning)
    End If

End Function

'******************************************************************************
' Name:  CreateSQLInstanceArray
'
' Purpose:
'
' Parameters:
'
' Returns:
'
Private Function CreateSQLInstanceArray(ByVal oServiceObjectSet)
    Dim aInstances

    If oServiceObjectSet.Count > 0 Then
        ReDim aInstances(oServiceObjectSet.Count - 1)
        Dim i
        i = 0
        Dim oService
        For Each oService in oServiceObjectSet
            aInstances(i) = GetSQLInstanceNameFromServiceName(oService.Name)
            i = i + 1
        Next
    End If

CreateSQLInstanceArray = aInstances
End Function

'******************************************************************************
' Name:  GetSQLInstanceKeyRoot
'
' Purpose: Gets the path to the root registry key for the instance's
'           registry values
'
' Parameters: sInstance - The SQL instance name
'
' Returns: the root registry path
'
Public Function GetSQLInstanceKeyRoot(ByVal sInstance)
    If sInstance = SQL_DEFAULT Then
        GetSQLInstanceKeyRoot = SQL_KEY_DEFAULT
    Else
        GetSQLInstanceKeyRoot = SQL_KEY_NAMED & "\" & sInstance
    End If
End Function

'******************************************************************************
' Name: GetSQLInstanceKey
'
' Purpose: Gets the path to the registry key for the instance
'
' Parameters: sInstance - The SQL instance name
'
' Returns: the registry path
'
Public Function GetSQLInstanceKey(ByVal sInstance, ByVal sKey)
GetSQLInstanceKey = GetSQLInstanceKeyRoot(sInstance) & "\" & sKey
End Function

'******************************************************************************
' Name:  GetConnectionFailureMessage
'
' Purpose: To generate a message stating the reason for failing to connect to a SQL instance
'
' Parameters: sInstance, The SQL instance
'               lErrNumber, The error number returned from the connection attempt
'               sErrDescription, The error description returned from the connection attempt
'
' Returns: The failure message
'
Public Function GetConnectionFailureMessage(sInstance, lErrNumber, sErrDescription)
    Dim sFailureReason
    Dim sSQLServiceName
    sSQLServiceName = GetSQLServiceName(sInstance)
    Dim sResult

    Select Case IsSQLServiceStarted(sInstance)
        Case -2
            sFailureReason = "is not installed"
        Case -1, 0
            sFailureReason = "is not running"
        Case 1
            Const DB_CONNECTION_FAILURE_MESSAGE = "The SQL Server management pack script ""SQL Server 2000 Replication Monitoring"" is unable to successfully connect to the SQL Server instance ""{ServiceName}"". The error message returned is ""{Description}"""
            sResult = Replace(DB_CONNECTION_FAILURE_MESSAGE, "{ServiceName}", sSQLServiceName)
            GetConnectionFailureMessage = Replace(sResult, "{Description}", sErrDescription)
            Exit Function
    End Select

    Const DB_CONNECTION_NO_SERVICE_MESSAGE = "The SQL Server service ({ServiceName}) {FailureReason}."

    sResult = Replace(DB_CONNECTION_NO_SERVICE_MESSAGE, "{ServiceName}", sSQLServiceName)
    GetConnectionFailureMessage = Replace(sResult, "{FailureReason}", sFailureReason)
End Function

'******************************************************************************
' Name: GetSQLInstances
'
' Purpose: Gets the list of instances of SQL installed on
' the specified server. These are read from the registry.
'
' Parameters: None
'
' Returns: A comma separated list of instances
'
Public Function GetSQLInstances()

Dim sInstances
Dim aKeyValues
Dim iCount
    Dim sClusterName
    Dim bAddInstance
    Dim sInstance

aKeyValues = ReadRegistryMultiStringValue(SQL_KEY_NAMED, SQL_VAL_INSTINST, ScriptContext.TargetComputer)

If Not IsNull(aKeyValues) Then
  For Each sInstance In aKeyValues
   If Not IsMSDE(sInstance) Then
       sClusterName = ReadRegistryStringValue(GetSQLInstanceKey(sInstance, "Cluster"), "ClusterName", ScriptContext.TargetComputer)
       If ScriptContext.IsTargetVirtualServer Then
           bAddInstance = (ScriptContext.TargetNetbiosComputer = sClusterName)
       Else
           bAddInstance = IsNull(sClusterName)
       End If

       If bAddInstance Then
        If sInstances <> "" Then
         sInstances = sInstances & ","
        End If

        sInstances = sInstances & sInstance
    End If
   End If
  Next
Else
  If IsSQL7(ScriptContext.TargetComputer) then
   sInstances = SQL_DEFAULT
  Else
   sInstances = ""
  End If
End If

Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "GetSQLInstances returning the following instances: " & sInstances)

GetSQLInstances = sInstances

End Function

'******************************************************************************
' Name: IsSQL7
'
' Purpose: Checks if a Server is SQL Server 7.0
'
' Parameters: sHostName, the name of the instance to check
'
' Returns: True if Microsoft SQL Server 7.0 is installed
' False if Microsoft SQL Server 7.0 is not installed
'
Public Function IsSQL7(sHostName)

If Left(ReadRegistryStringValue(SQL_KEY_VER, "CurrentVersion", ScriptContext.TargetComputer),4) = "7.00" Then
  IsSQL7 = True
  Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "SQL Server 7.0 True for: " & sHostName)
Else
  IsSQL7 = False
End if

End Function

'******************************************************************************
' Name: Is64Bit
'
' Purpose: Checks if a Server is 64Bit
'
' Parameters: sInstance, the name of the instance to check
'
' Returns: True if 64Bit
' False if not 64bit
Public Function Is64Bit(sInstance)

Dim sKeyValue

sKeyValue = ReadRegistryStringValue(GetSQLInstanceKey(SQL_DEFAULT, "Setup"), "FeatureName", ScriptContext.TargetComputer)

If sKeyValue = "SQL_Engine" Then
    Is64Bit = True
    Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "64Bit True for: " & sInstance)
Else
    Is64Bit = False
End If

End Function

'******************************************************************************
' Name: IsMSDE
'
' Purpose: Checks if a Server is MSDE
'
' Parameters: sInstance, the name of the instance to check
'
' Returns: True if Microsoft MSDE
' False if Microsoft MSDE is not installed
Public Function IsMSDE(sInstance)

Dim sKeyValue

if True = Is64Bit(sInstance) then
IsMSDE = False
Exit Function
End if

sKeyValue = ReadRegistryStringValue(GetSQLInstanceKey(sInstance, "Setup"), "ProductCode", ScriptContext.TargetComputer)

If Not IsNull(sKeyValue) Then
    IsMSDE = True
    Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "MSDE True for: " & sInstance)
Else
    IsMSDE = False
End If

End Function

'******************************************************************************
' Name: IsClustered
'
' Purpose: Checks if an instance is clustered
'
' Parameters: sInstance, the name of the instance to check
'
' Returns: 1 if the instance is clustered
' 0 if the instance is not clustered
'

Public Function IsClustered(sInstance)

Dim sClusterName

sClusterName = ReadRegistryStringValue(GetSQLInstanceKey(sInstance, "Cluster"), "ClusterName", ScriptContext.TargetComputer)
If Not IsNull(sClusterName) Then
    IsClustered = 1
    Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "The following node is a member of a cluster: " & sInstance)
Else
    IsClustered = 0
End If

End Function

'******************************************************************************
' Name:  IsSQLServiceStarted
'
' Purpose: Checks whether a given SQL service instance is running
'
' Parameters: sInstance, the name of the SQL instance to check
'
' Returns: 0 if the service is not started and not disabled
'   1 if the service is started
'   -1 if the service is not started but the service is disabled
'   -2 if there was a WMI Error getting the service status or the
'    service does not exist
'

Public Function IsSQLServiceStarted(sInstance)
IsSQLServiceStarted = IsServiceStarted(GetSQLServiceName(sInstance))
End Function

'******************************************************************************
' Name:  IsServiceStarted
'
' Purpose: Checks whether a given Windows service is running
'
' Parameters: sServiceName, the Windows service name (short)
'
' Returns: 0 if the service is not started and not disabled
'   1 if the service is started
'   -1 if the service is not started but the service is disabled
'   -2 if there was a WMI Error getting the service status or the
'    service does not exist
'

Public Function IsServiceStarted(sServiceName)

Dim oService, sObjectString

sObjectString = "winmgmts:\\" & ScriptContext.TargetComputer & "\root\cimv2"

On Error Resume Next
Err.Clear
'We want to do our own error handling here. No WMIGetObject().
Set oService = GetObject(sObjectString & ":Win32_Service.Name='" & sServiceName & "'")
If Err.number <> 0 Then
    IsServiceStarted = -2
Else
    If oService.State = "Running" Then
      IsServiceStarted = 1
    ElseIf oService.StartMode = "Disabled" Then
      IsServiceStarted = -1
    Else
      IsServiceStarted = 0
    End If
End If
Set oService = nothing
On Error Goto 0

End Function

'******************************************************************************
' Name:  GetSQLInstanceNameFromServiceName
'
' Purpose:
'
' Parameters:
'
' Returns:
'
Public Function GetSQLInstanceNameFromServiceName(ByVal sServiceName)
    If sServiceName = SQL_DEFAULT Then
        GetSQLInstanceNameFromServiceName = SQL_DEFAULT
    Else
        GetSQLInstanceNameFromServiceName = Mid(sServiceName, 7)
    End If
End Function

'******************************************************************************
' Name: GetSQLServiceName
'
' Purpose:
'
' Parameters: sInstance, the name of the instance to return the service name for
'
' Returns: The service name
'

Public Function GetSQLServiceName(sInstance)
    If sInstance = SQL_DEFAULT Then
        GetSQLServiceName = SQL_DEFAULT
    Else
        GetSQLServiceName = "MSSQL$" & sInstance
    End If
End Function

'******************************************************************************
' Name:  GetSQLName
'
' Purpose: Returns the name of the SQL server. This will be the physical
'  name of the server for a non clustered instance. It will be the
'  Virtual name for a clustered instance
'
' Parameters: sInstance, the name of the instance to return the name for
'
' Returns: The server name (virtual or physical)
'  If there was an error getting the name "" is returned
'

Public Function GetSQLName(sInstance)
Dim sClusterName

If IsClustered(sInstance) Then
    sClusterName = ReadRegistryStringValue(GetSQLInstanceKey(sInstance, "Cluster"), "ClusterName", ScriptContext.TargetComputer)

    If Not IsNull(sClusterName) Then
      GetSQLName = sClusterName
    Else
      GetSQLName = ""
    End If

Else
    GetSQLName = ScriptContext.TargetComputer
End If

Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "GetSQLName returns: " & GetSQLName)

End Function

'******************************************************************************
' Name: GetSQLInstanceName
'
' Purpose: Returns the SQL Server instance name or default
'
' Parameters: sName - The physical name of the SQL Server
' sInstance - The SQL Server instance name
'
' Returns: The default or named instance connection name
'
Public Function GetSQLInstanceName(sName, sInstance)

    If sInstance = SQL_DEFAULT Then
      GetSQLInstanceName = sName
    Else
      GetSQLInstanceName = sName & "\" & sInstance
    End If

End Function

'******************************************************************************
' Name:  SQLConnect
'
' Purpose: Creates a SQL DMO connection to an instance and runs a query
'  at the instance level
'
' Parameters: sInstance, the name of the instance to check
'
' Returns: 1 if a connection is successfully made and the query run
'   0 if a connection cannot be made or the query cannot be run
'
Public Function SQLConnect(sInstance)

dim oSQLServer, sPath, oResults, sName

On Error Resume Next

sName = GetSQLName (sInstance)
If sName <> "" Then

    Set oSQLServer = MomCreateObject("SQLDMO.SQLServer")
    If Err.number = 0 Then
      oSQLServer.LoginSecure = 1

sPath = GetSQLInstanceName(sName, sInstance)

      oSQLServer.Connect sPath
      If Err.Number = 0 Then
        Set oResults = oSQLServer.ExecuteWithResults("SELECT GETDATE()")
        If Err.Number = 0 Then
          If oResults.GetColumnString(1,1) <> "" Then
            SQLConnect = 1
          End If
        Else
          SQLConnect = 0
        End If
      Else
        SQLConnect = 0
      End If
      oSQLServer.Disconnect
      Set oSQLServer = Nothing
      Set oResults = nothing
    Else
      SQLConnect = 0
    End If
Else
    SQLConnect = 0
End If

On Error Goto 0

End Function

'******************************************************************************
' Name:  CreateEvent
'
' Purpose: Creates an event and inserts it into the MOM data stream
'  The event will be created with the source set to the script name
'
' Parameters: iEventID, the event ID
'  iEventType, the event type (see constant values at top of file)
'  sMessage, the message text for the event
'

Public Sub CreateEvent(iEventID, iEventType, sMessage)
On Error Resume Next

Dim oNewEvent

' Create a new event
Set oNewEvent = ScriptContext.CreateEvent()

' Set event properties
oNewEvent.Message = sMessage
oNewEvent.EventNumber = iEventID
oNewEvent.EventType = iEventType

' Submit the event
ScriptContext.Submit oNewEvent

Set oNewEvent = Nothing

End Sub

''******************************************************************************
' Name:  CreateAlert
'
' Purpose: Raises an alert
'
' Parameters:
' iSeverity - The severity of the alert.
' strName - The name of the alert.
' strDescription - The alert description.
' strInstance - The instance of SQL for which to issue an alert.
'   strComponent - The SQL component affected
'
Function CreateAlert(iSeverity, strName, strDescription, strInstance, strComponent)
Dim oAlert

Set oAlert = ScriptContext.CreateAlert()

oAlert.Name = strName
oAlert.Description = strDescription
oAlert.AlertSource = "SQL Server 2000 Replication Monitoring"
oAlert.AlertLevel = iSeverity

If strInstance <> "" And strComponent <> "" Then
     oAlert.ProblemState = PROBLEMSTATE_RED
     oAlert.ServerRole = SQL_CLASS_ID
        oAlert.ServerRoleInstance = strInstance
        oAlert.Component = strComponent
        oAlert.ComponentInstance = ""
    End If

ScriptContext.Submit oAlert
End Function

'******************************************************************************
' Name: CollectDatabaseExclusions
'
' Purpose: Collect the list of excluded databases
'
' Parameters: None
'
' Returns: None
'
Sub CollectDatabaseExclusions()

Dim oExcludeFile
Dim oFSO
Dim sExcludeDatabaseName

On Error Resume Next

Set oFSO = MomCreateObject("Scripting.FileSystemObject")
Set oExcludeFile = oFSO.OpenTextFile(DATABASE_EXCLUDE_DIRECTORY & DATABASE_EXCLUDE_FILENAME, 1)

If Err.number = 0 Then
        Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "Exclusions are defined for this server")
  g_bDatabaseExclusion = True
  sExcludeDatabaseName = oExcludeFile.ReadAll
  g_aDatabaseExcludeArray = Split(sExcludeDatabaseName, vbcrlf)
  oExcludeFile.Close
Else
  g_bDatabaseExclusion = False
End If

On Error Goto 0
End Sub

'******************************************************************************
' Name: IsDatabaseExcluded
'
' Purpose: Determine if a specified database is exlcuded from monitoring
'
' Parameters: Instance name and Database name
'
' Returns: True or False
'
Function IsDatabaseExcluded(sInstanceName, sDatabaseName)

Dim sInstanceDatabaseName
Dim iArrayMembers

If g_bDatabaseExclusion Then
  If sInstanceName = SQL_DEFAULT Then
   sInstanceDatabaseName = sDatabaseName
  Else
   sInstanceDatabaseName = sInstanceName & "\" & sDatabaseName
  End If

For iArrayMembers = 0 To UBound(g_aDatabaseExcludeArray)

   If UCase(g_aDatabaseExcludeArray(iArrayMembers)) = UCase(sInstanceDatabaseName) Then
    IsDatabaseExcluded = True
          Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "Database " & sDatabaseName & "on instance " & sInstanceName & " is excluded")
    Exit Function
   End If
  Next

  IsDatabaseExcluded = False
Else
  IsDatabaseExcluded = False
End If

End Function

'******************************************************************************
' Name: CollectJobExclusions
'
' Purpose: Collect the list of excluded servers/jobs
'
' Parameters: None
'
' Returns: None
'
Sub CollectJobExclusions()

Dim oExcludeFile
Dim oFSO
Dim sExcludeServerName

On Error Resume Next

Set oFSO = MomCreateObject("Scripting.FileSystemObject")
Set oExcludeFile = oFSO.OpenTextFile(JOB_EXCLUDE_DIRECTORY & JOB_EXCLUDE_FILENAME, 1)

If Err.number = 0 Then
        Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "Exclusions are defined for this server")
  g_bJobExclusion = True
  sExcludeServerName = oExcludeFile.ReadAll
  g_aJobExcludeArray = Split(sExcludeServerName, vbcrlf)
  oExcludeFile.Close
Else
  g_bJobExclusion = False
End If

On Error Goto 0
End Sub

'******************************************************************************
' Name: IsJobExcluded
'
' Purpose: Determine if a specified server/job is exlcuded from monitoring
'
' Parameters: Server name and Job name
'
' Returns: True or False
'
Function IsJobExcluded(sServerName, sJobName)
Dim sServerJobName
Dim iArrayMembers

If g_bJobExclusion Then
sServerJobName = sServerName & "\" & sJobName

For iArrayMembers = 0 To UBound(g_aJobExcludeArray)

   If UCase(g_aJobExcludeArray(iArrayMembers)) = UCase(sServerJobName) Then
    IsJobExcluded = True
          Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "Job " & sJobName & "on server " & sServerName & " is excluded")
    Exit Function
   End If
  Next

  IsJobExcluded = False
Else
  IsJobExcluded = False
End If

End Function

'******************************************************************************
' Name:  ServiceStateUpdate
'
' Purpose: Generate State Monitoring Red and Green lights for Summary State View
'
' Parameters: sStateToUpdate - eg Agent, Server, Connectivity
'    sServiceName - name of the instance eg Instance1, Instance2
'    sStateDescription - text to be included in the alert description
'    sHealthState - defined by constants
'
' Returns: Nothing
'

Public Function ServiceStateUpdate(sStateToUpdate, sServiceName, sStateSource, sStateDescription, iHealthState)

Dim lngProblemState
Dim oAlert
Dim iProblemState
Dim iAlertSev

Set oAlert = ScriptContext.CreateAlert()

oAlert.Description = sStateDescription
oAlert.AlertSource = sStateSource

oAlert.ServerRole = SQL_CLASS_ID
oAlert.ServerRoleInstance = sServiceName

Select Case sStateToUpdate
  Case "Server"
   oAlert.Name = "SQL Server 2000 Service Availability"
   oAlert.Component = SQL_SQL_COMPONENT_ID
  Case "Agent"
   oAlert.Name = "SQL Server Agent Service Availability"
   oAlert.Component = SQL_AGENT_COMPONENT_ID
  Case "Connectivity"
   oAlert.Name = "SQL Server Local Connectivity"
   oAlert.Component = SQL_CONNECTIVITY_COMPONENT_ID
  Case "DatabaseHealth"
   oAlert.Name = "SQL Server 2000 Database Health"
   oAlert.Component = SQL_DB_HEALTH_COMPONENT_ID
  Case "DatabaseSpace"
   oAlert.Name = "SQL Server Database Space"
   oAlert.Component = SQL_DB_SPACE_COMPONENT_ID
  Case "LogSpace"
   oAlert.Name = "SQL Server Log Space"
   oAlert.Component = SQL_LOG_SPACE_COMPONENT_ID
End Select

Select Case iHealthState
  Case SERVICESTATE_GREEN
   iProblemState = PROBLEMSTATE_GREEN
   iAlertSev = ALERT_CRITICAL_ERROR
  Case SERVICESTATE_YELLOW
   iProblemState = PROBLEMSTATE_RED
   iAlertSev = ALERT_WARNING
  Case SERVICESTATE_RED
   iProblemState = PROBLEMSTATE_RED
   iAlertSev = ALERT_CRITICAL_ERROR
End Select

oAlert.ProblemState = iProblemState
oAlert.AlertLevel = iAlertSev
ScriptContext.Submit oAlert

End Function

'******************************************************************************
' Name:  ReadRegistryStringValue
'
' Purpose: Return a string value from the registry (HKLM)
'
' Parameters: sKeyPath, the path to the key
'    sValueName, the name of the value to return
'    sHostName, the computer to connect to
'
' Returns: A string matching the contents of the value or null
'
Public Function ReadRegistryStringValue(sKeyPath, sValueName, sHostName)
    Dim lResult
    ReadRegistryStringValue = m_oSafeRegistry.ReadStringValue(sKeyPath, sValueName, sHostName, lResult)
End Function

'******************************************************************************
' Name:  ReadRegistryMultiStringValue
'
' Purpose: Return a multi string value from the registry (HKLM)
'
' Parameters: sKeyPath, the path to the key
'    sValueName, the name of the value to return
'    sHostName, the computer to connect to
'
' Returns: A string matching the contents of the value or null
'
Public Function ReadRegistryMultiStringValue(sKeyPath, sValueName, sHostName)
    Dim lResult
    ReadRegistryMultiStringValue = m_oSafeRegistry.ReadMultiStringValue(sKeyPath, sValueName, sHostName, lResult)
End Function

'******************************************************************************
' Name:  ReadRegistryDWORDValue
'
' Purpose: Return a DWORD value from the registry (HKLM)
'
' Parameters: sKeyPath, the path to the key
'    sValueName, the name of the value to return
'    sHostName, the computer to connect to
'
' Returns: A string matching the contents of the value or null
'
Public Function ReadRegistryDWORDValue(sKeyPath, sValueName, sHostName)
    Dim lResult
    ReadRegistryDWORDValue = m_oSafeRegistry.ReadDWORDValue(sKeyPath, sValueName, sHostName, lResult)
End Function

End Class

Class SafeRegistry
    Private m_oError
    Private m_oRegistry
    Private m_sHive
    Public SUPPRESS_KEY_NOT_FOUND
    Public SUPPRESS_VALUE_NOT_FOUND
    Public SUPPRESS_ACCESS_DENIED
    Public SUPPRESS_ALL
    Private m_lSuppressionFlags

    Private Sub Class_Initialize()
        Set m_oError = New Error
        m_sHive = "HKLM"
        Set m_oRegistry = New Registry
        SUPPRESS_KEY_NOT_FOUND = &H00000001
        SUPPRESS_VALUE_NOT_FOUND = &H00000002
        SUPPRESS_ACCESS_DENIED = &H00000004
        SUPPRESS_ALL = &HFFFFFFFF
        m_lSuppressionFlags = 0
    End Sub

    Public Property Let SuppressionFlags(ByVal lValue)
        m_lSuppressionFlags = lValue
    End Property

    Public Property Get SuppressionFlags()
        SuppressionFlags = m_lSuppressionFlags
    End Property

    Public Function ReadDWORDValue(ByVal sKeyPath, ByVal sValueName, ByVal sHostName, ByRef lResult)
        ReadDWORDValue = Null

        On Error Resume Next
        ReadDWORDValue = m_oRegistry.ReadDWORDValue(sKeyPath, sValueName, sHostName, lResult)
        m_oError.Save
        On Error Goto 0

        If m_oError.Number <> 0 Then
            ThrowScriptErrorNoAbort GET_ERROR_READING_REGISTRY_MESSAGE(m_sHive, sKeyPath, sValueName), m_oError
            Exit Function
        End If

        HandleResult m_sHive, sKeyPath, sValueName, lResult
    End Function

    Public Function ReadStringValue(ByVal sKeyPath, ByVal sValueName, ByVal sHostName, ByRef lResult)
        ReadStringValue = Null

        On Error Resume Next
        ReadStringValue = m_oRegistry.ReadStringValue(sKeyPath, sValueName, sHostName, lResult)
        m_oError.Save
        On Error Goto 0

        If m_oError.Number <> 0 Then
            ThrowScriptErrorNoAbort GET_ERROR_READING_REGISTRY_MESSAGE(m_sHive, sKeyPath, sValueName), m_oError
            Exit Function
        End If

HandleResult m_sHive, sKeyPath, sValueName, lResult
End Function

    Public Function ReadMultiStringValue(ByVal sKeyPath, ByVal sValueName, ByVal sHostName, ByRef lResult)
        ReadMultiStringValue = Null

        On Error Resume Next
        ReadMultiStringValue = m_oRegistry.ReadMultiStringValue(sKeyPath, sValueName, sHostName, lResult)
        m_oError.Save
        On Error Goto 0

        If m_oError.Number <> 0 Then
            ThrowScriptErrorNoAbort GET_ERROR_READING_REGISTRY_MESSAGE(m_sHive, sKeyPath, sValueName), m_oError
            Exit Function
        End If

        HandleResult m_sHive, sKeyPath, sValueName, lResult
    End Function

    Public Function EnumKeys(ByVal sKeyPath, ByVal sHostName, ByRef lResult)
        EnumKeys = Null

        On Error Resume Next
        EnumKeys = m_oRegistry.EnumKeys(sKeyPath, sHostName, lResult)
        m_oError.Save
        On Error Goto 0

        If m_oError.Number <> 0 Then
            ThrowScriptErrorNoAbort GET_ERROR_READING_KEY_MESSAGE(m_sHive, sKeyPath), m_oError
            Exit Function
        End If

        HandleResult m_sHive, sKeyPath, "", lResult
    End Function

    Private Sub HandleResult(ByVal sHive, ByVal sKeyPath, ByVal sValueName, ByVal lResult)
        Select Case lResult
            Case m_oRegistry.SUCCESS
                Exit Sub
            Case m_oRegistry.ERROR_ACCESS_DENIED
                If (SuppressionFlags And SUPPRESS_ACCESS_DENIED) = 0 Then
                    ThrowScriptErrorNoAbort GET_REGISTRY_ACCESS_DENIED_MESSAGE(sHive, sKeyPath, sValueName), Err
                Else
                    ScriptContext.Echo GET_REGISTRY_ACCESS_DENIED_MESSAGE(sHive, sKeyPath, sValueName)
                End If
            Case m_oRegistry.ERROR_VALUE_NOT_FOUND
                If (SuppressionFlags And SUPPRESS_VALUE_NOT_FOUND) = 0 Then
                    ThrowScriptErrorNoAbort GET_REGISTRY_VALUE_NOT_FOUND_MESSAGE(sHive, sKeyPath, sValueName), Err
                Else
                    ScriptContext.Echo GET_REGISTRY_VALUE_NOT_FOUND_MESSAGE(sHive, sKeyPath, sValueName)
                End If
            Case m_oRegistry.ERROR_KEY_NOT_FOUND
                If (SuppressionFlags And SUPPRESS_KEY_NOT_FOUND) = 0 Then
                    ThrowScriptErrorNoAbort GET_REGISTRY_KEY_NOT_FOUND_MESSAGE(sHive, sKeyPath), Err
                Else
                    ScriptContext.Echo GET_REGISTRY_KEY_NOT_FOUND_MESSAGE(sHive, sKeyPath)
                End If
            Case Else
                If (SuppressionFlags And SUPPRESS_ALL) = 0 Then
                    ThrowScriptErrorNoAbort GET_ERROR_READING_REGISTRY_MESSAGE(sHive, sKeyPath, sValueName), Err
                Else
                    ScriptContext.Echo GET_ERROR_READING_REGISTRY_MESSAGE(sHive, sKeyPath, sValueName)
                End If
        End Select
    End Sub

    Private Function GET_REGISTRY_ACCESS_DENIED_MESSAGE(ByVal sHive, ByVal sRegKey, ByVal sRegValue)
        Const REGISTRY_ACCESS_DENIED_MESSAGE = "Access denied while reading registry value [{Hive}\{RegKey}\{RegValue}]"
        Dim sResult
        sResult = Replace(REGISTRY_ACCESS_DENIED_MESSAGE, "{RegKey}", sRegKey)
        sResult = Replace(sResult, "{Hive}", sHive)
        GET_REGISTRY_ACCESS_DENIED_MESSAGE = Replace(sResult, "{RegValue}", sRegValue)
    End Function

    Private Function GET_REGISTRY_VALUE_NOT_FOUND_MESSAGE(ByVal sHive, ByVal sRegKey, ByVal sRegValue)
        Const REGISTRY_VALUE_NOT_FOUND_MESSAGE = "Registry value [{Hive}\{RegKey}\{RegValue}] not found"
        Dim sResult
        sResult = Replace(REGISTRY_VALUE_NOT_FOUND_MESSAGE, "{RegKey}", sRegKey)
        sResult = Replace(sResult, "{Hive}", sHive)
        GET_REGISTRY_VALUE_NOT_FOUND_MESSAGE = Replace(sResult, "{RegValue}", sRegValue)
    End Function

    Private Function GET_ERROR_READING_REGISTRY_MESSAGE(ByVal sHive, ByVal sRegKey, ByVal sRegValue)
        Const ERROR_READING_REGISTRY_MESSAGE = "Error while reading registry value [{Hive}\{RegKey}\{RegValue}]"
        Dim sResult
        sResult = Replace(ERROR_READING_REGISTRY_MESSAGE, "{RegKey}", sRegKey)
        sResult = Replace(sResult, "{Hive}", sHive)
        GET_ERROR_READING_REGISTRY_MESSAGE = Replace(sResult, "{RegValue}", sRegValue)
    End Function

    Function GET_REGISTRY_KEY_NOT_FOUND_MESSAGE(ByVal sHive, ByVal sRegKey)
        Const REGISTRY_KEY_NOT_FOUND_MESSAGE = "Registry key [{Hive}\{RegKey}] not found"
        Dim sResult
        sResult = Replace(REGISTRY_KEY_NOT_FOUND_MESSAGE, "{Hive}", sHive)
        GET_REGISTRY_KEY_NOT_FOUND_MESSAGE = Replace(sResult, "{RegKey}", sRegKey)
    End Function

    Function GET_ERROR_READING_KEY_MESSAGE(ByVal sHive, ByVal sRegKey)
        Const ERROR_READING_KEY_MESSAGE = "Error while reading registry key [{Hive}\{RegKey}]"
        Dim sResult
        sResult = Replace(ERROR_READING_KEY_MESSAGE, "{Hive}", sHive)
        GET_ERROR_READING_KEY_MESSAGE = Replace(sResult, "{RegKey}", sRegKey)
    End Function
End Class

Class Registry
    Private HKEY_CLASSES_ROOT
    Private HKEY_CURRENT_USER
    Private HKEY_LOCAL_MACHINE
    Private HKEY_USERS
    Private HKEY_CURRENT_CONFIG
    Private HKEY_DYN_DATA

    Public ERROR_ACCESS_DENIED
    Public ERROR_KEY_NOT_FOUND
    Public ERROR_VALUE_NOT_FOUND
    Public SUCCESS

    Private Sub Class_Initialize()
        HKEY_CLASSES_ROOT = &H80000000
        HKEY_CURRENT_USER = &H80000001
        HKEY_LOCAL_MACHINE = &H80000002
        HKEY_USERS = &H80000003
        HKEY_CURRENT_CONFIG = &H80000005
        HKEY_DYN_DATA = &H80000006

        ERROR_ACCESS_DENIED = 5
        ERROR_KEY_NOT_FOUND = 2
        ERROR_VALUE_NOT_FOUND = 1
        SUCCESS = 0
    End Sub

    Public Function ReadDWORDValue(ByVal sKeyPath, ByVal sValueName, ByVal sHostName, ByRef lResult)
        Dim oReg
        Set oReg = WMIGetObject("winmgmts://" & sHostName & "/root/default:StdRegProv")
        Dim lValue
        lResult = oReg.GetDWORDValue(HKEY_LOCAL_MACHINE, sKeyPath, sValueName, lValue)
        ReadDWORDValue = lValue
    End Function

    Public Function ReadStringValue(ByVal sKeyPath, ByVal sValueName, ByVal sHostName, ByRef lResult)
        Dim oReg
        Set oReg = WMIGetObject("winmgmts://" & sHostName & "/root/default:StdRegProv")
        Dim sValue
        lResult = oReg.GetStringValue(HKEY_LOCAL_MACHINE, sKeyPath, sValueName, sValue)
        ReadStringValue = sValue
    End Function

    Public Function ReadMultiStringValue(ByVal sKeyPath, ByVal sValueName, ByVal sHostName, ByRef lResult)
        Dim oReg
        Set oReg = WMIGetObject("winmgmts://" & sHostName & "/root/default:StdRegProv")
        Dim aValues
        lResult = oReg.GetMultiStringValue(HKEY_LOCAL_MACHINE, sKeyPath, sValueName, aValues)
        ReadMultiStringValue = aValues
    End Function

    Public Function EnumKeys(ByVal sKeyPath, ByVal sHostName, ByRef lResult)
        Dim oReg
        Set oReg = WMIGetObject("winmgmts://" & sHostName & "/root/default:StdRegProv")
        Dim aSubKeys
        lResult = oReg.EnumKey(HKEY_LOCAL_MACHINE, sKeyPath, aSubKeys)
        EnumKeys = aSubKeys
    End Function
End Class

Class Error
    Private m_lNumber
    Private m_sSource
    Private m_sDescription
    Private m_sHelpContext
    Private m_sHelpFile
    Public Sub Save()
        m_lNumber = Err.number
        m_sSource = Err.Source
        m_sDescription = Err.Description
        m_sHelpContext = Err.HelpContext
        m_sHelpFile = Err.helpfile
    End Sub
    Public Sub Raise()
        Err.Raise m_lNumber, m_sSource, m_sDescription, m_sHelpFile, m_sHelpContext
    End Sub
    Public Sub Clear()
        m_lNumber = 0
        m_sSource = ""
        m_sDescription = ""
        m_sHelpContext = ""
        m_sHelpFile = ""
    End Sub
    Public Property Get Number()
        Number = m_lNumber
    End Property
    Public Property Get Source()
        Source = m_sSource
    End Property
    Public Property Get Description()
        Description = m_sDescription
    End Property
    Public Property Get HelpContext()
        HelpContext = m_sHelpContext
    End Property
    Public Property Get HelpFile()
        HelpFile = m_sHelpFile
    End Property
End Class

Dim g_oUtil
Set g_oUtil = New Util

'==========================================================================
' Class: Util
' Description: Utility methods for logging, creating MOM alert
'==========================================================================
Class Util

' Used to say to LogMessage when/how to print the message.
Public DBG_NONE
Public DBG_ERROR
Public DBG_WARNING
Public DBG_TRACE
Public HKEY_LOCAL_MACHINE

'Internal Debug Level
Private m_nDebugLevel
Private m_oSafeRegistry
'---------------
' Methods
'---------------

'=============
' Method:       Class_Initialize
' Description: This is the constructor
' Parameters:
'=============
Private Sub Class_Initialize()
  ' Initialize Debug level constants
  DBG_TRACE = 1
  DBG_WARNING = 2
  DBG_ERROR = 3
  DBG_NONE = 4

  'by default only errors are logged
  m_nDebugLevel = DBG_ERROR

  Set m_oSafeRegistry = New SafeRegistry
  m_oSafeRegistry.SuppressionFlags = (m_oSafeRegistry.SUPPRESS_KEY_NOT_FOUND Or m_oSafeRegistry.SUPPRESS_VALUE_NOT_FOUND)

End Sub

'=============
' Method: Class_Terminate
' Description: This is the destructor
' Parameters:
'=============
Private Sub Class_Terminate()
End Sub

'=============
' Method:       SetDebugLevel
' Description: To change the debugging output level of information
'               generated by this utility.
' Parameters:
'               nLevel - Level, either DBG_NONE, DBG_TRACE,
'                        DBG_WARNING or DBG_ERROR
'=============
Public Sub SetDebugLevel(ByVal nLevel)
   m_nDebugLevel = nLevel
End Sub

'=============
' Method:       LogMessage
' Description: Log a debug message to ScriptContext
' Parameters:
'               nLevel      - Debug level for the message that we're logging.
'               strMessage - The message to write to the trace.
'=============
Public Sub LogMessage( _
  ByVal nLevel, _
  ByVal strMessage _
  )
  If (nLevel >= m_nDebugLevel) Then
   if (nLevel = DBG_ERROR) Then
    ScriptContext.Echo "[Error]: " & strMessage
   ElseIf (nLevel = DBG_WARNING) Then
    ScriptContext.Echo "[Warning]: " & strMessage
   ElseIf (nLevel = DBG_TRACE) Then
    ScriptContext.Echo "[Trace]:" & strMessage
   End If
  End If
End Sub

'=============
' Method:       SplitVerStr
' Description: Split a version string into integers.
' Parameters:
'               strVer           - The version string.
'               iMajor           - The output integer for major version.
'               iMinor           - The output integer for minor version.
'=============
Function SplitVerStr(ByVal strVer, ByRef iMajor, ByRef iMinor)
  Dim iPos
  Dim strMinor

  iPos = InStr(strVer, ".")

  if 0 = iPos then
   iMajor = CInt(strVer)
   iMinor = 0
   Exit Function
  end if

  iMajor = CInt(Left(strVer, iPos))
  strMinor = Right(strVer, Len(strVer)-iPos)

  iPos = InStr(strMinor, ".")

  if 0 = iPos then
   iMinor = CInt(strMinor)
  else
   iMinor = CInt(Left(strMinor, iPos))
  end if

End Function

'=============
' Method:       ReadRegistryValue
' Description: Used to read strings from the registry
' Parameters:
'               Root  - Root of the registry (HKEY_LOCAL_MACHINE, HKEY_USERS etc. Refer to constants defined earlier)
'               strKeyPath - Key path for the Registry key to read
'                             (like "SOFTWARE\Microsoft\WindowsNT\CurrentVersion")
'               strValueName - Name of the registry entry to read (like "SoftwareType")
'
' Returns:
'    The value of the registry key specified. "Nothing" if it fails. Callee needs to handle null value return.
'=============
Public Function ReadRegistryValue(strKeyPath, strValueName, strHostName)
     Dim lResult
     Dim strValueData
     strValueData = m_oSafeRegistry.ReadStringValue(strKeyPath, strValueName, strHostName, lResult)

  If Not IsNull(strValueData) Then
   Call LogMessage(DBG_TRACE, "Value of Registry Key: " & strKeyPath & "\" & strValueName & " = " & strValueData)
   ReadRegistryValue = strValueData
  Else
   Call LogMessage(DBG_ERROR, "Reading Registry Key: " & strKeyPath & "\" & strValueName & " Failed!" )
   ReadRegistryValue = empty
  End If
End Function

End Class

Function IsValidObject(ByVal oObject)
    IsValidObject = False

    If IsObject(oObject) Then
        If Not oObject Is Nothing Then
            IsValidObject = True
        End If
    End If
End Function

Function WMIGetObject(sNamespace)
'
' WMIGetObject :: Returns the WMI object requested.
'
'
Dim oWMI

On Error Resume Next
Set oWMI = GetObject(sNamespace)
If IsEmpty(oWMI) Then
ThrowScriptError "Unable to open WMI Namespace '" & sNamespace & "'. Check to see if the WMI service is enabled and running, and ensure this WMI namespace exists.", Err
End If
On Error Goto 0

Set WMIGetObject = oWMI
Set oWMI = Nothing

End Function

Function WMIGetInstance(sNamespace, sInstance)
'
' WMIGetInstance :: Returns WMI Instance requested.
'
'
Dim oWMI, oInstance, nInstanceCount

Set oInstance = oWMI.InstancesOf(sInstance)
If IsEmpty(oInstance) Or Err.Number <> 0 Then
ThrowScriptError "The class name '" & sInstance & "' returned no instances. Please check to see if this is a valid WMI class name.", Err
End If

'Determine if we queried a valid WMI class - Count will return 0 or empty

nInstanceCount = oInstance.Count
If Err.Number <> 0 Then
ThrowScriptError "The class name '" & sInstance & "' did not return any valid instances. Please check to see if this is a valid WMI class name.", Err
End If
On Error Goto 0

Set WMIGetInstance = oInstance

Set oInstance = Nothing
Set oWMI = Nothing

End Function

Function WMIExecQuery(sNamespace, sQuery)
'
' WMIExecQuery :: Executes the WMI query and returns the result set.
'
'
Dim oWMI, oQuery, nInstanceCount

On Error Resume Next
Set oWMI = GetObject(sNamespace)
If IsEmpty(oWMI) Then
ThrowScriptError "Unable to open WMI Namespace '" & sNamespace & "'. Check to see if the WMI service is enabled and running, and ensure this WMI namespace exists.", Err
End If

Set oQuery = oWMI.ExecQuery(sQuery)
If IsEmpty(oQuery) Or Err.Number <> 0 Then
ThrowScriptError "The Query '" & sQuery & "' returned an invalid result set. Please check to see if this is a valid WMI Query.", Err
End If

'Determine if we queried a valid WMI class - Count will return 0 or empty
nInstanceCount = oQuery.Count
If Err.Number <> 0 Then
ThrowScriptError "The Query '" & sQuery & "' did not return any valid instances. Please check to see if this is a valid WMI Query.", Err
End If
On Error Goto 0

Set WMIExecQuery = oQuery

Set oQuery = Nothing
Set oWMI = Nothing
End Function

Function WMIGetInstanceNoAbort(sNamespace, sInstance)
'
' WMIGetInstanceNoAbort :: Returns WMI Instance requested.
'
'
Dim oWMI, oInstance, nInstanceCount

On Error Resume Next
Set oWMI = GetObject(sNamespace)
If Not IsEmpty(oWMI) Then

Set oInstance = oWMI.InstancesOf(sInstance)
If Not IsEmpty(oInstance) And Err.Number = 0 Then

   'Determine if we queried a valid WMI class - Count will return 0 or empty
   nInstanceCount = oInstance.Count
   If Err.Number = 0 Then
    Set WMIGetInstanceNoAbort = oInstance
    Exit Function
   End If
  End If
End If
On Error Goto 0

Set WMIGetInstanceNoAbort = Nothing

Set oInstance = Nothing
Set oWMI = Nothing

End Function

Const wbemCimtypeUseDefault = 0   'Use Default Type CIM type - Custom
Const wbemCimtypeSint16     = 2   'Signed 16-bit integer
Const wbemCimtypeSint32     = 3   'Signed 32-bit integer
Const wbemCimtypeReal32     = 4   '32-bit real number
Const wbemCimtypeReal64     = 5   '64-bit real number
Const wbemCimtypeString     = 8   'String
Const wbemCimtypeBoolean    = 11 'Boolean value
Const wbemCimtypeObject     = 13 'CIM object
Const wbemCimtypeSint8      = 16 'Signed 8-bit integer
Const wbemCimtypeUint8      = 17 'Unsigned 8-bit integer
Const wbemCimtypeUint16     = 18 'Unsigned 16-bit integer
Const wbemCimtypeUint32     = 19 'Unsigned 32-bit integer
Const wbemCimtypeSint64     = 20 'Signed 64-bit integer
Const wbemCimtypeUint64     = 21 'Unsigned 64-bit integer
Const wbemCimtypeDatetime   = 101 'Date/time value
Const wbemCimtypeReference = 102 'Reference to a CIM object
Const wbemCimtypeChar16     = 103 '16-bit character

Const ErrAction_None = 0
Const ErrAction_Trace = 1
Const ErrAction_ThrowError = 16
Const ErrAction_Abort = 32
Const ErrAction_ThrowErrorAndAbort = 48

Function GetWMIProperty(oWmi, sPropName, nCIMType, ErrAction)
Dim sValue, oWmiProp

If Not IsObject(oWmi) Then
If (ErrAction And ErrAction_ThrowError) = ErrAction_ThrowError Then _
ThrowScriptErrorNoAbort "Accessing property on invalid WMI object.", Err

If (ErrAction And ErrAction_Abort) = ErrAction_Abort Then _
ScriptContext.Quit()

GetWMIProperty = ""
Exit Function
End If

On Error Resume Next
Set oWmiProp = oWmi.Properties_.Item(sPropName)
If Err.Number <> 0 Then
If (ErrAction And ErrAction_ThrowError) = ErrAction_ThrowError Then _
ThrowScriptErrorNoAbort "An error occurred while accessing WMI property: '" & sPropName & "'.", Err

  If (ErrAction And ErrAction_Abort) = ErrAction_Abort Then _
   ScriptContext.Quit()
End If
On Error Goto 0

If IsValidObject(oWmiProp) Then
  sValue = oWmiProp.Value

  If IsNull(sValue) Then
   '
   ' If value is null, return blank to avoid any issues
   '
   GetWMIProperty = ""

Else

   Select Case (oWmiProp.CIMType)
    Case wbemCimtypeString, wbemCimtypeSint16, wbemCimtypeSint32, wbemCimtypeReal32, wbemCimtypeReal64, wbemCimtypeSint8, wbemCimtypeUint8, wbemCimtypeUint16, wbemCimtypeUint32, wbemCimtypeSint64, wbemCimtypeUint64:
     GetWMIProperty = Trim(CStr(sValue))
    Case wbemCimtypeBoolean:
     If sValue = 1 Or UCase(sValue) = "TRUE" Then
      GetWMIProperty = "True"
     Else
      GetWMIProperty = "False"
     End If
    Case wbemCimtypeDatetime:

     Dim sTmpStrDate

     '
     ' First attempt to convert the whole wmi date string
     '
     sTmpStrDate = Mid(sValue, 5, 2) & "/" & _
       Mid(sValue, 7, 2) & "/" & _
       Left(sValue, 4) & " " & _
       Mid (sValue, 9, 2) & ":" & _
       Mid(sValue, 11, 2) & ":" & _
       Mid(sValue, 13, 2)
     If IsDate(sTmpStrDate) Then
      GetWMIProperty = CDate(sTmpStrDate)
     Else

      '
      ' Second, attempt just to convert the YYYYMMDD
      '
      sTmpStrDate = Mid(sValue, 5, 2) & "/" & _
        Mid(sValue, 7, 2) & "/" & _
        Left(sValue, 4)
      If IsDate(sTmpStrDate) Then
       GetWMIProperty = CDate(sTmpStrDate)
      Else
       '
       ' Nothing works - return passed in string
       '
       GetWMIProperty = sValue
      End If

     End If

    Case Else:
     GetWMIProperty = ""
   End Select
  End If
Else

If (ErrAction And ErrAction_ThrowError) = ErrAction_ThrowError Then _
ThrowScriptErrorNoAbort "An error occurred while accessing WMI property: '" & sPropName & "'.", Err

If (ErrAction And ErrAction_Abort) = ErrAction_Abort Then _
ScriptContext.Quit()

GetWMIProperty = ""

End If

If (ErrAction And ErrAction_Trace) = ErrAction_Trace Then _
ScriptContext.Echo " + " & sPropName & " :: '" & GetWMIProperty & "'"

End Function

Const EVENT_TYPE_SUCCESS = 0
Const EVENT_TYPE_ERROR = 1
Const EVENT_TYPE_WARNING = 2
Const EVENT_TYPE_INFORMATION = 4
Const EVENT_TYPE_AUDITSUCCESS = 8
Const EVENT_TYPE_AUDITFAILURE = 16

Function ThrowScriptError(sMessage, oErr)
'
' ThrowScriptError :: Creates an event and sends it back to the mom server
'
'
On Error Resume Next
ThrowScriptErrorNoAbort sMessage, oErr
ScriptContext.Quit()
End Function

Function ThrowScriptErrorNoAbort(sMessage, oErr)
'
' ThrowScriptError :: Creates an event and sends it back to the mom server
'
'

Dim sErrDescription, sErrNumber
sErrDescription = oErr.Description
sErrNumber = oErr.Number

On Error Resume Next

Dim oScriptErrorEvent

Set oScriptErrorEvent = ScriptContext.CreateEvent()
With oScriptErrorEvent
  .EventNumber = 40000
  .EventType = EVENT_TYPE_ERROR
  .Message = sMessage
  .SetEventParameter "Microsoft SQL Server"
  .SetEventParameter sMessage
  .SetEventParameter sErrDescription
  .SetEventParameter sErrNumber
End With
ScriptContext.Submit oScriptErrorEvent
ScriptContext.Echo "ThrowScriptError('" & sMessage & "')"
End Function

Function MomCreateObject(sProgramId)
'
' MomCreateObject :: Creates an automation object.
'
'
On Error Resume Next
Set MomCreateObject = CreateObject(sProgramId)
If Err.Number <> 0 Then
ThrowScriptError "Unable to create automation object '" & sProgramId & "'", Err
End If
On Error Goto 0
End Function

Michel

SYSTEM OPERATIONS [Michel Kamp]

This Is My Last BLOG Post

MOM ORACLE MANAGEMENT PACK

PART 1: AXIOS ASSYST MOM PRODUCT CONNECTOR

MOM MP: Basic Windows Security check

PART 2: Mass MOM rule Editor

PART 1: Mass MOM rule Editor

MP: Sophos v4

HOWTO: bulk export / import MOM management packs

Testing and developing MOM scripts outside MOM.

MOM 2005 MOBILE PHONE OPERATOR CONSOLE

MOM 2000/2005 WAP Operator Console is born!.

[HOWTO] Installatie SNMP op de MOM management server

Sorry , only in Dutch. Use AltaVista's Babelfish to translate

1.1 Installatie SNMP op de MOM management server

1.1.1 Installatie WMI SNMP provider.

1.1.2 SNMP Security instellen

1.1.3 Aanmaken WMI SNMP namespace.

1.1.4 Transformatie MIB naar MOF

1.1.4.1 Windows platform

1.1.4.2 NON-windows bijvoorbeeld CISCO routers

1.1.5 Test SNMP

Automatically Refreshing the Perf View in the MOM console

spotted on: http://blogs.technet.com/momteam/archive/2005/07/03/407231.aspx Automatically Refreshing the Perf View in the MOM console

Take Control of your MOM 2005 Operator Console

Spotted on : http://blogs.technet.com/momteam/archive/2005/08/03/408629.aspx

Take Control of your MOM 2005 Operator Console Experience with .omc Files

Too many SQL connections

spotted on: http://blogs.technet.com/momteam/archive/2005/07/03/407231.aspx

Automatically Refreshing the Perf View in the MOM console