deprecated nsclient removed

nsclient/install.bat

@@ -1,16 +0,0 @@
-@echo off
-
-net stop NSClientpp
-
-xcopy "%ProgramFiles%\NSclient++\*.ini" "%ProgramFiles%\NSclient++\backup\"  /i /h /y 
-xcopy .\trunk\*.*  "%ProgramFiles%\NSclient++\" /e /i /h /y 
-
-"%ProgramFiles%\NSclient++\nsclient++.exe" -uninstall
-"%ProgramFiles%\NSclient++\nsclient++.exe" -install
-
-
-echo "-------- INSTALL COMPLETED --------------"
-echo "Remember to notepad %ProgramFiles%\NSclient++\check_eva.ini before completing install"
-pause
-
-Net Start NSClientpp

nsclient/trunk/NSC.ini

@@ -1,65 +0,0 @@
-[modules]
-CheckSystem.dll
-CheckDisk.dll
-NRPEListener.dll
-CheckExternalScripts.dll
-NSClientListener.dll
-
-[Settings]
-allowed_hosts=10.100.1.170
-use_file=1
-
-[log]
-
-[NSClient]
-
-[NRPE]
-allow_arguments=1
-allow_nasty_meta_chars=1
-use_ssl=1
-
-[Check System]
-CPUBufferSize=1h
-CheckResolution=10
-;check_all_services[SERVICE_BOOT_START]=ignored
-;check_all_services[SERVICE_SYSTEM_START]=ignored
-check_all_services[SERVICE_AUTO_START]=started
-;check_all_services[SERVICE_DEMAND_START]=ignored
-;check_all_services[SERVICE_DISABLED]=stopped
-
-[External Script]
-allow_arguments=0
-allow_nasty_meta_chars=0
-
-[External Scripts]
-get_disks=scripts/df.exe -b -r
-get_time=scripts/date.exe +%s
-get_netstat=netstat -an
-get_ifconfig=ipconfig /all
-get_systeminfo=cmd scripts/get_systeminfo.bat
-get_computername=cmd scripts/get_computername.bat
-
-check_exchange_mailbox=cmd /c scripts\check_exchange\test.bat
-check_ad=cmd /c scripts\check_ad\check_ad.exe
-check_hpacucli=cmd /c scripts\check_hpacucli\check_hpacucli.exe
-check_eva=cmd /c scripts\check_eva\check_eva.exe 
-[External Alias]
-
-[NRPE Handlers]
-check_mailbox_health=cmd /c echo Scripts\check_exchange\MailboxHealth.ps1 | PowerShell.exe -Command -
-check_public_folders=cmd /c echo Scripts\check_exchange\PublicFoldersMounted.ps1 | PowerShell.exe -Command -
-check_replication=cmd /c echo Scripts\check_exchange\ReplicationHealth.ps1 | PowerShell.exe -Command -
-
-
-[NRPE Client Handlers]
-
-
-[include]
-local.ini
-wmi.ini
-check_eva.ini
-
-[includes]
-local.ini
-wmi.ini
-check_eva.ini

nsclient/trunk/check_eva.ini

@@ -1,30 +0,0 @@
-[modules]
-NSCAAgent.dll
-CheckExternalScripts.dll
-
-[External Scripts]
-eva-check_systems=cmd /c scripts\check_eva\check_eva.exe --mode check_systems --host localhost --username evauser --password Root1234 --nagios_myhostname commandview.okhysing.is --phone-home
-eva-check_disks=cmd /c scripts\check_eva\check_eva.exe --mode check_disks --host localhost --username evauser--password Root1234 --nagios_myhostname commandview.okhysing.is --phone-home
-eva-check_diskgroups=cmd /c scripts\check_eva\check_eva.exe --mode check_diskgroups --host localhost --username evauser--password Root1234 --nagios_myhostname commandview.okhysing.is --phone-home
-eva-check_diskshelfs=cmd /c scripts\check_eva\check_eva.exe --mode check_diskshelfs --host localhost --username evauser--password Root1234 --nagios_myhostname commandview.okhysing.is --phone-home
-eva-check_controllers=cmd /c scripts\check_eva\check_eva.exe --mode check_controllers --host localhost --username evauser--password Root1234 --nagios_myhostname commandview.okhysing.is --phone-home
-
-
-
-[NSCA Agent]
-hostname=commandview.example.local
-
-interval=300
-encryption_method=1
-password=prufa
-nsca_host=94.142.154.11
-nsca_port=5667
-command_timeout=300
-
-
-[NSCA Commands]
-HP EVA Systems=eva-check_systems
-HP EVA Diskshelves=eva-check_diskshelfs
-HP EVA Disks=eva-check_disks
-HP EVA Diskgroups=eva-check_diskgroups
-HP EVA Controllers=eva-check_controllers

nsclient/trunk/license.txt

@@ -1,340 +0,0 @@
-		    GNU GENERAL PUBLIC LICENSE
-		       Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-                       51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-			    Preamble
-
-  The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users.  This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it.  (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.)  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
-  To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have.  You must make sure that they, too, receive or can get the
-source code.  And you must show them these terms so they know their
-rights.
-
-  We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
-  Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software.  If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
-  Finally, any free program is threatened constantly by software
-patents.  We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary.  To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-
-		    GNU GENERAL PUBLIC LICENSE
-   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
-  0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope.  The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
-  1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
-  2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
-    a) You must cause the modified files to carry prominent notices
-    stating that you changed the files and the date of any change.
-
-    b) You must cause any work that you distribute or publish, that in
-    whole or in part contains or is derived from the Program or any
-    part thereof, to be licensed as a whole at no charge to all third
-    parties under the terms of this License.
-
-    c) If the modified program normally reads commands interactively
-    when run, you must cause it, when started running for such
-    interactive use in the most ordinary way, to print or display an
-    announcement including an appropriate copyright notice and a
-    notice that there is no warranty (or else, saying that you provide
-    a warranty) and that users may redistribute the program under
-    these conditions, and telling the user how to view a copy of this
-    License.  (Exception: if the Program itself is interactive but
-    does not normally print such an announcement, your work based on
-    the Program is not required to print an announcement.)
-
-These requirements apply to the modified work as a whole.  If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works.  But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
-  3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
-    a) Accompany it with the complete corresponding machine-readable
-    source code, which must be distributed under the terms of Sections
-    1 and 2 above on a medium customarily used for software interchange; or,
-
-    b) Accompany it with a written offer, valid for at least three
-    years, to give any third party, for a charge no more than your
-    cost of physically performing source distribution, a complete
-    machine-readable copy of the corresponding source code, to be
-    distributed under the terms of Sections 1 and 2 above on a medium
-    customarily used for software interchange; or,
-
-    c) Accompany it with the information you received as to the offer
-    to distribute corresponding source code.  (This alternative is
-    allowed only for noncommercial distribution and only if you
-    received the program in object code or executable form with such
-    an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it.  For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable.  However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-
-  4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License.  Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-  5. You are not required to accept this License, since you have not
-signed it.  However, nothing else grants you permission to modify or
-distribute the Program or its derivative works.  These actions are
-prohibited by law if you do not accept this License.  Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
-  6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions.  You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
-  7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all.  For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices.  Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-
-  8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded.  In such case, this License incorporates
-the limitation as if written in the body of this License.
-
-  9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time.  Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number.  If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation.  If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
-  10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission.  For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this.  Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
-			    NO WARRANTY
-
-  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
-  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
-		     END OF TERMS AND CONDITIONS
-
-	    How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) <year>  <name of author>
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
-
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
-    Gnomovision version 69, Copyright (C) year name of author
-    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
-    This is free software, and you are welcome to redistribute it
-    under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License.  Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary.  Here is a sample; alter the names:
-
-  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
-  `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
-  <signature of Ty Coon>, 1 April 1989
-  Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs.  If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library.  If this is what you want to do, use the GNU Library General
-Public License instead of this License.

nsclient/trunk/local.ini

@@ -1,7 +0,0 @@
-[External Scripts]
-get_disks=scripts/df.exe -b -r
-get_time=scripts/date.exe +%s
-get_netstat=netstat -an
-get_ifconfig=ipconfig /all
-check_ad=scripts/check_ad/check_ad.exe --dc --noeventlog
-

nsclient/trunk/scripts/check_60s.bat

@@ -1,4 +0,0 @@
-@rem PING 127.0.0.1 -n 11 
-@PING 1.1.1.1 -n 1 -w 60000 > NUL
-@echo OK: Everything is going to be fine
-@exit 0

nsclient/trunk/scripts/check_ad/check_ad.html

@@ -1,164 +0,0 @@
-<?xml version="1.0" ?>
-<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
-<html xmlns="http://www.w3.org/1999/xhtml">
-<head>
-<title>check_ad - Nagios NRPE Plugin for Dell Hardware Check</title>
-<meta http-equiv="content-type" content="text/html; charset=utf-8" />
-<link rev="made" href="mailto:" />
-</head>
-
-<body style="background-color: white">
-
-<p><a name="__index__"></a></p>
-<!-- INDEX BEGIN -->
-<!--
-
-<ul>
-
-	<li><a href="#name">NAME</a></li>
-	<li><a href="#synopsis">SYNOPSIS</a></li>
-	<li><a href="#description">DESCRIPTION</a></li>
-	<li><a href="#options">OPTIONS</a></li>
-	<li><a href="#exit_values">EXIT VALUES</a></li>
-	<li><a href="#author">AUTHOR</a></li>
-	<li><a href="#see_also">SEE ALSO</a></li>
-	<li><a href="#copyright">COPYRIGHT</a></li>
-	<li><a href="#version">VERSION</a></li>
-	<li><a href="#changelog">CHANGELOG</a></li>
-</ul>
--->
-<!-- INDEX END -->
-
-<p>
-</p>
-<h1><a name="name">NAME</a></h1>
-<p>check_ad - Nagios NRPE plugin for Active Directory health check</p>
-<p>
-</p>
-<hr />
-<h1><a name="synopsis">SYNOPSIS</a></h1>
-<p><strong>check_ad</strong> [<strong>--dc</strong>] [<strong>--member</strong>] [<strong>--noeventlog</strong>] [<strong>--nokerberos</strong>][<strong>--help</strong>]</p>
-<p>
-</p>
-<hr />
-<h1><a name="description">DESCRIPTION</a></h1>
-<p><strong>check_ad</strong> works as a Nagios NRPE plugin for Active Directory health check.</p>
-<p>
-</p>
-<hr />
-<h1><a name="options">OPTIONS</a></h1>
-<dl>
-<dt><strong><a name="item__2d_2ddc"><strong>--dc</strong></a></strong>
-
-<dd>
-<p>Checks domain controller functionality by using <em>dcdiag</em> tool from Windows Support Tools. Following dcdiag tests are performed :</p>
-</dd>
-<dd>
-<pre>
- services, replications, advertising, fsmocheck, ridmanager, machineaccount, kccevent, frssysvol (post-Windows 2000 only), frsevent (post-Windows 2000 only),</pre>
-</dd>
-</li>
-<dt><strong><a name="item__2d_2dmember"><strong>--member</strong></a></strong>
-
-<dd>
-<p>Checks domain member functionality by using <em>netdiag</em> tool from Windows Support Tools. Following netdiag tests are performed :</p>
-</dd>
-<dd>
-<pre>
- member, netbt, dns, dsgetdc, ldap, kerberos</pre>
-</dd>
-</li>
-<dt><strong><a name="item__2d_2dnoeventlog"><strong>--noeventlog</strong></a></strong>
-
-<dd>
-<p>Don't run the dc tests kccevent and frsevent, since their 24-hour scope may not be too relevant for Nagios.</p>
-</dd>
-</li>
-<dt><strong><a name="item__2d_2dnokerberos"><strong>--nokerberos</strong></a></strong>
-
-<dd>
-<p>Don't run the member test kerberos due to netdiag bug (See Microsoft KB870692)</p>
-</dd>
-</li>
-<dt><strong><a name="item__2d_2dhelp"><strong>--help</strong></a></strong>
-
-<dd>
-<p>Produces help message.</p>
-</dd>
-</li>
-</dl>
-<p>
-</p>
-<hr />
-<h1><a name="exit_values">EXIT VALUES</a></h1>
-<pre>
- 0 OK
- 1 WARNING
- 2 CRITICAL
- 3 UNKNOWN</pre>
-<p>
-</p>
-<hr />
-<h1><a name="author">AUTHOR</a></h1>
-<p>Tevfik Karagulle <a href="http://www.itefix.no">http://www.itefix.no</a></p>
-<p>
-</p>
-<hr />
-<h1><a name="see_also">SEE ALSO</a></h1>
-<dl>
-<dt><strong><a name="item_nagios_web_site_http_3a_2f_2fwww_2enagios_2eorg">Nagios web site <a href="http://www.nagios.org">http://www.nagios.org</a></a></strong>
-
-<dt><strong><a name="item_nagios_nrpe_documentation_http_3a_2f_2fnagios_2eso">Nagios NRPE documentation <a href="http://nagios.sourceforge.net/docs/nrpe/NRPE.pdf">http://nagios.sourceforge.net/docs/nrpe/NRPE.pdf</a></a></strong>
-
-<dt><strong><a name="item_dcdiag_documentation_http_3a_2f_2ftechnet2_2emicro">DCDIAG documentation <a href="http://technet2.microsoft.com/windowsserver/en/library/f7396ad6-0baa-4e66-8d18-17f83c5e4e6c1033.mspx">http://technet2.microsoft.com/windowsserver/en/library/f7396ad6-0baa-4e66-8d18-17f83c5e4e6c1033.mspx</a></a></strong>
-
-<dt><strong><a name="item_netdiag_documentation_http_3a_2f_2ftechnet2_2emicr">NETDIAG documentation <a href="http://technet2.microsoft.com/windowsserver/en/library/cf4926db-87ea-4f7a-9806-0b54e1c00a771033.mspx">http://technet2.microsoft.com/windowsserver/en/library/cf4926db-87ea-4f7a-9806-0b54e1c00a771033.mspx</a></a></strong>
-
-</dl>
-<p>
-</p>
-<hr />
-<h1><a name="copyright">COPYRIGHT</a></h1>
-<p>This program is distributed under the Artistic License. <a href="http://www.opensource.org/licenses/artistic-license.php">http://www.opensource.org/licenses/artistic-license.php</a></p>
-<p>
-</p>
-<hr />
-<h1><a name="version">VERSION</a></h1>
-<p>Version 1.4, January 2009</p>
-<p>
-</p>
-<hr />
-<h1><a name="changelog">CHANGELOG</a></h1>
-<dl>
-<dt><strong><a name="item_changes_from_1_2e3">changes from 1.3</a></strong>
-
-<dd>
-<pre>
- - Windows 2008 support (checks are done in lowercase only)
- - Dropped member test 'trust' as it requires domain admin privileges thus introducing a security weakness.
- - Introducing option 'nokerberos' due to netdiag bug (see Microsoft KB870692)</pre>
-</dd>
-<dt><strong><a name="item_changes_from_1_2e2">changes from 1.2</a></strong>
-
-<dd>
-<pre>
- - Add command line option 'noeventlog'.</pre>
-</dd>
-<dt><strong><a name="item_changes_from_1_2e1">changes from 1.1</a></strong>
-
-<dd>
-<pre>
- - Support for Windows 2000 domains
- - Use CRITICAL instead of ERROR</pre>
-</dd>
-<dt><strong><a name="item_changes_from_1_2e0">changes from 1.0</a></strong>
-
-<dd>
-<pre>
- - remove sysevent test as it can be many other event producers than active directory.</pre>
-</dd>
-</dl>
-
-</body>
-
-</html>

nsclient/trunk/scripts/check_ad/check_ad.pl

@@ -1,301 +0,0 @@
-#####################
-#
-#	check_ad.pl - Nagios NRPE plugin to test Active Directory functionality
-#
-#	This plugin requires tools netdiag and dcdiag from Support Tools
-#
-#      This program is distributed under the Artistic License.
-#      (http://www.opensource.org/licenses/artistic-license.php)
-#	Copyright 2007-2009, Tevfik Karagulle, ITeF!x Consulting (http://itefix.no)
-
-use strict;
-use warnings;
-use Getopt::Long;
-use Win32;
-
-our $VERSION = "1.4";
-
-our $OK = 0;
-our $WARNING = 1;
-our $CRITICAL = 2;
-our $UNKNOWN = 3;
-
-our %status_text = (
-	$OK => "OK",
-	$WARNING => "WARNING",
-	$CRITICAL => "CRITICAL",
-	$UNKNOWN => "UNKNOWN"
-);
-
-our $is2000 = (Win32::GetOSName() eq 'Win2000');
-
-our $member = 0;
-our $dc = 0;
-our $help = 0;
-our $eventlog = 1; # take kccevent/frsevent into test set
-our $kerbtest = 1; # take kerberos into test set 
-
-GetOptions (
-	"member" => \$member,  
-	"dc"   => \$dc,
-	"eventlog!" => \$eventlog,
-	"kerberos!" => \$kerbtest,
-	"help" => \$help
-) || PrintUsage();
-
-# Form netdiag/dcdiag command arguments
-our $netdiagcmd = "netdiag /test:dns /test:dsgetdc /test:ldap";
-our $dcdiagcmd = "dcdiag /test:services /test:replications /test:advertising /test:fsmocheck /test:ridmanager /test:machineaccount";
-
-# add post-2000 spesific dcdiag tests
-$dcdiagcmd .= (not $is2000) ? " /test:frssysvol" : "";
-# add eventlog tests if requested
-$dcdiagcmd .= ($eventlog) ? ($is2000 ? " /test:kccevent" : " /test:frsevent /test:kccevent") : "";
-# add kerberos test if requested
-$netdiagcmd .= ($kerbtest) ? " /test:kerberos" : "";
-
-$member && MemberTests();
-$dc && DcTests();
-$help && PrintUsage();
-
-#### SUBROUTINES ####
-
-#### MemberTests ####
-sub MemberTests
-{
-	open NETDIAG, "$netdiagcmd |" or ExitProgram ($UNKNOWN, "Could not open command pipe!");
-
-	my ($member, $netbt, $dns, $dc, $kerberos, $ldap) = (0, 0, 0, 0, 0);
-
-	my $warning = "";
-	my $fatal = "";
-	my $global_result = 0;
-
-	while (<NETDIAG>)
-	{
-		chomp;	$_ = lc;
-		
-		$global_result = 1 if /global results:/; # Only interested in warning and/or fatal messages for global results.
-	
-		$member 	= 1 if /domain membership test . . . . . . : passed/;
-		$netbt  	= 1 if /netbt transports test. . . . . . . : passed/;
-		$dns 		= 1 if /dns test . . . . . . . . . . . . . : passed/;
-		$dc 		= 1 if /dc discovery test. . . . . . . . . : passed/;
-		$ldap 		= 1 if /ldap test. . . . . . . . . . . . . : passed/;
-		$kerberos	= 1 if /kerberos test. . . . . . . . . . . . . : passed/ and $kerbtest;
-	
-		$warning	.= "$_  " if /warning/ and $global_result;
-		$fatal		.= "$_  " if /fatal/ and $global_result;
-	}
-
-	my $status_ok = $member && $netbt && $dns && $dc && $ldap;
-	$status_ok &&= $kerberos if $kerbtest;
-
-	my $status_text = "Domain membership OK, NetBT transport OK, DNS OK, DC Discovery OK, LDAP OK";
-	$status_text .= ", Kerberos OK" if $kerbtest;
-
-	ExitProgram ($CRITICAL, $fatal) if $fatal ne "";
-	ExitProgram ($WARNING, $warning) if $warning ne "";
-	ExitProgram ($OK, $status_text)
-		if  ($member && $netbt && $dns && $dc && $ldap);
-	ExitProgram ($UNKNOWN, "No information is available.");
-}
-
-##### DcTests #####
-sub DcTests
-{
-	open DCDIAG, "$dcdiagcmd |" or ExitProgram ($UNKNOWN, "Could not open command pipe!");
-
-	my ($connectivity, $services, $replications, $advertising, $fsmo, $rid, $machine, $frssysvol, $frsevent, $kccevent) = 
-		(0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
-
-	my $warning = "";
-	my $fatal = "";
-
-	while (<DCDIAG>)
-	{
-		chomp;	$_ = lc;
-		
-		$connectivity 	= 1 if /passed test connectivity/;
-		$services	  	= 1 if /passed test services/;
-		$replications	= 1 if /passed test replications/;
-		$advertising	= 1 if /passed test advertising/;
-		$fsmo	 		= 1 if /passed test fsmocheck/;
-		$rid 			= 1 if /passed test ridmanager/;
-		$machine 		= 1 if /passed test machineaccount/;
-		$frssysvol 		= 1 if /passed test frssysvol/ and not $is2000;
-		$frsevent		= 1 if /passed test frsevent/ and not $is2000;
-		$kccevent		= 1 if /passed test kccevent/;
-	
-		$warning	.= "$_  " if /warning/;
-		$fatal		.= "$_  " if /failed/;
-	}
-
-	my $status_ok = $connectivity && $services && $replications && $advertising && $fsmo && $rid && $machine;
-	$status_ok &&= $frssysvol if not $is2000;
-	$status_ok &&= $frsevent if not $is2000 and $eventlog;
-	$status_ok &&= $kccevent if $eventlog;
-	
-	my $status_text = "Connectivity OK, Services OK, Replications OK, Advertising OK, Fsmo OK, Rid Manager OK, Machine account OK";
-	$status_text .= ", FRS Sysvol OK" if not $is2000;
-	$status_text .= ", FRS Event OK" if not $is2000 and $eventlog;
-	$status_text .= ", KCC Event OK" if $eventlog;
-
-	ExitProgram ($CRITICAL, $fatal) if $fatal ne "";
-	ExitProgram ($WARNING, $warning) if $warning ne "";	
-	ExitProgram ($OK, $status_text) if $status_ok;
-	ExitProgram ($UNKNOWN, "No information is available.");
-}
-
-##### PrintUsage #####
-sub PrintUsage
-{
-	print "
-check_ad - Nagios NRPE Plugin for Active Directory Health Check
-Version 1.4, Copyright 2007-2009, http://itefix.no
-
-Usage:
-    check_ad [--dc] [--member] [--noeventlog] [--nokerberos][--help]
-
-Options:
-    --dc
-        Checks domain controller functionality by using dcdiag tool from
-        Windows Support Tools. Following dcdiag tests are performed :
-
-         services, replications, advertising, fsmocheck, ridmanager, machineaccount, kccevent, frssysvol (post-Windows 2000 only), frsevent (post-Windows 2000 only), 
-
-    --member
-        Checks domain member functionality by using netdiag tool from
-        Windows Support Tools. Following netdiag tests are performed :
-
-         member, netbt, dns, dsgetdc, ldap, kerberos
-
-    --noeventlog
-        Don't run the dc tests kccevent and frsevent, since their 24-hour
-        scope may not be too relevant for Nagios.
-
-    --nokerberos
-        Don't run the member test kerberos due to netdiag bug (See Microsoft
-        KB870692)
-
-    --help
-        Produces help message.
-
-
-";
-	
-}
-
-##### ExitProgram #####
-sub ExitProgram
-{
-	my ($exitcode, $message) = @_;
-	
-	my $lcomp = "AD";
-	print "$lcomp $status_text{$exitcode} - $message";
-	exit ($exitcode);
-}
-
-__END__
-
-=head1 NAME
-
-check_ad - Nagios NRPE plugin for Active Directory health check 
-
-=head1 SYNOPSIS
-
-B<check_ad> [B<--dc>] [B<--member>] [B<--noeventlog>] [B<--nokerberos>][B<--help>]
-
-=head1 DESCRIPTION
-
-B<check_ad> works as a Nagios NRPE plugin for Active Directory health check.
-
-=head1 OPTIONS
-
-=over 4 
-
-=item B<--dc>
-
-Checks domain controller functionality by using I<dcdiag> tool from Windows Support Tools. Following dcdiag tests are performed :
-
- services, replications, advertising, fsmocheck, ridmanager, machineaccount, kccevent, frssysvol (post-Windows 2000 only), frsevent (post-Windows 2000 only), 
-
-=item B<--member>
-
-Checks domain member functionality by using I<netdiag> tool from Windows Support Tools. Following netdiag tests are performed :
-
- member, netbt, dns, dsgetdc, ldap, kerberos
-
-=item B<--noeventlog>
-
-Don't run the dc tests kccevent and frsevent, since their 24-hour scope may not be too relevant for Nagios.
-
-=item B<--nokerberos>
-
-Don't run the member test kerberos due to netdiag bug (See Microsoft KB870692)
-
-=item B<--help>
-
-Produces help message.
-
-=back
-
-=head1 EXIT VALUES
-
- 0 OK
- 1 WARNING
- 2 CRITICAL
- 3 UNKNOWN
-
-=head1 AUTHOR
-
-Tevfik Karagulle L<http://www.itefix.no>
-
-=head1 SEE ALSO
-
-=over 4
-
-=item Nagios web site L<http://www.nagios.org>
-
-=item Nagios NRPE documentation L<http://nagios.sourceforge.net/docs/nrpe/NRPE.pdf>
-
-=item DCDIAG documentation L<http://technet2.microsoft.com/windowsserver/en/library/f7396ad6-0baa-4e66-8d18-17f83c5e4e6c1033.mspx>
-
-=item NETDIAG documentation L<http://technet2.microsoft.com/windowsserver/en/library/cf4926db-87ea-4f7a-9806-0b54e1c00a771033.mspx>
-
-=back
-
-=head1 COPYRIGHT
-
-This program is distributed under the Artistic License. L<http://www.opensource.org/licenses/artistic-license.php>
-
-=head1 VERSION
-
-Version 1.4, January 2009
-
-=head1 CHANGELOG
-
-=over 4
-
-=item changes from 1.3
-
- - Windows 2008 support (checks are done in lowercase only)
- - Dropped member test 'trust' as it requires domain admin privileges thus introducing a security weakness.
- - Introducing option 'nokerberos' due to netdiag bug (see Microsoft KB870692)
-
-=item changes from 1.2
-
- - Add command line option 'noeventlog'.
-
-=item changes from 1.1
-
- - Support for Windows 2000 domains
- - Use CRITICAL instead of ERROR
-
-=item changes from 1.0
-
- - remove sysevent test as it can be many other event producers than active directory.
-
-=back
-
-=cut

nsclient/trunk/scripts/check_ad/readme.txt

@@ -1,76 +0,0 @@
-NAME
-   check_ad - Nagios NRPE plugin for Active Directory health check
-
-SYNOPSIS
-   check_ad [--dc] [--member] [--noeventlog] [--nokerberos][--help]
-
-DESCRIPTION
-   check_ad works as a Nagios NRPE plugin for Active Directory health check.
-
-OPTIONS
-   --dc
-       Checks domain controller functionality by using *dcdiag* tool from
-       Windows Support Tools. Following dcdiag tests are performed :
-
-        services, replications, advertising, fsmocheck, ridmanager, machineaccount, kccevent, frssysvol (post-Windows 2000 only), frsevent (post-Windows 2000 only), 
-
-   --member
-       Checks domain member functionality by using *netdiag* tool from
-       Windows Support Tools. Following netdiag tests are performed :
-
-        member, netbt, dns, dsgetdc, ldap, kerberos
-
-   --noeventlog
-       Don't run the dc tests kccevent and frsevent, since their 24-hour
-       scope may not be too relevant for Nagios.
-
-   --nokerberos
-       Don't run the member test kerberos due to netdiag bug (See Microsoft
-       KB870692)
-
-   --help
-       Produces help message.
-
-EXIT VALUES
-    0 OK
-    1 WARNING
-    2 CRITICAL
-    3 UNKNOWN
-
-AUTHOR
-   Tevfik Karagulle <http://www.itefix.no>
-
-SEE ALSO
-   Nagios web site <http://www.nagios.org>
-   Nagios NRPE documentation
-   <http://nagios.sourceforge.net/docs/nrpe/NRPE.pdf>
-   DCDIAG documentation
-   <http://technet2.microsoft.com/windowsserver/en/library/f7396ad6-0baa-4e6
-   6-8d18-17f83c5e4e6c1033.mspx>
-   NETDIAG documentation
-   <http://technet2.microsoft.com/windowsserver/en/library/cf4926db-87ea-4f7
-   a-9806-0b54e1c00a771033.mspx>
-
-COPYRIGHT
-   This program is distributed under the Artistic License.
-   <http://www.opensource.org/licenses/artistic-license.php>
-
-VERSION
-   Version 1.4, January 2009
-
-CHANGELOG
-   changes from 1.3
-        - Windows 2008 support (checks are done in lowercase only)
-        - Dropped member test 'trust' as it requires domain admin privileges thus introducing a security weakness.
-        - Introducing option 'nokerberos' due to netdiag bug (see Microsoft KB870692)
-
-   changes from 1.2
-        - Add command line option 'noeventlog'.
-
-   changes from 1.1
-        - Support for Windows 2000 domains
-        - Use CRITICAL instead of ERROR
-
-   changes from 1.0
-        - remove sysevent test as it can be many other event producers than active directory.
-

nsclient/trunk/scripts/check_battery.vbs

@@ -1,43 +0,0 @@
-' =========================================================
-' WMI script to return the charge remaining in a laptop battery, using the 
-' EstimatedChargeRemaining property of the Win32_Battery class
-' =========================================================
-
-' Required Variables
-Const PROGNAME = "check_battery"
-Const VERSION = "0.0.1"
-
-' Default settings for your script.
-threshold_warning = 50
-threshold_critical = 20
-strComputer = "."
-
-' Create the NagiosPlugin object
-Set np = New NagiosPlugin
-
-' Define what args that should be used
-np.add_arg "computer", "Computer name", 0
-np.add_arg "warning", "warning threshold", 0
-np.add_arg "critical", "critical threshold", 0
-
-' If we have no args or arglist contains /help or not all of the required arguments are fulfilled show the usage output,.
-If Args.Exists("help") Then
-	np.Usage
-End If
-
-' If we define /warning /critical on commandline it should override the script default.
-If Args.Exists("warning") Then threshold_warning = Args("warning")
-If Args.Exists("critical") Then threshold_critical = Args("critical")
-If Args.Exists("computer") Then strComputer = Args("computer")
-np.set_thresholds threshold_warning, threshold_critical
-
-Set colInstances = np.simple_WMI_CIMV2(strComputer, "SELECT * FROM Win32_Battery")
-return_code = OK
-
-For Each objInstance In colInstances
-	WScript.Echo "Battery " & objInstance.Status & " - Charge Remaining = " & objInstance.EstimatedChargeRemaining & "% | charge=" & objInstance.EstimatedChargeRemaining
-	return_code = np.escalate_check_threshold(return_code, objInstance.EstimatedChargeRemaining)
-Next
-
-' Nice Exit with msg and exitcode
-np.nagios_exit "", return_code

nsclient/trunk/scripts/check_eva/check_eva.py

@@ -1,690 +0,0 @@
-#!/usr/bin/python
-#
-# Copyright 2010, Pall Sigurdsson <palli@opensource.is>
-#
-# check_eva.py is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-#
-# check_eva.py is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-# About this script
-# 
-# This script will check the status of all EVA arrays via the sssu binary.
-# You will need the sssu binary in path (/usr/bin/sssu is a good place)
-# If you do not have sssu, check your commandview CD, it should have both
-# binaries for Windows and Linux
-
-
-
-
-
-
-# Some Defaults
-show_perfdata = True
-show_longserviceoutput = True
-debugging = False
-
-
-
-# check_eva defaults
-hostname="localhost"
-username="eva"
-password="eva1234"
-mode="check_systems"
-path=''
-nagios_server = "94.142.154.10"
-nagios_port = 80
-nagios_myhostname = None
-do_phone_home = False
-escape_newlines = False
-check_system = None # By default check all systems
-proxyserver = None
-
-server_side_troubleshooting = False # set to true, if you do not have sssu binary handy
-
-# No real need to change anything below here
-version="1.0"
-ok=0
-warning=1
-critical=2
-unknown=3
-not_present = -1
-
-
-
-state = {}
-state[not_present] = "Not Present"
-state[ok] = "OK"
-state[warning] = "Warning"
-state[critical] = "Critical"
-state[unknown] = "Unknown"
-
-longserviceoutput="\n"
-perfdata=""
-
-valid_modes = ( "check_systems", "check_controllers", "check_diskgroups","check_disks", "check_diskshelfs", "check_diskshelves")
-
-from sys import exit
-from sys import argv
-from os import getenv,putenv,environ
-import subprocess
-import xmlrpclib,httplib
-import socket
-socket.setdefaulttimeout(5) 
-
-
-def print_help():
-	print "check_eva version %s" % version
-	print "This plugin checks HP EVA Array with the sssu command"
-	print ""
-	print "Usage: %s [OPTIONS]" % argv[0]
-	print "OPTIONS:"
-	print  " [--host <host>]"
-	print  " [--username <user>]"
-	print  " [--password <password]"
-	print  " [--path </path/to/sssu>]"
-	print  " [--mode <mode>] "
-	print  " [--test]"
-	print  " [--debug]"
-	print  " [--help]"
-	print  ""
-	print  " Valid modes are: %s" % ', '.join(valid_modes)
-	print  ""
-	print  "Example: %s --host commandview.example.net --username eva --password myPassword --mode check_systems" % (argv[0])
-
-
-def error(errortext):
-	print "* Error: %s" % errortext
-	print_help()
-	print "* Error: %s" % errortext
-	exit(unknown)
-
-def debug( debugtext ):
-	global debugging
-	if debugging:
-		print  debugtext
-
-# parse arguments
-
-arguments=argv[1:]
-while len(arguments) > 0:
-	arg=arguments.pop(0)
-	if arg == 'invalid':
-		pass
-	elif arg == '-H' or arg == '--host':
-		hostname=arguments.pop(0)
-	elif arg == '-U' or arg == '--username':
-		username=arguments.pop(0)
-	elif arg == '-P' or arg == '--password':
-		password = arguments.pop(0)
-	elif arg == '-T' or arg == '--test':
-		testmode=1
-	elif arg == '--path':
-		path = arguments.pop(0) + '/'
-	elif arg == '-M' or arg == '--mode':
-		mode=arguments.pop(0)
-		if mode not in valid_modes:
-			error("Invalid --mode %s" % arg)
-	elif arg == '-d' or arg == '--debug':
-		debugging=True
-	elif arg == '--longserviceoutput':
-		show_longserviceoutput = True
-	elif arg == '--no-longserviceoutput':
-		show_longserviceoutput = False
-	elif arg == '--perfdata':
-		show_perfdata = True
-	elif arg == '--no-perfdata':
-		show_perfdata = False
-	elif arg == '--nagios_myhostname':
-		nagios_myhostname = arguments.pop(0)
-	elif arg == '--nagios_server':
-		nagios_server = arguments.pop(0)
-	elif arg == '--nagios_port':
-		nagios_port = arguments.pop(0)
-	elif arg == '--system':
-		check_system = arguments.pop(0)
-	elif arg == '--phone-home':
-		do_phone_home = True
-	elif arg == '--proxy':
-		proxyserver = arguments.pop(0)
-	elif arg == '--escape-newlines':
-		escape_newlines = True
-	elif arg == '-h' or arg == '--help':
-		print_help()
-		exit(ok)
-	else:
-		error( "Invalid argument %s"% arg)
-
-
-
-
-subitems = {}
-subitems['fan'] = 'fans'
-subitems['source'] = 'powersources'
-subitems['hostport'] = 'hostports'
-subitems['module'] = 'modules'
-subitems['sensor'] = 'sensors'
-subitems['powersupply'] = 'powersupplies'
-subitems['bus'] = 'communicationbuses'
-subitems['port'] = 'fibrechannelports'
-
-
-'''runCommand: Runs command from the shell prompt. Exit Nagios style if unsuccessful'''
-def runCommand(command):
-  proc = subprocess.Popen(command, shell=True, stdout=subprocess.PIPE,stderr=subprocess.PIPE,)
-  stdout, stderr = proc.communicate('through stdin to stdout')
-  if proc.returncode > 0:
-    print "Error %s: %s\n command was: '%s'" % (proc.returncode,stderr.strip(),command)
-    if proc.returncode == 127 or proc.returncode == 1: # File not found, lets print path
-	path=getenv("PATH")
-	print "Current Path: %s" % (path)
-    exit(unknown)
-  else:
-    return stdout
-
-
-
-
-'''Runs the sssu command. This one is responsible for error checking from sssu'''
-def run_sssu(system=None, command="ls system full"):
-	commands = []
-
-	continue_on_error="set option on_error=continue"
-	login="select manager %s USERNAME=%s PASSWORD=%s"%(hostname,username,password)
-
-	commands.append(continue_on_error)
-	commands.append(login)
-	if system != None:
-		commands.append("select SYSTEM %s" % system)
-	commands.append(command)
-
-	commandstring = "sssu "
-	for i in commands: commandstring = commandstring + '"%s" '% i 
-	global server_side_troubleshooting
-	if server_side_troubleshooting == True:	
-		commandstring = 'cat "debug/%s"' % command
-	
-	#print mystring
-	#if command == "ls system full":
-	#	output = runCommand("cat sssu.out")
-	#elif command == "ls disk_groups full":
-	#	output = runCommand("cat ls_disk*")
-	#elif command == "ls controller full":
-	#	output = runCommand("cat ls_controller")
-	#else:
-	#	print "What command is this?", command
-	#	exit(unknown)
-	output = runCommand(commandstring)
-	debug( commandstring )
-
-	output = output.split('\n')
-
-	# Lets process the top few results from the sssu command. Make sure the results make sense
-	error = 0
-	if output.pop(0).strip() != '': error = 1
-	if output.pop(0).strip() != '': error = 1
-	if output.pop(0).strip() != 'SSSU for HP StorageWorks Command View EVA': error = 1
-	if output.pop(0).strip().find('Version:') != 0: error=1
-	if output.pop(0).strip().find('Build:') != 0: error=1
-	if output.pop(0).strip().find('NoSystemSelected> ') != 0: error=1
-	#if output.pop(0).strip() != '': error = 1
-	#if output.pop(0).strip().find('NoSystemSelected> ') != 0: error=1
-	#if output.pop(0).strip() != '': error = 1
-	buffer = ""
-	for i in output:
-		buffer = buffer + i + "\n"
-		if i.find('Error') > -1:
-			print "This is the command i was trying to execute: %s" % i
-			error = 1
-		if i.find('information:') > 0: break
-	if error > 0: 
-		print "Error running the sssu command"
-		print commandstring
-		print buffer
-		exit(unknown)
-	
-	objects = []
-	object = None
-	parent_object = None
-	for line in output:
-		if len(line) == 0:
-			continue
-		line = line.strip()
-		tmp = line.split()
-		if len(tmp) == 0:
-			if object:
-				if not object['master'] in objects: objects.append( object['master'] )
-				object = None
-			continue
-		key = tmp[0].strip()
-		if object and not object['master'] in objects: objects.append( object['master'] )
-		if key == 'object':
-			object = {}
-			object['master'] = object
-		if key == 'controllertemperaturestatus':
-			object = object['master']
-		if key == 'iomodules':
-			key = 'modules'
-		#if key in subitems.values():
-		#	object['master'][key] = []
-		if key in subitems.keys():
-			mastergroup = subitems[key]
-			master = object['master']
-			object = {}
-			object['object_type'] = key
-			object['master'] = master
-			if not object['master'].has_key(mastergroup):
-				object['master'][mastergroup] = []
-			object['master'][mastergroup].append(object)
-			
-			
-
-		if line.find('.:') > 0:
-			# We work on first come, first serve basis, so if 
-			# we accidentally see same key again, we will ignore
-			if not object.has_key(key):
-				value = ' '.join( tmp[2:] ).strip()
-				object[key] = value
-	# Check if we were instructed to check only one eva system
-	global check_system
-	if command == "ls system full" and check_system !=  None:
-		tmp_objects = []
-		for i in objects:
-			if i['objectname'] == check_system:
-				tmp_objects.append( i )
-		objects = tmp_objects
-	return objects
-
-def end(summary,perfdata,longserviceoutput,nagios_state):
-	global show_longserviceoutput
-	global show_perfdata
-	global nagios_server
-	global do_phone_home
-	global nagios_port
-	global nagios_myhostname
-	global hostname
-	global mode
-	global escape_newlines
-	global check_system
-
-	message = "%s - %s" % ( state[nagios_state], summary)
-	if show_perfdata:
-		message = "%s | %s" % ( message, perfdata)
-	if show_longserviceoutput:
-		message = "%s\n%s" % ( message, longserviceoutput.strip())
-	if escape_newlines == True:
-		lines = message.split('\n')
-		message = '\\n'.join(lines)
-	debug( "do_phone_home = %s" %(do_phone_home) )
-	if do_phone_home == True:
-		try:
-			if nagios_myhostname is None:
-				if environ.has_key( 'HOSTNAME' ):
-					nagios_myhostname = environ['HOSTNAME']
-				elif environ.has_key( 'COMPUTERNAME' ):
-					nagios_myhostname = environ['COMPUTERNAME']
-				else:
-					nagios_myhostname = hostname
-			phone_home(nagios_server,nagios_port, status=nagios_state, message=message, hostname=nagios_myhostname, servicename=mode,system=check_system)
-		except:
-			raise
-	print message
-	exit(nagios_state)
-class ProxiedTransport(xmlrpclib.Transport):
-    def set_proxy(self, proxy):
-        self.proxy = proxy
-    def make_connection(self, host):
-        self.realhost = host
-        h = httplib.HTTP(self.proxy)
-        return h
-    def send_request(self, connection, handler, request_body):
-        connection.putrequest("POST", 'http://%s%s' % (self.realhost, handler))
-    def send_host(self, connection, host):
-        connection.putheader('Host', self.realhost)
-
-
-
-''' phone_home: Sends results to remote nagios server via python xml-rpc '''
-def phone_home(nagios_server,nagios_port, status, message, hostname=None, servicename=None,system=None):
-	debug("phoning home: %s" % (servicename) )
-	if system is not None:
-		servicename = str(servicename) + str(system)
-	uri = "http://%s:%s" % (nagios_server,nagios_port)
-	
-	global proxyserver
-	if proxyserver != None:
-		p = ProxiedTransport()
-		p.set_proxy(proxyserver)
-		s = xmlrpclib.Server( uri, transport=p ) 
-	else:
-		s = xmlrpclib.ServerProxy( uri )
-	s.nagiosupdate(hostname, servicename, status, message)
-	return 0
-
-def check_systems():
-	summary=""
-	perfdata=""
-	#longserviceoutput="\n"
-	nagios_state = ok
-	objects = run_sssu()
-	for i in objects:
-		name = i['objectname']
-		operationalstate = i['operationalstate']
-		# Lets see if this array is working
-		if operationalstate != 'good':
-			nagios_state = max(nagios_state, warning)
-		# Lets add to the summary
-		summary = summary + " %s=%s " %(name, operationalstate)
-		# Collect the performance data
-		interesting_perfdata = 'totalstoragespace|usedstoragespace|availablestoragespace'
-		perfdata = perfdata + get_perfdata(i,interesting_perfdata.split('|'), identifier="%s_"% name)
-		# Collect extra info for longserviceoutput
-		long("%s = %s (%s)\n" % ( i['objectname'], i['operationalstate'], i['operationalstatedetail']) )
-		interesting_fields = 'licensestate|systemtype|firmwareversion|nscfwversion|totalstoragespace|usedstoragespace|availablestoragespace'
-		for x in interesting_fields.split('|'):
-			long( "- %s = %s \n" %(x, i[x]) )
-		long("\n")
-	end(summary,perfdata,longserviceoutput,nagios_state)
-
-
-
-def get_perfdata(object, interesting_fields, identifier=""):
-	perfdata = ""
-	for i in interesting_fields:
-		if i == '': continue
-		perfdata = perfdata + "'%s%s'=%s " % (identifier, i, object[i])
-	return perfdata
-
-def add_perfdata(text):
-	global perfdata
-	text = text.strip()
-	perfdata = perfdata + " %s " % (text)
-
-def long(text):
-	global longserviceoutput
-	longserviceoutput = longserviceoutput + text
-def get_longserviceoutput(object, interesting_fields):
-	longserviceoutput = ""
-	for i in interesting_fields:
-		longserviceoutput = longserviceoutput + "%s = %s \n" %(i, object[i])
-	return longserviceoutput
-
-def check_operationalstate(object, print_failed_objects=False,namefield='objectname',detailfield='operationalstatedetail',statefield='operationalstate',valid_states=['good']):
-	if not object.has_key(detailfield): detailfield = statefield
-	if not object.has_key(statefield):
-		if print_failed_objects:
-			long("- Warning, %s does not have any '%s'" % ( object[namefield], statefield ) )
-		return warning
-	if object[statefield] not in valid_states:
-		if print_failed_objects:
-			long("- Warning, %s=%s (%s)\n" % ( object[namefield], object['operationalstate'], object[detailfield] ))
-		return warning
-	debug( "OK, %s=%s (%s)\n" % ( object[namefield], object['operationalstate'], object[detailfield] ) )
-	return ok
-
-
-
-def check_generic(command="ls disk full",namefield="objectname", perfdata_fields=[], longserviceoutputfields=[], detailedsummary=False):
-        summary=""
-	global perfdata
-        nagios_state = ok
-        systems = run_sssu()
-        objects = []
-	if command == 'ls system full':
-		objects = systems
-		for i in systems: i['systemname'] = '' #i['objectname']
-	else:
-        	for i in systems:
-        	        result = run_sssu(system=i['objectname'], command=command)
-        	        for x in result:
-        	                x['systemname'] = i['objectname']
-        	                objects.append( x )
-	summary = "%s objects found " % len(objects)
-        for i in objects:
-                systemname = i['systemname']
-		
-		# Some versions of commandview use "objectname" instead of namefield
-		if i.has_key( namefield ):
-			objectname = i[namefield]
-		else:
-			objectname = i['objectname']
-                # Some versions of CV also return garbage objects, luckily it is easy to find these
-		if i.has_key('objecttype') and i['objecttype'] == 'typenotset':
-			long("Object %s was skipped because objecttype == typenotset\n" % objectname )
-			continue
-		# Lets see if this object is working
-                nagios_state = max( check_operationalstate(i), nagios_state )
-
-                
-		# Lets add to the summary
-		if  i['operationalstate'] != 'good' or detailedsummary == True:
-                	summary = summary + " %s/%s=%s " %(systemname,objectname, i['operationalstate'])
-
-                # Lets get some perfdata
-                identifier = "%s/%s_" % (systemname,objectname)
-		i['identifier'] = identifier
-
-
-		for field in perfdata_fields:
-			if field == '': continue
-			add_perfdata( "'%s%s'=%s " % (identifier, field, i[field]) )
-		
-		# Disk group gets a special perfdata treatment
-		if command == "ls disk_group full":
-			totalstoragespacegb= float( i['totalstoragespacegb'] )
-			usedstoragespacegb= float ( i['usedstoragespacegb'] )
-			occupancyalarmlvel = float( i['occupancyalarmlevel'] ) 
-			warninggb= totalstoragespacegb * occupancyalarmlvel / 100
-			add_perfdata( " '%sdiskusage'=%s;%s;%s "% (identifier, usedstoragespacegb,warninggb,totalstoragespacegb) )
-		
-                # Long Serviceoutput
-		
-		# There are usually to many disks for nagios to display. Skip.
-		if command != "ls disk full":
-			long( "\n%s/%s = %s (%s)\n"%(systemname,objectname,i['operationalstate'], i['operationalstatedetail']) )
-		
-		# If diskgroup has a problem because it is over allocated. Lets inform about that
-		if command == "ls disk_group full" and usedstoragespacegb > warninggb:
-				long("- %s - diskgroup usage is over %s%% threshold !\n" % (state[warning], occupancyalarmlvel) )
-		# If a disk has a problem, lets display some extra info on it
-		elif command == "ls disk full" and i['operationalstate'] != 'good':
-			long( "Warning - %s=%s (%s)\n" % (i['diskname'], i['operationalstate'], i['operationalstatedetail'] ))
-			fields="modelnumber firmwareversion serialnumber failurepredicted  diskdrivetype".split()
-			for field in fields:
-				long( "- %s = %s\n" % (field, i[field]) )
-
-
-		nagios_state = max(nagios_state, check_multiple_objects(i, 'sensors'))
-		nagios_state = max(nagios_state, check_multiple_objects(i, 'fans'))
-		nagios_state = max(nagios_state, check_multiple_objects(i, 'powersupplies'))
-		nagios_state = max(nagios_state, check_multiple_objects(i, 'communicationbuses'))
-		nagios_state = max(nagios_state, check_multiple_objects(i, 'fibrechannelports'))
-		nagios_state = max(nagios_state, check_multiple_objects(i, 'modules'))
-                for x in longserviceoutputfields:
-			if i.has_key( x ):
-				long( "- %s = %s\n" % (x, i[x]))
-
-        end(summary,perfdata,longserviceoutput,nagios_state)
-
-def check_multiple_objects(object, name):
-	item_status = not_present
-	if object.has_key(name): 
-		item_status = not_present
-		valid_states=['good']
-		namefield="name"	
-		detailfield = 'operationalstatedetail'
-
-
-
-		if name == 'fans' or name == 'sensors':
-			valid_states = ['good','notavailable','unsupported','notinstalled']
-		elif name == 'fibrechannelports':
-			valid_states.append( 'notinstalled' )
-		num_items = len(object[name])
-		for item in object[name]:
-			stat = check_operationalstate( item,print_failed_objects=True, namefield=namefield, valid_states=valid_states,detailfield=detailfield)
-			item_status = max( stat, item_status )
-		long('- %s on %s (%s detected)\n'% (state[item_status], name, num_items) )
-		add_perfdata( " '%s%s'=%s" % (object['identifier'],name, num_items) )
-	return item_status
-	
-
-
-def check_controllers():
-	summary=""
-	perfdata=""
-	#longserviceoutput="\n"
-	nagios_state = ok
-	systems = run_sssu()
-	controllers =[]
-	for i in systems:
-		result = run_sssu(system=i['objectname'], command="ls controller full")
-		for controller in result:
-			controller['systemname'] = i['objectname']
-			controllers.append( controller )
-	for i in controllers:
-		systemname = i['systemname']
-		if i.has_key('controllername'):
-			controllername = i['controllername']
-		else:
-			controllername = i['objectname']
-		# Lets see if this controller is working
-		nagios_state = max( check_operationalstate(i), nagios_state )
-
-		# Lets add to the summary
-		if not i.has_key('operationalstate'):
-			summary = summary + " %s does not have any operationalstate" % controllername
-			nagios_state = max( unknown, nagios_state )
-			continue
-		elif  i['operationalstate'] != 'good':
-			summary = summary + " %s/%s=%s " %(systemname,controllername, i['operationalstate'])
-		
-		# Lets get some perfdata
-		interesting_fields = "controllermainmemory"
-		identifier = "%s/%s_" % (systemname,controllername)
-		perfdata = perfdata + get_perfdata(i, interesting_fields.split('|'), identifier=identifier)
-
-		# Long Serviceoutput
-		interesting_fields = "operationalstate|operationalstatedetail|firmwareversion|serialnumber"
-		#longserviceoutput = longserviceoutput + get_longserviceoutput(i, interesting_fields.split('|') )
-		#longserviceoutput = longserviceoutput + "\n%s/%s\n"%(systemname,controllername)
-		long( "\n%s/%s = %s (%s)\n"%(systemname,controllername,i['operationalstate'], i['operationalstatedetail']) )
-		long( "- firmwareversion = %s \n" %(i['firmwareversion']))
-		long( "- serialnumber = %s \n" %(i['serialnumber']))
-
-
-		controllertemperaturestatus = not_present
-		cache_state = not_present
-		fanstate = not_present
-		hostportstate = not_present
-		sensorstate = ok
-		source_state = not_present
-		module_state = not_present
-
-		# Check the cache status
-		if i['cachecondition'] == 'good':
-			cache_state = ok
-		else:
-			cache_state = warning
-		
-		# Check Temperature
-		if i.has_key("controllertemperaturestatus"):
-			if i['controllertemperaturestatus'] == 'normal':
-				controllertemperaturestatus = ok
-			else:
-				controllertemperaturestatus = warning
-		
-		
-		# Process the subsensors
-		for hostport in i['hostports']:
-			#long(" %s = %s\n" % (hostport['portname'], hostport['operationalstate']))
-			hostportstate = max(hostportstate,ok)
-			if hostport['operationalstate'] != 'good':
-				hostportstate = max(warning,hostport_state)
-				long("Hostport %s state = %s\n" % hostport['portname'], hostport['operationalstate'])
-		if i.has_key('fans'):
-			for fan in i['fans']:
-				fanstate = max(fanstate,ok)
-				#long(" %s = %s\n" % (fan['fanname'], fan['status']))
-				if fan.has_key('status'): status = fan['status']
-				elif fan.has_key('installstatus'): status = fan['installstatus']
-				if status != 'normal' and status != 'yes':
-					fanstate = max(warning,fanstate)
-					long("Fan %s status = %s\n" % (fan['fanname'],status))
-		if i.has_key('powersources'):
-			for source in i['powersources']:
-				source_state = max(source_state,ok)
-				if not source.has_key('status'): continue
-				if source['state'] != 'good':
-					source_state = max(warning,source_state)
-					long("Powersource %s status = %s\n" % (source['type'],source['state']))
-		if i.has_key('modules'):
-			for module in i['modules']:
-				module_state = max(module_state,ok)
-				if module['operationalstate'] not in ('good','not_present'):
-					module_state = max(warning,module_state)
-					long("Battery Module %s status = %s\n" % (module['name'],module['operationalstate']))
-		
-
-		for i in (fanstate,hostportstate,sensorstate,source_state,module_state,cache_state,controllertemperaturestatus):
-			nagios_state = max(nagios_state, i)
-	
-		long("- %s on fans\n"%( state[fanstate] ) )
-		long("- %s on cachememory\n"%( state[cache_state] ) )
-		long("- %s on temperature\n"%( state[controllertemperaturestatus] ) )
-		long("- %s on hostports\n"%( state[hostportstate] ) )
-		long("- %s on sensors\n"%( state[sensorstate] ) )
-		long("- %s on powersupplies\n"%( state[source_state] ) )
-		long("- %s on batterymodules\n"%( state[module_state] ) )
-			
-			
-		long('\n')
-	end(summary,perfdata,longserviceoutput,nagios_state)
-
-def set_path():
-	global path
-	current_path = getenv('PATH')
-	if path == '':
-		if current_path.find('C:\\') > -1: # We are on this platform
-			path = ";C:\\Program Files\\Hewlett-Packard\\Sanworks\\Element Manager for StorageWorks HSV"
-		else:
-			path = ":/usr/local/bin"
-	current_path = "%s%s" % (current_path,path)
-        environ['PATH'] = current_path
-set_path()
-
-
-
-if mode == 'check_systems':
-                perfdata_fields = 'totalstoragespace usedstoragespace availablestoragespace'.split()
-                longserviceoutputfields = 'licensestate systemtype firmwareversion nscfwversion totalstoragespace usedstoragespace availablestoragespace'.split()
-		command = "ls system full"
-		namefield="objectname"
-		check_generic(command=command,namefield=namefield,longserviceoutputfields=longserviceoutputfields, perfdata_fields=perfdata_fields)
-		#check_systems
-elif mode == 'check_controllers':
-	check_controllers()
-elif mode == 'check_diskgroups':
-	command = "ls disk_group full"
-	namefield='diskgroupname'
-	longserviceoutputfields = "totaldisks levelingstate levelingprogress totalstoragespacegb usedstoragespacegb  occupancyalarmlevel".split()
-	perfdata_fields="totaldisks".split()	
-	check_generic(command=command,namefield=namefield,longserviceoutputfields=longserviceoutputfields, perfdata_fields=perfdata_fields)
-elif mode == 'check_disks':
-	check_generic(command="ls disk full",namefield="objectname")
-elif mode == 'check_diskshelfs' or mode == 'check_diskshelves':
-        check_generic(command="ls diskshelf full",namefield="diskshelfname",longserviceoutputfields=[], perfdata_fields=[])
-else:
-	print "* Error: Mode %s not found" % mode
-	print_help()
-	print "* Error: Mode %s not found" % mode
-	exit(unknown)
-

nsclient/trunk/scripts/check_eva/setup.py

@@ -1,4 +0,0 @@
-from distutils.core import setup
-import py2exe
-
-setup(console=['check_eva.py'])

nsclient/trunk/scripts/check_exchange/MailboxHealth.ps1

@@ -1,105 +0,0 @@
-# Test Mailbox Database Health
-# 
-# This script will look at all mailbox databases
-# and determine the status of each.
-# 
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-#
-# Originally created by Jeff Roberson (jeffrey.roberson@gmail.com)
-# at Bethel College, North Newton, KS
-#
-# Revision History
-# 5/10/2010	Jeff Roberson		Creation
-#
-# To execute from within NSClient++
-#
-#[NRPE Handlers]
-#check_mailbox_health=cmd /c echo C:\Scripts\Nagios\MailboxHealth.ps1 | PowerShell.exe -Command -
-#
-# On the check_nrpe command include the -t 20, since it takes some time to load
-# the Exchange cmdlet's.
-Add-PSSnapin Microsoft.Exchange.Management.PowerShell.E2010
-
-$NagiosStatus = "0"
-$NagiosDescription = ""
-$LongOutput = ""
-ForEach ($DataBase in Get-MailboxDatabase) {
-	ForEach ($Status in Get-MailboxDatabaseCopyStatus -Identity $DataBase.Name) {
-		$LongOutput = $LongOutput + $Status.Name + " is " + $Status.Status + "`n"
-		switch ($Status.Status) {
-			"Failed" { 
-				$NagiosStatus = "2"
-				if ($NagiosDescription -ne "") {
-					$NagiosDescription = $NagiosDescription + ", "
-				}
-				$NagiosDescription = $NagiosDescription + $Status.Name + " is " + $Status.Status
-			}
-						
-			"Dismounted" {
-				$NagiosStatus = "2"
-				if ($NagiosDescription -ne "") {
-					$NagiosDescription = $NagiosDescription + ", "
-				}
-				$NagiosDescription = $NagiosDescription + $Status.Name + " is " + $Status.Status
-			}
-				
-			"Resynchronizing" {
-				if ($NagiosStatus -ne "2") {
-					$NagiosStatus = "1"
-				}
-				if ($NagiosDescription -ne "") {
-					$NagiosDescription = $NagiosDescription + ", "
-				}
-				$NagiosDescription = $NagiosDescription + $Status.Name + " is " + $Status.Status
-			}
-
-			"Suspended" {
-				if ($NagiosStatus -ne "2") {
-					$NagiosStatus = "1"
-				}
-				if ($NagiosDescription -ne "") {
-					$NagiosDescription = $NagiosDescription + ", "
-				}
-				$NagiosDescription = $NagiosDescription + $Status.Name + " is " + $Status.Status
-			}
-
-			"Mounting" {
-				if ($NagiosStatus -ne "2") {
-					$NagiosStatus = "1"
-				}
-				if ($NagiosDescription -ne "") {
-					$NagiosDescription = $NagiosDescription + ", "
-				}
-				$NagiosDescription = $NagiosDescription + $Status.Name + " is " + $Status.Status
-			}
-
-			"Healthy" {}
-			"Mounted" {}
-		}
-	}
-}
-
-# Output, what level should we tell our caller?
-if ($NagiosStatus -eq "2") {
-	Write-Host "CRITICAL: " $NagiosDescription
-} elseif ($NagiosStatus -eq "1") {
-	Write-Host "WARNING: " $NagiosDescription
-} else {
-	Write-Host "OK: All Mailbox Databases are mounted and healthy."
-}
-Write-Host $LongOutput
-
-exit $NagiosStatus
-

nsclient/trunk/scripts/check_exchange/PublicFoldersMounted.ps1

@@ -1,58 +0,0 @@
-# Test to see if the Public Folders database is mounted on this server
-# 
-# The error handling is a little muddled coming back from the cmdlet
-# 
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-#
-# Originally created by Jeff Roberson (jeffrey.roberson@gmail.com)
-# at Bethel College, North Newton, KS
-#
-# Revision History
-# 5/10/2010	Jeff Roberson		Creation
-#
-# To execute from within NSClient++
-#
-#[NRPE Handlers]
-#check_publicfolders_mounted=cmd /c echo C:\Scripts\Nagios\PublicFoldersMounted.ps1 | PowerShell.exe -Command -
-#
-# On the check_nrpe command include the -t 20, since it takes some time to load
-# the Exchange cmdlet's.
-
-Add-PSSnapin Microsoft.Exchange.Management.PowerShell.E2010
-
-$NagiosResult = "0"
-try
-	{
-		try
-			{
-				$Result = Get-PublicFolder -Server $env:computername -ErrorAction Stop
-				Write-Host "OK: Public folders are mounted."
-			}
-		catch [System.Management.Automation.ActionPreferenceStopException]
-			{
-				Throw $_.exception
-			}
-		catch
-			{
-				Throw $_.exception
-			}
-	} 
-catch
-	{
-		Write-Host "CRITICAL: Public Folders Database is dismounted."
-		$NagiosResult = "2"
-	}
-
-exit $NagiosResult

nsclient/trunk/scripts/check_exchange/ReplicationHealth.ps1

@@ -1,82 +0,0 @@
-# Test Replication Health
-# 
-# This script will execute the Test-ReplicationHealth command
-# and look for warnings for failed replication attemtps
-# 
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-#
-# Originally created by Jeff Roberson (jeffrey.roberson@gmail.com)
-# at Bethel College, North Newton, KS
-#
-# Revision History
-# 5/10/2010	Jeff Roberson		Creation
-#
-# To execute from within NSClient++
-#
-#[NRPE Handlers]
-#check_replication_health=cmd /c echo C:\Scripts\Nagios\ReplicationHealth.ps1 | PowerShell.exe -Command -
-#
-# On the check_nrpe command include the -t 20, since it takes some time to load
-# the Exchange cmdlet's.
-
-Add-PSSnapin Microsoft.Exchange.Management.PowerShell.E2010
-
-$NagiosStatus = "0"
-$NagiosDescription = ""
-$LongOutput = ""
-ForEach ($Type in Test-ReplicationHealth -Identity $env:computername) {
- 	# Look for failed replications
-	if ($Type.Result -like "*FAILED*") {
-		# Format the output for Nagios
-		if ($NagiosDescription -ne "") {
-			$NagiosDescription = $NagiosDescription + ", "
-		}
-		
-		$NagiosDescription = $NagiosDescription + $Type.Check + $Type.Result
-		
-		# Set the status to failed.
-		$NagiosStatus = "2"
-		
-	# Look for warnings in replication
-	} elseif ($Type.Check -like "*Warn*") {
-		# Format the output for Nagios
-		if ($NagiosDescription -ne "") {
-			$NagiosDescription = $NagiosDescription + ", "
-		}
-		
-		$NagiosDescription = $NagiosDescription + $Type.Check + $Type.Result
-		
-		# Don't lower the status level if we already have
-		# a failed attempt
-		if ($NagiosStatus -ne "2") {
-			$NagiosStatus = "1"
-		}
-	}
-	$LongOutput = $LongOutput + $Type.Result + " on " + $Type.Check + "`n"
-}
-
-# Output, what level should we tell our caller?
-if ($NagiosStatus -eq "2") {
-	Write-Host "CRITICAL: " + $NagiosDescription
-} elseif ($NagiosStatus -eq "1") {
-	Write-Host "WARNING: " + $NagiosDescription
-} else {
-	Write-Host "OK: All replication tests passed."
-}
-
-Write-Host $LongOutput
-exit $NagiosStatus
-
-

nsclient/trunk/scripts/check_exchange/test.bat

@@ -1 +0,0 @@
-start powershell c:\program files\nsclient++\scripts\check_exchange\MailboxHealth.ps1

nsclient/trunk/scripts/check_hpacucli/check_hpacucli.py

@@ -1,319 +0,0 @@
-#!/usr/bin/python
-#
-# Copyright 2010, Pall Sigurdsson <palli@opensource.is>
-#
-# check_hpacucli.py is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-#
-# check_hpacucli.py is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-# About this script
-# 
-# This script will check the status of Smart Array Raid Controller
-# You will need the hpacucli binary in path (/usr/sbin/hpacucli is a good place)
-# hpacucli comes with the Proliant Support Pack (PSP) from HP
-
-debugging = False
-
-
-
-# No real need to change anything below here
-version="1.0"
-ok=0
-warning=1
-critical=2
-unknown=3 
-not_present = -1 
-nagios_status = -1
-
-
-
-state = {}
-state[not_present] = "Not Present"
-state[ok] = "OK"
-state[warning] = "Warning"
-state[critical] = "Critical"
-state[unknown] = "Unknown"
-
-
-longserviceoutput="\n"
-perfdata=""
-summary=""
-
-
-from sys import exit
-from sys import argv
-from os import getenv,putenv,environ
-import subprocess
-
-
-
-def print_help():
-        print "check_hpacucli version %s" % version
-        print "This plugin checks HP Array with the hpacucli command"
-        print ""
-        print "Usage: %s " % argv[0]
-        print "Usage: %s [--help]" % argv[0]
-        print "Usage: %s [--version]" % argv[0]
-        print "Usage: %s [--path </path/to/hpacucli>]" % argv[0]
-        print "Usage: %s [--no-perfdata]" % argv[0]
-        print "Usage: %s [--no-longoutput]" % argv[0]
-        print  ""
-
-
-def error(errortext):
-        print "* Error: %s" % errortext
-        print_help()
-        print "* Error: %s" % errortext
-        exit(unknown)
-
-def debug( debugtext ):
-        global debugging
-        if debugging:
-                print  debugtext
-
-
-'''runCommand: Runs command from the shell prompt. Exit Nagios style if unsuccessful'''
-def runCommand(command):
-  proc = subprocess.Popen(command, shell=True, stdout=subprocess.PIPE,stderr=subprocess.PIPE,)
-  stdout, stderr = proc.communicate('through stdin to stdout')
-  if proc.returncode > 0:
-    print "Error %s: %s\n command was: '%s'" % (proc.returncode,stderr.strip(),command)
-    if proc.returncode == 127: # File not found, lets print path
-        path=getenv("PATH")
-        print "Check if your path is correct %s" % (path)
-    if stderr.find('Password:') == 0 and command.find('sudo') == 0:
-      print "Check if user is in the sudoers file"
-    if stderr.find('sorry, you must have a tty to run sudo') == 0 and command.find('sudo') == 0:
-      print "Please remove 'requiretty' from /etc/sudoers"
-    exit(unknown)
-  else:
-    return stdout
-
-def end():
-	global summary
-	global longserviceoutput
-	global perfdata
-	global nagios_status
-        print "%s - %s | %s" % (state[nagios_status], summary,perfdata)
-        print longserviceoutput
-	if nagios_status < 0: nagios_status = unknown
-        exit(nagios_status)
-
-def add_perfdata(text):
-        global perfdata
-        text = text.strip()
-        perfdata = perfdata + " %s " % (text)
-
-def add_long(text):
-        global longserviceoutput
-        longserviceoutput = longserviceoutput + text + '\n'
-
-def add_summary(text):
-	global summary
-	summary = summary + text
-
-def set_path(path):
-	current_path = getenv('PATH')
-	if current_path.find('C:\\') > -1: # We are on this platform
-		if path == '':
-			path = ";C:\Program Files\Hewlett-Packard\Sanworks\Element Manager for StorageWorks HSV"
-			path = path + ";C:\Program Files (x86)\Compaq\Hpacucli\Bin"
-			path = path + ";C:\Program Files\Compaq\Hpacucli\Bin"
-		else: path = ';' + path
-	else:	# Unix/Linux, etc
-		if path == '': path = ":/usr/sbin"
-		else: path = ':' + path
-	current_path = "%s%s" % (current_path,path)
-	environ['PATH'] = current_path
-
-
-
-
-def run_hpacucli(type='controllers', controller=None):
-	if type=='controllers':
-		command="hpacucli  controller all show detail"
-	elif type=='logicaldisks' or type=='physicaldisks':
-		if controller.has_key('Slot'):
-			identifier = 'slot=%s' % (controller['Slot'] )
-		else:
-			add_summary( "Controller not found" )
-			end()
-		if type=='logicaldisks':
-			command = "hpacucli  controller %s ld all show detail" % (identifier)
-		if type=='physicaldisks':
-			command = "hpacucli  controller %s pd all show detail" % (identifier)
-	
-	#command="hpacucli  controller slot=1 ld all show detail"
-	#command="hpacucli  controller slot=1 ld all show detail"
-	debug ( command ) 
-	output = runCommand(command)
-	# Some basic error checking
-	if output.find('Error: You need to have administrator rights to continue.') > -1:
-		command = "sudo " + command 
-		output = runCommand(command)
-	output = output.split('\n')
-	objects = []
-	object = None
-	for i in output:
-		if len(i) == 0: continue
-		if i.strip() == '': continue
-		if type=='controllers' and i[0] != ' ': # No space on first line
-			if object and not object in objects: objects.append(object)
-			object = {}
-			object['name'] = i
-		elif type=='logicaldisks' and i.find('Logical Drive:') > 0:
-			if object and not object in objects: objects.append(object)
-			object = {}
-			object['name'] = i.strip() 
-		elif type=='physicaldisks' and i.find('physicaldrive') > 0:
-			if object and not object in objects: objects.append(object)
-			object = {}
-			object['name'] = i.strip() 
-		else:
-			i = i.strip()
-			if i.find(':') < 1: continue
-			i = i.split(':')
-			if i[0] == '': continue # skip empty lines
-			if len(i) == 1: continue
-			key = i[0].strip()
-			value = ' '.join( i[1:] ).strip()
-			object[key] = value
-	if object and not object in objects: objects.append(object)
-	return objects
-
-controllers = []
-def check_controllers():
-	global controllers
-	status = -1
-	controllers = run_hpacucli()
-	if len(controllers) == 0:
-		add_summary("No Disk Controllers Found. Exiting...")
-		global nagios_state
-		nagios_state = unknown
-		end()
-	add_summary( "Found %s controllers" % ( len(controllers) ) )
-	for i in controllers:
-		controller_status = check(i, 'Controller Status', 'OK' )
-		status = max(status, controller_status)
-		
-		cache_status = check(i, 'Cache Status' )
-		status = max(status, cache_status)
-		
-		controller_serial = 'n/a'
-		cache_serial = 'n/a'
-		if i.has_key('Serial Number'):
-			controller_serial = i['Serial Number']
-		if i.has_key('Cache Serial Number'):
-			cache_serial = i['Cache Serial Number']
-		add_long ( "%s" % (i['name']) )
-		add_long( "- Controller Status: %s (sn: %s)" % ( state[controller_status], controller_serial ) )
-		add_long( "- Cache Status: %s (sn: %s)" % ( state[cache_status], cache_serial ) )
-
-		if controller_status > ok or cache_status > ok:
-			add_summary( ";%s on %s;" % (state[controller_status], i['name']) )
-
-	add_summary(', ')	
-	return status
-
-
-def check_logicaldisks():
-	global controllers
-	if len(controllers) < 1:
-		controllers = run_hpacucli()
-	logicaldisks = []
-	for controller in controllers:
-		for ld in  run_hpacucli(type='logicaldisks', controller=controller):
-			logicaldisks.append ( ld )
-        status = -1
-	add_long("\nChecking logical Disks:" )
-        add_summary( "%s logicaldisks" % ( len(logicaldisks) ) )
-	for i in logicaldisks:
-		ld_status =  check(i, 'Status' )
-		status = max(status, ld_status)
-		
-		mount_point = i['Mount Points']
-		add_long( "- %s (%s) = %s" % (i['name'], mount_point, state[ld_status]) )
-	add_summary(". ")
-
-def check_physicaldisks():
-        global controllers
-	disktype='physicaldisks'
-        if len(controllers) < 1:
-                controllers = run_hpacucli()
-        disks = []
-        for controller in controllers:
-                for disk in  run_hpacucli(type=disktype, controller=controller):
-                        disks.append ( disk )
-        status = -1
-        add_long("\nChecking Physical Disks:" )
-        add_summary( "%s %s" % ( len(disks), disktype ) )
-        for i in disks:
-                disk_status =  check(i, 'Status' )
-                status = max(status, disk_status)
-
-		size = i['Size']
-		firmware = i['Firmware Revision']
-		interface = i['Interface Type']
-		serial = i['Serial Number']
-		model = i['Model']
-                add_long( "- %s, %s, %s = %s" % (i['name'], interface, size, state[disk_status]) )
-		if disk_status > ok:
-			add_long( "-- Replace drive, firmware=%s, model=%s, serial=%s" % (firmware,model, serial))
-	if status > ok:
-		add_summary( "(errors)" )
-        add_summary(". ")
-
-
-def check(object, field, valid_states = ['OK']):
-	state = -1
-	global nagios_status
-	if object.has_key(field):
-		if object[field] in valid_states:
-			state = ok
-		else:
-			state = warning
-	nagios_status = max(nagios_status, state)
-	return state
-
-
-
-def parse_arguments():
-	arguments = argv[1:]
-	while len(arguments) > 0:
-		arg = arguments.pop(0)
-		if arg == '--help':
-			print_help()
-			exit(ok)
-		elif arg == '--path':
-			path = arguments.pop(0)
-			set_path(path)
-		elif arg == '--debug':
-			global debugging
-			debugging = True
-		else:
-			print_help()
-			exit(unknown)
-			
-
-
-
-def main():
-	parse_arguments()
-	set_path('')
-	check_controllers()
-	check_logicaldisks()
-	check_physicaldisks()
-	end()	
-
-
-if __name__ == '__main__':
-	main()

nsclient/trunk/scripts/check_hpacucli/setup.py

@@ -1,4 +0,0 @@
-from distutils.core import setup
-import py2exe
-
-setup(console=['check_hpacucli.py'])

nsclient/trunk/scripts/check_no_rdp.bat

@@ -1,53 +0,0 @@
-@echo off
-SET RDP_PORT=%1
-SET NAGIOSHOST1=%2
-SET NAGIOSHOST2=%3
-SET NAGIOSHOST3=%4
-IF NOT DEFINED RDP_PORT GOTO :defsettings
-IF %RDP_PORT% EQU "-h" GOTO :usage
-GOTO check
-
-:defsettings
-set RDP_PORT=3389
-
-:check
-netstat -a -n | find "%RDP_PORT%" | find "LISTENING" > NUL
-IF %ERRORLEVEL% NEQ 0 goto portnotfound
-
-:connection_check
-IF NOT DEFINED NAGIOSHOST1 GOTO check_s0
-IF NOT DEFINED NAGIOSHOST2 GOTO check_s1
-IF NOT DEFINED NAGIOSHOST3 GOTO check_s12
-GOTO check_s123
-
-:check_s0
-netstat -a -n | find "%RDP_PORT%" | find "ESTABLISHED"
-IF %ERRORLEVEL% NEQ 0 goto noconnections
-exit /b 2
-
-:check_s1
-netstat -a -n | find "%RDP_PORT%" | find "ESTABLISHED" | find /V "%NAGIOSHOST1%"
-IF %ERRORLEVEL% NEQ 0 goto noconnections
-exit /b 2
-
-:check_s12
-netstat -a -n | find "%RDP_PORT%" | find "ESTABLISHED" | find /V "%NAGIOSHOST1%" | find /V "%NAGIOSHOST2%"
-IF %ERRORLEVEL% NEQ 0 goto noconnections
-exit /b 2
-
-:check_s123
-netstat -a -n | find "%RDP_PORT%" | find "ESTABLISHED" | find /V "%NAGIOSHOST1%" | find /V "%NAGIOSHOST2%" | find /V "%NAGIOSHOST3%"
-IF %ERRORLEVEL% NEQ 0 goto noconnections
-exit /b 2
-
-:portnotfound
-echo RDP not listening! Is port %RDP_PORT% (still) correct?
-exit /b 2
-
-:usage
-echo Usage: check_rdp.bat PORT HOST1 HOST2 HOST3
-exit /b 3
-
-:noconnections
-echo OK: No connections.
-exit /b 0

nsclient/trunk/scripts/check_ok.bat

@@ -1,2 +0,0 @@
-@echo OK: Everything is going to be fine a
-@exit 0

nsclient/trunk/scripts/check_printer.vbs

@@ -1,134 +0,0 @@
-' =========================================================
-' WMI script to return the charge remaining in a laptop battery, using the 
-' EstimatedChargeRemaining property of the Win32_Battery class
-' =========================================================
-
-' Required Variables
-Const PROGNAME = "check_printer"
-Const VERSION = "0.0.1"
-
-' Default settings for your script.
-threshold_warning = 50
-threshold_critical = 20
-strComputer = "."
-strPrinter = ""
-
-' Create the NagiosPlugin object
-Set np = New NagiosPlugin
-
-' Define what args that should be used
-np.add_arg "computer", "Computer name", 0
-
-' If we have no args or arglist contains /help or not all of the required arguments are fulfilled show the usage output,.
-If Args.Exists("help") Then
-	np.Usage
-End If
-
-' If we define /warning /critical on commandline it should override the script default.
-If Args.Exists("computer") Then strComputer = Args("computer")
-
-Set colInstances = np.simple_WMI_CIMV2(strComputer, "SELECT * FROM Win32_Printer")
-return_code = OK
-
-perf = ""
-msg = ""
-For Each objInstance In colInstances
-	msg = msg & "" & objInstance.Caption & _
-		" {Status: " & printer_status(objInstance.PrinterStatus) & _
-		", State: " & printer_state(objInstance.PrinterState) & "}; "
-	perf = perf & "status=" & objInstance.PrinterStatus & " state=" & objInstance.PrinterState & " "
-	return_code = np.escalate(return_code, check_status(objInstance.PrinterStatus))
-	return_code = np.escalate(return_code, check_state(objInstance.PrinterState))
-Next
-
-' Nice Exit with msg and exitcode
-np.nagios_exit msg, return_code
-
-
-Public Function printer_status(code)
-	Select Case code
-		case 1: printer_status = "Other"
-		case 2: printer_status = "Unknown"
-		case 3: printer_status = "Idle"
-		case 4: printer_status = "Printing"
-		case 5: printer_status = "WarmUp"
-		case 6: printer_status = "Stopped Printing"
-		case 7: printer_status = "Offline"
-		case else: printer_status = "Undefined"
-	End Select
-End Function
-
-Public Function check_status(code)
-	Select Case code
-		case 1: check_status = OK
-		case 2: check_status = UNKNOWN
-		case 3: check_status = OK
-		case 4: check_status = OK
-		case 5: check_status = OK
-		case 6: check_status = OK
-		case 7: check_status = CRITICAL
-		case else: check_status = UNKNOWN
-	End Select
-End Function
-
-Public Function printer_state(code)
-	Select Case code
-		case 0: printer_state = "Paused"
-		case 1: printer_state = "Error"
-		case 2: printer_state = "PendingDeletion"
-		case 3: printer_state = "PaperJam"
-		case 4: printer_state = "PaperOut"
-		case 5: printer_state = "ManualFeed"
-		case 6: printer_state = "PaperProblem"
-		case 7: printer_state = "Offline"
-		case 8: printer_state = "IOActive"
-		case 9: printer_state = "Busy"
-		case 10: printer_state = "Printing"
-		case 11: printer_state = "OutputBinFull"
-		case 12: printer_state = "NotAvailable"
-		case 13: printer_state = "Waiting"
-		case 14: printer_state = "Processing"
-		case 15: printer_state = "Initialization"
-		case 16: printer_state = "WarmingUp"
-		case 17: printer_state = "TonerLow"
-		case 18: printer_state = "NoToner"
-		case 19: printer_state = "PagePunt"
-		case 20: printer_state = "UserInterventionRequired"
-		case 21: printer_state = "OutofMemory"
-		case 22: printer_state = "DoorOpen"
-		case 23: printer_state = "Server_Unknown"
-		case 24: printer_state = "PowerSave"
-		case else: printer_state = "Undefined"
-	End Select
-End Function
-
-Public Function check_state(code)
-	Select Case code
-		case 0: check_state = OK
-		case 1: check_state = CRITICAL
-		case 2: check_state = OK
-		case 3: check_state = WARNING
-		case 4: check_state = CRITICAL
-		case 5: check_state = OK
-		case 6: check_state = CRITICAL
-		case 7: check_state = CRITICAL
-		case 8: check_state = OK
-		case 9: check_state = OK
-		case 10: check_state = OK
-		case 11: check_state = WARNING
-		case 12: check_state = UNKNOWN
-		case 13: check_state = OK
-		case 14: check_state = OK
-		case 15: check_state = OK
-		case 16: check_state = OK
-		case 17: check_state = WARNING
-		case 18: check_state = CRITICAL
-		case 19: check_state = OK
-		case 20: check_state = CRITICAL
-		case 21: check_state = CRITICAL
-		case 22: check_state = WARNING
-		case 23: check_state = CRITICAL
-		case 24: check_state = OK
-		case else: check_state = UNKNOWN
-	End Select
-End Function

nsclient/trunk/scripts/check_test.bat

@@ -1,2 +0,0 @@
-@echo CRITICAL: Everything is not going to be ok! (%1 %2 %3)
-@exit 2

nsclient/trunk/scripts/check_test.ps1

@@ -1,2 +0,0 @@
-write-host "UNKNOWN: Everything is not going to be fine!"
-exit 3

nsclient/trunk/scripts/check_test.vbs

@@ -1,40 +0,0 @@
-' =========================================================
-' Example file of setting up a script to use NagiosPlugin.vbs as base.
-' =========================================================
-
-' Required Variables
-Const PROGNAME = "check_test"
-Const VERSION = "0.9.0"
-
-' Default settings for your script.
-threshold_warning = 10
-threshold_critical = 20
-alias = "default"
-
-' Create the NagiosPlugin object
-Set np = New NagiosPlugin
-
-' Define what args that should be used
-np.add_arg "arg", "Argument", 1
-np.add_arg "warning", "warning threshold", 0
-np.add_arg "critical", "critical threshold", 0
-np.add_arg "alias", "Alias", 0
-
-' If we have no args or arglist contains /help or not all of the required arguments are fulfilled show the usage output,.
-If Args.Count < 1 Or Args.Exists("help") Or np.parse_args = 0 Then
-	WScript.Echo Args.Count
-	np.Usage
-End If
-
-' If we define /warning /critical on commandline it should override the script default.
-If Args.Exists("warning") Then threshold_warning = Args("warning")
-If Args.Exists("critical") Then threshold_critical = Args("critical")
-If Args.Exists("alias") Then alias = Args("alias")
-np.set_thresholds threshold_warning, threshold_critical
-
-' Set the msg output to be used (OK/WARNING/CRITICAL/UNKNOWN will be applied automaticly)
-return_code = np.check_threshold(Args("arg"))
-msg = "Testing " & Args.Item("host") & " " & np.get_threshold("warning") & " " & np.get_threshold("critical")
-
-' Nice Exit with msg and exitcode
-np.nagios_exit msg, return_code

nsclient/trunk/scripts/install.bat

@@ -1,10 +0,0 @@
-@echo off
-
-net stop NSClientpp
-
-xcopy "%ProgramFiles%\NSclient++\*.ini" "%ProgramFiles%\NSclient++\backup\"  /i /h /y
-xcopy \\10.100.1.170\nagios\nsclient\%PROCESSOR_ARCHITECTURE%\*.*  "%ProgramFiles%\NSclient++\" /e /i /h /y
-
-"%ProgramFiles%\NSclient++\nsclient++.exe" -uninstall
-"%ProgramFiles%\NSclient++\nsclient++.exe" -install
-Net Start NSClientpp

nsclient/trunk/scripts/lib/NagiosPlugins.vbs

@@ -1,357 +0,0 @@
-' Author: Mattias Ryrlén (mr@op5.com)
-' Website: http://www.op5.com
-' Created 2008-10-26
-' Updated 2008-10-26
-' Description: Class to ease the output from nagios plugins
-
-' Exitcodes
-Const OK = 0
-Const WARNING = 1
-Const CRITICAL = 2
-Const UNKNOWN = 3
-
-Dim return_code			' String to set exitcode
-Dim msg					' Output string for your check
-Dim np					' Object to be used with NagiosPlugin Class
-Dim threshold_warning
-Dim threshold_critical
-Dim Args				' List to hold your arguments
-Dim Timeout
-Dim ArgList()		' Array for your arguments to be used
-Dim tmpArgList()
-
-' Default values
-return_code = UNKNOWN
-threshold_warning = "N/A"
-threshold_critical = "N/A"
-Timeout = 10
-ReDim tmpArgList(2)
-
-' Create alias for arguments method
-Set Args = WScript.Arguments.Named
-
-Class NagiosPlugin
-	Public Function nagios_exit (msg, return_code)
-		' Function to exit the plugin with text and exitcode
-		If return_code = 0 Then
-			msg = "OK: " & msg
-		End If
-		
-		If return_code = 1 Then
-			msg = "WARNING: " & msg
-		End If
-
-		If return_code = 2 Then
-			msg = "CRITICAL: " & msg
-		End If
-
-		If return_code >= 3 Then
-			msg = "UNKNOWN: " & msg
-		End If
-		Wscript.Echo msg
-		Wscript.Quit(return_code)
-	End Function
-	
-	Public Function add_perfdata (label, value, unit, threshold)
-		' Adds perfdata to the output
-	End Function
-	
-	Public Function parse_args ()
-		' Start the real parsing to see if we meet all required arguments needed.
-		totalArg = UBound(ArgList)
-		parse_args = 1
-		
-		i = 0
-		Do While i < totalArg
-			If ArgList(i,2) = 1 Then
-				If Not Args.Exists(ArgList(i,0)) Then
-					parse_args = 0
-				End If
-			End If
-			i = i + 1
-		Loop
-	End Function
-	
-	Public Function add_arg (parameter, help, required)
-		' Add an argument to be used, make it required or optional.
-		totalArg = UBound(tmpArgList)
-		
-		if tmpArgList(2) <> "" Then
-			totalArg = totalArg + 3
-			ReDim Preserve tmpArgList(totalArg)		
-			
-			tmpArgList(totalArg - 2) = parameter
-			tmpArgList(totalArg - 1) = help
-			tmpArgList(totalArg) = required
-		Else
-			tmpArgList(0) = parameter
-			tmpArgList(1) = help
-			tmpArgList(2) = required
-		End If
-
-		Erase ArgList
-		ReDim ArgList(Round(totalArg / 3), 2)		
-
-		i = 0
-		subi = 0
-		For Each arg In tmpArgList
-			ArgList(i, subi) = arg
-			If subi >= 2 Then
-				subi = 0
-				i = i + 1
-			Else
-				subi = subi + 1
-			End if
-		Next
-	End Function
-	
-	Public Function set_thresholds (warning, critical)
-		' Simple function to set warning/critical thresholds
-		threshold_warning = warning
-		threshold_critical = critical
-	End Function
-
-	Public Function get_threshold (threshold)
-		' Simple function to return the warning and critical threshold
-		If threshold = LCase("warning") Then
-			get_threshold = threshold_warning
-		End IF
-		
-		If threshold = LCase("critical") Then
-			get_threshold = threshold_critical
-		End If
-	End Function
-	
-	Public Function escalate_check_threshold (current, value)
-		result = check_threshold (value)
-		escalate_check_threshold = escalate(current, result)
-	End Function
-	
-	Public Function escalate (current, newValue)
-		If newValue > current Then
-			escalate = newValue
-		Else
-			escalate = current
-		End If
-	End Function
-
-	
-	Public Function check_threshold (value)
-		' Verify the thresholds for warning and critical
-		' Return 0 if ok (don't generate alert)
-		' Return 1 if within warning (generate alert)
-		' Return 2 if within critical (generate alert)
-		
-		'Option	Range definition			Generate an alert if x...
-		'1		10					< 0 or > 10, (outside the range of {0 .. 10})
-		'2		10:					< 10, (outside {10 .. infinity})
-		'3		~:10					> 10, (outside the range of {-infinity .. 10})
-		'4		10:20					< 10 or > 20, (outside the range of {10 .. 20})
-		'5		@10:20				>= 10 and <= 20, (inside the range of {10 .. 20})
-		
-		check_threshold = 0
-		
-		Set re = New RegExp
-		re.IgnoreCase = True
-
-		' Option 1
-		re.Pattern = "^[0-9]+$"
-		If re.Test(get_threshold("warning")) Then
-			warning_nr = parse_range(get_threshold("warning"), value, 1)
-		End If
-		If re.Test(get_threshold("critical")) Then
-			critical_nr = parse_range(get_threshold("critical"), value, 1)
-		End If
-
-		' Option 2
-		re.Pattern = "^[0-9]+:$"
-		If re.Test(get_threshold("warning")) Then
-			warning_nr = parse_range(get_threshold("warning"), value, 2)
-		End If
-		If re.Test(get_threshold("critical")) Then
-			critical_nr = parse_range(get_threshold("critical"), value, 2)
-		End If
-
-		' Option 3
-		re.Pattern = "^~:[0-9]+$"
-		If re.Test(get_threshold("warning")) Then
-			warning_nr = parse_range(get_threshold("warning"), value, 3)
-		End If
-		If re.Test(get_threshold("critical")) Then
-			critical_nr = parse_range(get_threshold("critical"), value, 3)
-		End If
-
-		' Option 4
-		re.Pattern = "^[0-9]+:[0-9]+$"
-		If re.Test(get_threshold("warning")) Then
-			warning_nr = parse_range(get_threshold("warning"), value, 4)
-		End If
-		If re.Test(get_threshold("critical")) Then
-			critical_nr = parse_range(get_threshold("critical"), value, 4)
-		End If
-
-		' Option 5
-		re.Pattern = "^@[0-9]+:[0-9]+$"
-		If re.Test(get_threshold("warning")) Then
-			warning_nr = parse_range(get_threshold("warning"), value, 5)
-		End If
-		If re.Test(get_threshold("critical")) Then
-			critical_nr = parse_range(get_threshold("critical"), value, 5)
-		End If
-		
-		If warning_nr > 0 And critical_nr < 1 Then
-			check_threshold = 1
-		End If
-		
-		If critical_nr > 0 Then
-			check_threshold = 2
-		End if
-		
-		'Wscript.Echo "warning/critical: " & warning_nr & "/" & critical_nr
-	End Function
-	
-	Private Function parse_range (threshold, value, myOpt)
-	
-		'Option	Range definition			Generate an alert if x...
-		'1		10					< 0 or > 10, (outside the range of {0 .. 10})
-		'2		10:					< 10, (outside {10 .. infinity})
-		'3		~:10					> 10, (outside the range of {-infinity .. 10})
-		'4		10:20					< 10 or > 20, (outside the range of {10 .. 20})
-		'5		@10:20				>= 10 and <= 20, (inside the range of {10 .. 20})
-
-		parse_range = 3
-		
-		Set re = New RegExp
-		re.IgnoreCase = True
-		
-		Select Case myOpt
-			' Generate an alert if x ...
-			Case 1
-				' outside the range of 0-threshold
-				re.Pattern = "^([0-9]+)$"
-				Set threshold = re.Execute(threshold)
-				
-				If threshold(0) < 0 Or threshold(0) > value Then
-					parse_range = 0
-				Else
-					parse_range = 1
-				End If
-
-			Case 2
-				' outside value -> iinfinity
-				re.Pattern = "^([0-9]+):$"
-				Set threshold = re.Execute(threshold)
-				If value > threshold(0) Then
-					parse_range = 0
-				Else
-					parse_range = 1
-				End If
-
-			Case 3
-				' outside the range infinity <- value
-				re.Pattern = "^~:([0-9]+)$"
-				Set threshold = re.Execute(threshold)
-				If value < threshold(0) Then
-					parse_range = 0
-				Else
-					parse_range = 1
-				End If
-
-			Case 4
-				' outside the range of value:value
-				re.Pattern = "^([0-9]+):([0-9]+)$"
-				Set threshold = re.Execute(threshold)
-				
-				For Each thres In threshold
-					If value < thres.SubMatches(0) Or value > thres.SubMatches(1) Then
-						parse_range = 1
-					Else
-						parse_range = 0
-					End If
-				Next
-				
-			Case 5
-				re.Pattern = "^@([0-9]+):([0-9]+)$"
-				Set threshold = re.Execute(threshold)
-				
-				For Each thres In threshold
-					If value > thres.SubMatches(0) And value < thres.SubMatches(1) Then
-						Wscript.Echo "Bigger than " & thres.SubMatches(0) & " and smaller than " & thres.SubMatches(1)
-						parse_range = 1
-					Else
-						parse_range = 0
-					End If
-				Next
-
-		End Select
-	End Function
-	
-	Public Function Usage
-		' Print the usage output, automaticly build by the add_arg functions.
-		i = 0
-		r = 0
-		o = 0
-
-		Dim reqArgLong()
-		Dim optArgLong()
-		Dim value
-
-		Do While i <= Ubound(ArgList)
-
-			If ArgList(i,0) <> "" Then
-				ReDim Preserve reqArgLong(r)
-				ReDim Preserve optArgLong(o)
-				value = "<value>"
-				
-				If Args.Exists(ArgList(i,0)) Then
-					value = Args(ArgList(i,0))
-				End If
-				
-				If ArgList(i,2) = 1 Then
-					reqArgShort = reqArgShort & "/" & ArgList(i, 0) & ":" & value & " "
-					reqArgLong(r) = tabilize("/" & ArgList(i, 0), ArgList(i, 1))
-					r = r + 1
-				Else
-					optArgShort = optArgShort & "[/" & ArgList(i, 0) & ":" & value & "] "
-					optArgLong(o) = tabilize("[/" & ArgList(i, 0) & "]", ArgList(i, 1))
-					o = o + 1
-				End If
-			End If
-			i = i + 1
-		Loop
-		Wscript.Echo "Usage: " & PROGNAME & " " & reqArgShort & optArgShort
-		Wscript.Echo ""
-		
-		i = 0
-		Do While i <= Ubound(reqArgLong)
-			Wscript.Echo reqArgLong(i)
-			i = i + 1
-		Loop
-		
-		i = 0
-		Do While i <= Ubound(optArgLong)
-			Wscript.Echo optArgLong(i)
-			i = i + 1
-		Loop
-
-		Wscript.Quit(UNKNOWN)
-	End Function
-	
-	Private Function tabilize (name, txt)
-		' Add some space to make it pretty
-		MaxWith = 30
-		command = Len(name)
-		MaxWith = MaxWith - command
-		
-		tabilize = name & space(MaxWith) & txt
-	End Function
-	
-	Public Function simple_WMI_CIMV2(strComputer, strQuery)
-		Const wbemFlagReturnImmediately = &h10
-		Const wbemFlagForwardOnly       = &h20
-
-		Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
-		Set simple_WMI_CIMV2 = objWMIService.ExecQuery(strQuery, "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
-'		Set simple_WMI_CIMV2 = objWMIService.ExecQuery(strQuery, "WQL")
-	End Function
-End Class

nsclient/trunk/scripts/lib/wrapper.vbs

@@ -1,54 +0,0 @@
-' =========================================================
-' Example file of setting up a script to use NagiosPlugin.vbs as base.
-' =========================================================
-' Setting up usage of NagiosPlugin Class
-Dim ret
-ret = includeFile("scripts\lib\NagiosPlugins.vbs")
-If ret(0) <> 0 Then
-	WScript.Echo "Failed to load core: " & ret(0) & " - " & ret(1)
-	Wscript.Quit(3)
-End If
-
-' If we have no args or arglist contains /help or not all of the required arguments are fulfilled show the usage output,.
-If WScript.Arguments.Count = 0 Then
-	WScript.Echo "Usage: cscript //NOLOGO [c-script options] wrapper.vbs <script.vbs> [...]" & WScript.Arguments.Count
-	Wscript.Quit(3)
-End If
-
-ret = includeFile(WScript.Arguments(0))
-If ret(0) <> 0 Then
-	WScript.Echo "Failed to run script: " & ret(0) & " - " & ret(1)
-	Wscript.Quit(3)
-End If
-
-Function includeFile (file)
-    Dim oFSO, oFile, strFile, eFileName
-  
-    Set oFSO = CreateObject ("Scripting.FileSystemObject")
-	eFileName = file
-    If Not oFSO.FileExists(eFileName) Then
-		eFileName = oFSO.getFolder(".") & "\" & file
-		If Not oFSO.FileExists(eFileName) Then
-			eFileName = oFSO.getFolder(".") & "\scripts\" & file
-			If Not oFSO.FileExists(eFileName) Then
-				includeFile = Array("1", "The specified file " & file & " does not exist")
-				Exit Function
-			End If
-		End If
-	End If
-    On Error Resume Next
-    Err.Clear
-
-	Set oFile = oFSO.OpenTextFile(eFileName)
-	If Err.Number <> 0 Then
-		includeFile = Array(Err.Number, "The specified file " & file & " could not be opened for reading.")
-		Exit Function
-	End If
-	On Error GoTo 0
-	strFile = oFile.ReadAll
-	oFile.close
-	Set oFso = Nothing
-	Set oFile = Nothing
-	ExecuteGlobal strFile
-	includeFile = Array("0", "")
-End Function

nsclient/trunk/scripts/test.lua

@@ -1,48 +0,0 @@
-nscp.print('Loading test script...')
-
-nscp.execute('version')
-v = nscp.getSetting('NSCA Agent', 'interval', 'broken')
-nscp.print('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
-nscp.print('value: ' .. v)
-nscp.print('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
-
-nscp.register('check_something', 'something')
-nscp.register('lua_debug', 'debug')
-nscp.register('foo', 'something')
-nscp.register('lua_alias', 'execute_all_alias')
-
-function something (command)
-  nscp.print(command)
-  code, msg, perf = nscp.execute('CheckCPU','time=5','MaxCrit=5')
-  print(code .. ': ' .. msg .. ', ' .. perf)
-  collectgarbage ()
-
-  return code, 'hello from LUA: ' .. msg, perf
-end
-
-function execute_all_alias()
-	commands = nscp.getSection('External Alias')
-	ok = 0
-	err = 0
-	for i,key in pairs(commands) do 
-		args = nscp.getSetting('External Alias', key)
-		code, msg, perf = nscp.execute(key,args)
-		if code == 'ok' then
-			ok = ok + 1
-		else
-			err = err + 1
-			print('[' .. i .. '] ' .. key .. ': ' .. code .. ' <' .. msg ..'>')
-		end
-	end
-	if err == 0 then
-		return 'ok', 'All ' .. ok .. ' commands were ok'
-	else
-		return 'error', 'Only ' .. ok .. ' commands of the ' .. (ok+err) .. ' were successfull'
-	end
-end
-
-function debug (command, args)
-    table.foreachi(args, print)
-    print ('Command was: ' .. command)
-    return 'ok', 'hello'
-end

nsclient/trunk/scripts/wmi/CHANGELOG.txt

@@ -1,7 +0,0 @@
-File name:    CHANGELOG.txt
-Revision:     HEAD
-Date:         December 5, 2008
-Author:       Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-=============================================================================================
-
-This file is deprecated.  Please use 'WMI agentless plugins.pdf'.

nsclient/trunk/scripts/wmi/INSTALL.txt

@@ -1,7 +0,0 @@
-File name:    INSTALL.txt
-Revision:     HEAD
-Date:         December 5, 2008
-Author:       Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-=============================================================================================
-
-This file is deprecated.  Please use 'WMI agentless plugins.pdf'.

nsclient/trunk/scripts/wmi/README.txt

@@ -1,7 +0,0 @@
-File name:    README.txt
-Revision:     HEAD
-Date:         December 5, 2008
-Author:       Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-=============================================================================================
-
-This file is deprecated.  Please use 'WMI agentless plugins.pdf'.

nsclient/trunk/scripts/wmi/check_100nsec_timer.vbs

@@ -1,896 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intWarning = 1
-Const intCritical = 2
-Const intError = 3
-Const intUnknown = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strClass
-Dim strProp
-Dim strInst
-Dim warningValue
-Dim warningValueString
-Dim criticalValue
-Dim criticalValueString
-Dim strUser
-Dim strPass
-Dim strDomain
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult
-Dim strResult1
-Dim strResult2
-Dim intReturnTemp
-Dim intReturn
-Dim strResultTemp1
-Dim strResultTemp2
-Dim strResultTemp3
-Dim strResultTemp4
-Dim intReturnTemp1
-Dim strPrefix
-Dim returnValue
-Dim strPropBase
-Dim strNameTemp
-Dim strPropNameTemp
-Dim counterValueArray()
-Dim timerValueTempArray()
-Dim strNameArray()
-Dim intValueArray()
-Dim strPropName
-Dim instanceArray()
-Dim instanceArraySize
-Dim warningArraySize
-Dim criticalArraySize
-Dim warningArray()
-Dim criticalArray()
-Dim instance
-Dim propArray()
-Dim propArraySize
-Dim lWarningValue
-Dim uWarningValue
-Dim lCriticalValue
-Dim uCriticalValue
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-Dim objWMIService, colWMI, colWMITemp, objWMI, objSWbemLocator
-
-strComputer=""
-strClass = ""
-strProp = ""
-strInst = ""
-warningValue = -1
-criticalValue = -1
-strUser = ""
-strPass = ""
-strDomain = ""
-
-intReturnTemp1 = 0
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim str
-  		str="Check 100NSEC TIMER. If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two last parameters."&vbCrlF&vbCrlF
-  		str=str&"cscript check_100nsec_timer.vbs -h hostname -class classname -prop property -inst instancename [-w warning_level -c critical_level] [-user username -pass password [-domain domain]]"&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"-h [--help]                 Help."&vbCrlF
-  		str=str&"-h hostname                 Host name."&vbCrlF  
-  		str=str&"-class classname            Class name."&vbCrlF
-  		str=str&"-prop property              Property of Class."&vbCrlF  
-  		str=str&"-inst instance              Needed Instance, can be * for all"&vbCrlF  
-  		str=str&"-w warning_level            Warning threshold."&vbCrlF
-  		str=str&"-c critical_level           Critical threshold."&vbCrlF
-  		str=str&"-user username              Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-pass password              Password Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-domain domain              Domain Name of Remote Machine."&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"Example: cscript check_100nsec_timer.vbs -h Ser1 -class Win32_PerfRawData_PerfOS_Processor -prop PercentUserTime -inst ""*"" -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] "&vbCrlF
-  		str=str&"Example: cscript check_100nsec_timer.vbs -h Ser1 -class Win32_PerfRawData_PerfOS_Processor -prop PercentUserTime -inst ""Name = '0'"" -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] "
-  		wscript.echo str
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstance.
-'Descripton:        Get infomation at Local Host.
-'Input:				instance.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstance(instance)
-		
-		On Error Resume Next
-		
-		strResultTemp1 = ""
-		strResultTemp2 = ""
-		strResultTemp = ""
-		intResultTemp = 0
-		strPropBase = ""
-
-		strInstanceTemp1 = ""
-		strInstanceTemp2 = ""
-		intInstanceTemp1 = 0
-		intInstanceTemp2 = 0
-
-		'Depend on strInfo parameters to get the result value
-		if(instance = "*") then
-			strQuery = "Select " & strProp & ", TimeStamp_Sys100NS" & " from " & strClass
-			Set colWMITemp = objWMIService.ExecQuery(strQuery)
-			Wscript.Sleep(1000)
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		else
-		
-		'Depend on strInfo parameters to get the result value
-
-			intInstanceTemp1 = InStr(1,instance,"=")
-			strInstanceTemp1 = Mid(instance,1,intInstanceTemp1-1)
-			intInstanceTemp2 = Len(instance)
-			strInstanceTemp2 = Mid(instance,intInstanceTemp1+1,intInstanceTemp2-intInstanceTemp1)
-			instance=strInstanceTemp1 & "='" & strInstanceTemp2 & "'"
-
-			strQuery = "Select " & strProp & ", TimeStamp_Sys100NS" & " from " & strClass & " where " & instance
-			Set colWMITemp = objWMIService.ExecQuery(strQuery)
-			Wscript.Sleep(1000)
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		end if
-		
-		count = -1
-		count = colWMI.count
-		if(count = -1) then
-			Wscript.Echo "Unknown - No data received from WMI;"
-			Wscript.Quit(intUnknown)
-		else 
-			if(colWMI.count > 0) then
-				f_GetData()
-				strResultTemp1 = strResultTemp1 & strResultTemp3
-				strResultTemp2 = strResultTemp2 & strResultTemp4
-				intReturnTemp = intReturnTemp1
-				Exit Function
-			else
-				strResultTemp1 = "Unknown - " & instance &" query: No row returned."
-				intReturnTemp = intUnknown
-				Exit Function
-			end if
-		end if								
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefix.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefix(intValue)
-		
-		On Error Resume Next
-		
-		strPrefix = ""
-		If(warningValue <> "" And criticalValue = "") Then 
-			If (IsNumeric(warningValue)) Then 
-				If (Int(intValue) < Int(warningValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=1
-					strPrefix= "Warning - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If(warningValue = "" And criticalValue <> "") Then 
-			If (IsNumeric(criticalValue)) Then 
-				If (Int(intValue) < Int(criticalValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=2
-					strPrefix= "Critical - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If (warningValue <> "" And criticalValue <> "") Then 
-			If (IsNumeric(warningValue) And IsNumeric(criticalValue)) Then
-				if (Int(warningValue) < Int(criticalValue)) then
-		      
-		            if (Int(intValue) < Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) < Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        else
-		            if (Int(intValue) > Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) > Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        end If
-	        Else
-	        	Wscript.Echo "Error! Arguments wrong, please verify -w -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-	        End If 
-        End If 
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefixWithRange.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefixWithRange(intValue)
-		
-        On Error Resume Next
-        lWarningValue = ""
-	    uWarningValue = ""
-	    lCriticalValue= ""
-	    uCriticalValue= ""
-	    warningReturn = 0
-	    criticalReturn = 0
-	    If(warningValue <> "") Then 
-	    	f_GetWarningValueFromRange(warningValue)
-	    End If
-	    If(criticalValue <> "") Then 
-	    	f_GetCriticalValueFromRange(criticalValue)
-	    End If
-	    strPrefix = ""
-	  	'verify warning
-	    If((lWarningValue <> "") And (uWarningValue <> "")) Then
-	    	If(Int(lWarningValue) <= Int(uWarningValue)) Then
-	  	    	If((Int(lWarningValue) >= Int(intValue)) Or (Int(intValue) >= Int(uWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uWarningValue) ) And (Int(intValue) <= Int(lWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    End If
-	    End If
-	    If((lWarningValue <> "") And (uWarningValue = "")) Then 
-	        If(Int(intValue) <= Int(lWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If 
-	    If((lWarningValue = "") And (uWarningValue <> "")) Then 
-	  	    If(Int(intValue) >= Int(uWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If
-	    
-	    'verify critical
-	    If((lCriticalValue <> "") And (uCriticalValue <> "")) Then
-	        If(Int(lCriticalValue) <= Int(uCriticalValue)) Then
-		        If((Int(lCriticalValue) >= Int(intValue)) Or (Int(intValue) >= Int(uCriticalValue))) Then
-		            criticalReturn=2
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uCriticalValue) ) And (Int(intValue) <= Int(lCriticalValue))) Then
-			        criticalReturn=2
-                End If 
-		    End If
-	    End If
-	    If((lCriticalValue <> "") And (uCriticalValue = "")) Then 
-	        If(Int(intValue) <= Int(lCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If 
-	    If((lCriticalValue = "") And (uCriticalValue <> "")) Then 
-	        If(Int(intValue) >= Int(uCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If
-      
-	    'return result
-	    If(criticalReturn = 2) Then 
-	        returnValue=2
-		    strPrefix= "Critical - "
-	    Else 
-	        If(warningReturn = 1) Then 
-		        returnValue=1
-		        strPrefix= "Warning - "
-		    Else
-			    returnValue=0
-		        strPrefix= "Ok - "
-		    End If
-	    End If
-
-    End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningValueFromRange(warningValue)
-		
-		On Error Resume Next
-		lWarningValue = ""
-	    uWarningValue = ""
-		temp1 = 0
-		temp1 = InStr(1, warningValue, ":")
-		if(temp1 > 0) then
-			lWarningTemp = Mid(warningValue, 1, temp1 -1)
-			uWarningTemp = Mid(warningValue, temp1 +1, len(warningValue) - temp1)
-			if(IsNumeric(lWarningTemp) or IsNumeric(uWarningTemp)) then
-				lWarningValue = lWarningTemp
-				uWarningValue = uWarningTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-		 
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetCriticalValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetCriticalValueFromRange(criticalValue)
-		
-		On Error Resume Next
-		lCriticalValue = ""
-	    uCriticalValue = ""
-		temp1 = 0
-		temp1 = InStr(1, criticalValue, ":")
-		if(temp1 > 0) then
-			lCriticalTemp = Mid(criticalValue, 1, temp1 -1)
-			uCriticalTemp = Mid(criticalValue, temp1 +1, len(criticalValue) - temp1)
-			if(IsNumeric(lCriticalTemp) or IsNumeric(uCriticalTemp)) then
-				lCriticalValue = lCriticalTemp
-				uCriticalValue = uCriticalTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			WScript.Echo "Error! Arguments wrong, please verify -c parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetData.
-'Descripton:        Format data the same as output.
-'Input:				no.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetData()
-		
-		On Error Resume Next
-		
-		ReDim strNameArray(Int(colWMI.count))
-		ReDim counterValueArray(Int(colWMI.count))
-		ReDim timerValueArray(Int(colWMI.count))
-		ReDim intValueArray(Int(colWMI.count))
-		
-		strDisplay1 = ""
-		strDisplay2 = ""
-		strResultTemp3 = ""
-		strResultTemp4 = ""
-		'strResultTemp1 = ""
-		
-		strNameTemp = ""
-		strPropNameTemp = ""
-		counterValueTemp = 0
-		timerValueTemp = 0
-		timeBaseTemp = 0
-		i, j = 0
-		 
-		For Each objWMITemp in colWMITemp
-			counterValueArray(i) = objWMITemp.Properties_(strProp)
-			timerValueArray(i) = objWMITemp.Properties_("TimeStamp_Sys100NS")
-			i = i + 1
-		Next
-
-		For Each objWMI in colWMI
-			strNameTemp = objWMI.Name
-			strPropNameTemp = objWMI.Properties_(strProp).Name
-			counterValueTemp = objWMI.Properties_(strProp)
-			timerValueTemp = objWMI.Properties_("TimeStamp_Sys100NS")
-			strNameArray(j) = strNameTemp
-			if((timerValueTemp - timerValueArray(j)) = 0) then
-				intValueArray(j) = 0
-			else	
-				intValueArray(j) = (100 * (counterValueTemp - counterValueArray(j))) / (timerValueTemp - timerValueArray(j))
-			end if
-			j = j + 1
-		Next
-		
-		for k = 0 to (Int(colWMI.count) - 1)
-			strName = strNameArray(k)
-			Dim strDSName
-			strDSName = f_FormatDSName(strName)
-			strPropName = strPropNameTemp
-			intValue = (intValueArray(k))
-			if((warningValue <> "") or (criticalValue <> "")) then
-				strDisplay1 = strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strDisplay2 =  "'" & strDSName  & "'" & "=" & intValue & ";" & warningValue & ";" & criticalValue & ";; "
-				If(InStr(1, warningValue, ":") > 0 Or InStr(1, criticalValue, ":") > 0) Then
-					f_GetPrefixWithRange(intValue)
-				Else 
-				    f_GetPrefix(intValue)
-				End If
-				strResultTemp3 = strResultTemp3 & strPrefix & strDisplay1
-				strResultTemp4 = strResultTemp4 & strDisplay2
-				if( intReturnTemp1 < returnValue) then
-					intReturnTemp1 = returnValue
-				end if
-			else
-				strResultTemp3 = strResultTemp3 & "OK - " & strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strResultTemp4 = ""
-			end if
-		next					
-	End Function	
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_FormatDSName.
-'Descripton:        Get infomation at Local Host.
-'Input:				strName.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatDSName(strName)
-			
-		On Error Resume Next
-		
-		first = 1
-		position1 = 0
-		
-		position1 = InStr(first, strName, "=")
-		Dim proc_name
-		proc_name = ""
-		If(position1 > 0) Then 
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-			
-		Else
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-		End If 
-		f_FormatDSName = proc_name
-		Exit Function
-	End Function
-        	        
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInformation.
-'Descripton:        Get information data.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInformation()
-        
-        On Error Resume Next
-        
-        strResult = ""
-		strResult1 = ""
-        strResult2 = ""
-		intReturn = 0
-		instance = strInst
-		first=1
-        tam1=10
-        tam = -1
-        
-        If(instanceArraySize > 0 and (warningArraySize > 1 Or criticalArraySize > 1)) Then
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				warningValue = warningArray(i)
-				criticalValue = criticalArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        Else
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        end if
-		if(strResult2 = "") then
-        	strResult = strResult1
-        else
-        strResult = strResult1 & "|" & strResult2
-        end if
-		Wscript.Echo strResult
-		Wscript.Quit(intReturn)
-		
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstances.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstances()
-		
-		On Error Resume Next
-		
-		first = 1
-		position = 0
-		instanceArraySize = 0
-		
-    	position = InStr(first, strInst, ",")
-    	if (position = 0) then
-    		instanceTemp = strInst
-    		InstanceArraySize = 1
-    		ReDim instanceArray(instanceArraySize)
-    		instanceArray(0) = instanceTemp
-    		
-    	else
-          do while (position > 0)
-            instanceTemp = Mid(strInst,first,position - first)
-            instanceArraySize = instanceArraySize + 1
-            ReDim Preserve instanceArray(instanceArraySize)
-            instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-            first = position + 1
-            position = InStr(first, strInst, ",")
-          loop
-          instanceTemp = Mid(strInst,first,len(strInst))
-          instanceArraySize = instanceArraySize + 1
-          ReDim Preserve instanceArray(instanceArraySize)
-          instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-        end if  
-
-	End Function			
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningCriticalValues.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningCriticalValues()
-		
-		On Error Resume Next
-		
-		position1 = 0
-		position2 = 0
-		position3 = 0
-		position4 = 0
-		temp1 = 1
-		temp2 = 1
-		warningArraySize = 0
-		criticalArraySize = 0
-		
-		'get warning
-    	position2 = InStr(temp1, warningValueString, ",")
-    	If(position2 = 0) then
-			position2 = Len(warningValueString)+1
-	    end if
-	    
-	    If(position2 > position1) then
-		    do while (position2 > position1)
-		        warningPair = Mid(warningValueString, position1 + 1, (position2 - position1 -1))
-		        warningArraySize = warningArraySize + 1
-			    ReDim Preserve warningArray(warningArraySize)
-			    warningArray(warningArraySize -1) = Trim(warningPair)
-			    temp1 = position2 + 1
-		        position1 = position2
-	    	    position2 = InStr(temp1, warningValueString, ",")
-			    If(position2 = 0) then
-			        position2 = Len(warningValueString)+1
-			    End If
-		    loop
-	    end If
-	    
-	    If(Int(warningArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve warningArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - warningArraySize - 1)
-	            warningArray(warningArraySize +i) = warningArray(warningArraySize-1)
-	        Next
-	        warningArraySize = instanceArraySize
-	    End If
-	    'get critical
-	    position4 = InStr(temp2, criticalValueString, ",")
-    	If(position4 = 0) then
-			position4 = Len(criticalValueString)+1
-	    end if
-	    
-	    If(position4 > position3) then
-		    do while (position4 > position3)
-		        criticalPair = Mid(criticalValueString, position3 + 1, (position4 - position3 -1))
-		        criticalArraySize = criticalArraySize + 1
-			    ReDim Preserve criticalArray(criticalArraySize)
-			    criticalArray(criticalArraySize -1) = Trim(criticalPair)
-			    temp2 = position4 + 1
-		        position3 = position4
-	    	    position4 = InStr(temp2, criticalValueString, ",")
-			    If(position4 = 0) then
-			        position4 = Len(criticalValueString)+1
-			    End If
-		    loop
-	    End If
-	    If(Int(criticalArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve criticalArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - criticalArraySize - 1)
-	            criticalArray(criticalArraySize +i) = criticalArray(criticalArraySize-1)
-	        Next
-	        criticalArraySize = instanceArraySize
-	    End If
-	    
-	End Function
-						
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		
-		'Set colInstances = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\" & strNameSpace).InstancesOf(strClass)
-		'For Each objInstance in colInstances
-		'Next
-		'f_Error()        
-        
-        f_GetInformation()	
-
-	End Function
-		    
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		        
-        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-		if (strDomain = "") then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		else
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass,"MS_409","ntlmdomain:" & strDomain ).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		end if
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		
-        f_GetInformation()
-
-	End Function
-	
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="check_counter_bulk_count.vbs"
-		strDescription="Enumerate the needed windows host information."
-
-		                        '/////////////////////
-											
-		strNameSpace = 	"root\cimv2"
-		
-	f_GetAllArg()
-	tempCount = argcountcommand/2
-	f_Error()
-	strClass = ""
-	
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if( ((argcountcommand Mod 2) = 0) and (3 < tempCount < 11)) then
-  			strComputer = f_GetOneArg("-h")
-  			strClass = f_GetOneArg("-class")
-  			strProp = f_GetOneArg("-prop")
-  			strInst = f_GetOneArg("-inst")
-  			f_GetInstances()
-  			warningValue = f_GetOneArg("-w")
-			warningValueString = f_GetOneArg("-w")
-  			criticalValue = f_GetOneArg("-c")
-			criticalValueString = f_GetOneArg("-c")
-			If((warningValueString <> "") Or (criticalValueString <> "")) Then 
-  				f_GetWarningCriticalValues()
-  			End if
-  			strUser = f_GetOneArg("-user")
-  			strPass = f_GetOneArg("-pass")
-  			strDomain = f_GetOneArg("-domain")
-  			if((strComputer = "") or (strClass = "") or (strProp = "") or (strInst = "")) then
-  				Wscript.Echo "Error! Arguments wrong, require verify -h -class -prop -inst parameters"
-  				Wscript.Quit(intError)
-  			else
-  				Select Case tempCount
-	  				Case 4:
-	  					f_LocalPerfValue()
-	  				Case 6:
-	  					if ((warningValue <> "") and (criticalValue <> "")) then
-	  						f_LocalPerfValue()
-	  					end if	
-	  					if ((strUser <> "") and (strPass <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass or -w -c parameters"
-	  						Wscript.Quit(intError)	
-	  					end if
-	  				Case 8:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case 9:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "") and (strDomain <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass -domain parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case Else
-	  					Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-	  					Wscript.Quit(intError)
-  				End Select
-  						
-  			end if
-  		else
-  			Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-  			Wscript.Quit(intError)
-  		end if  
-  		
-  	end if

nsclient/trunk/scripts/wmi/check_counter_bulk_count.vbs

@@ -1,897 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intWarning = 1
-Const intCritical = 2
-Const intError = 3
-Const intUnknown = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strClass
-Dim strProp
-Dim strInst
-Dim warningValue
-Dim warningValueString
-Dim criticalValue
-Dim criticalValueString
-Dim strUser
-Dim strPass
-Dim strDomain
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult
-Dim strResult1
-Dim strResult2
-Dim intReturnTemp
-Dim intReturn
-Dim strResultTemp1
-Dim strResultTemp2
-Dim strResultTemp3
-Dim strResultTemp4
-Dim intReturnTemp1
-Dim strPrefix
-Dim returnValue
-Dim strPropBase
-Dim strNameTemp
-Dim strPropNameTemp
-Dim timeBaseTemp
-Dim counterValueArray()
-Dim timerValueTempArray()
-Dim strNameArray()
-Dim intValueArray()
-Dim strPropName
-Dim instanceArray()
-Dim instanceArraySize
-Dim warningArraySize
-Dim criticalArraySize
-Dim warningArray()
-Dim criticalArray()
-Dim instance
-Dim propArray()
-Dim propArraySize
-Dim lWarningValue
-Dim uWarningValue
-Dim lCriticalValue
-Dim uCriticalValue
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-Dim objWMIService, colWMI, colWMITemp, objWMI, objSWbemLocator
-
-strComputer=""
-strClass = ""
-strProp = ""
-strInst = ""
-warningValue = -1
-criticalValue = -1
-strUser = ""
-strPass = ""
-strDomain = ""
-
-intReturnTemp1 = 0
-
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim str
-  		str="Check Counter bulk count. If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two last parameters."&vbCrlF&vbCrlF
-  		str=str&"cscript check_counter_bulk_count.vbs -h hostname -class classname -prop property -inst instancename [-w warning_level -c critical_level] [-user username -pass password [-domain domain]]"&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"-h [--help]                 Help."&vbCrlF
-  		str=str&"-h hostname                 Host name."&vbCrlF  
-  		str=str&"-class classname            Class name."&vbCrlF
-  		str=str&"-prop property              Property of Class."&vbCrlF  
-  		str=str&"-inst instance              Needed Instance, can be * for all"&vbCrlF  
-  		str=str&"-w warning_level            Warning threshold."&vbCrlF
-  		str=str&"-c critical_level           Critical threshold."&vbCrlF
-  		str=str&"-user username              Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-pass password              Password Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-domain domain              Domain Name of Remote Machine."&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"Example: cscript check_counter_bulk_count.vbs -h Ser1 -class Win32_PerfRawData_PerfOS_System -prop FileControlBytesPerSec -inst ""*"" -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] "
-  		wscript.echo str
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstance.
-'Descripton:        Get infomation at Local Host.
-'Input:				instance.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstance(instance)
-		
-		On Error Resume Next
-		
-		strResultTemp1 = ""
-		strResultTemp2 = ""
-		strResultTemp = ""
-		intResultTemp = 0
-		strPropBase = ""
-
-		strInstanceTemp1 = ""
-		strInstanceTemp2 = ""
-		intInstanceTemp1 = 0
-		intInstanceTemp2 = 0
-
-		'Depend on strInfo parameters to get the result value
-		if(instance = "*") then
-			strQuery = "Select " & strProp & ", TimeStamp_PerfTime, Frequency_PerfTime" & " from " & strClass
-			Set colWMITemp = objWMIService.ExecQuery(strQuery)
-			Wscript.Sleep(1000)
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		else
-
-			intInstanceTemp1 = InStr(1,instance,"=")
-			strInstanceTemp1 = Mid(instance,1,intInstanceTemp1-1)
-			intInstanceTemp2 = Len(instance)
-			strInstanceTemp2 = Mid(instance,intInstanceTemp1+1,intInstanceTemp2-intInstanceTemp1)
-			instance=strInstanceTemp1 & "='" & strInstanceTemp2 & "'"
-
-			strQuery = "Select " & strProp & ", TimeStamp_PerfTime, Frequency_PerfTime" & " from " & strClass & " where " & instance
-			Set colWMITemp = objWMIService.ExecQuery(strQuery)
-			Wscript.Sleep(1000)
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		end if
-		
-		count = -1
-		count = colWMI.count
-		if(count = -1) then
-			Wscript.Echo "Unknown - No data received from WMI;"
-			Wscript.Quit(intUnknown)
-		else 
-			if(colWMI.count > 0) then
-				f_GetData()
-				strResultTemp1 = strResultTemp1 & strResultTemp3
-				strResultTemp2 = strResultTemp2 & strResultTemp4
-				intReturnTemp = intReturnTemp1
-				Exit Function
-			else
-				strResultTemp1 = "Unknown - " & instance &" query: No row returned."
-				intReturnTemp = intUnknown
-				Exit Function
-			end if
-		end if								
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefix.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefix(intValue)
-		
-		On Error Resume Next
-		
-		strPrefix = ""
-		If(warningValue <> "" And criticalValue = "") Then 
-			If (IsNumeric(warningValue)) Then 
-				If (Int(intValue) < Int(warningValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=1
-					strPrefix= "Warning - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If(warningValue = "" And criticalValue <> "") Then 
-			If (IsNumeric(criticalValue)) Then 
-				If (Int(intValue) < Int(criticalValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=2
-					strPrefix= "Critical - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If (warningValue <> "" And criticalValue <> "") Then 
-			If (IsNumeric(warningValue) And IsNumeric(criticalValue)) Then
-				if (Int(warningValue) < Int(criticalValue)) then
-		      
-		            if (Int(intValue) < Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) < Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        else
-		            if (Int(intValue) > Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) > Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        end If
-	        Else
-	        	Wscript.Echo "Error! Arguments wrong, please verify -w -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-	        End If 
-        End If 
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefixWithRange.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefixWithRange(intValue)
-		
-        On Error Resume Next
-        lWarningValue = ""
-	    uWarningValue = ""
-	    lCriticalValue= ""
-	    uCriticalValue= ""
-	    warningReturn = 0
-	    criticalReturn = 0
-	    If(warningValue <> "") Then 
-	    	f_GetWarningValueFromRange(warningValue)
-	    End If
-	    If(criticalValue <> "") Then 
-	    	f_GetCriticalValueFromRange(criticalValue)
-	    End If
-	    strPrefix = ""
-	  	'verify warning
-	    If((lWarningValue <> "") And (uWarningValue <> "")) Then
-	    	If(Int(lWarningValue) <= Int(uWarningValue)) Then
-	  	    	If((Int(lWarningValue) >= Int(intValue)) Or (Int(intValue) >= Int(uWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uWarningValue) ) And (Int(intValue) <= Int(lWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    End If
-	    End If
-	    If((lWarningValue <> "") And (uWarningValue = "")) Then 
-	        If(Int(intValue) <= Int(lWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If 
-	    If((lWarningValue = "") And (uWarningValue <> "")) Then 
-	  	    If(Int(intValue) >= Int(uWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If
-	    
-	    'verify critical
-	    If((lCriticalValue <> "") And (uCriticalValue <> "")) Then
-	        If(Int(lCriticalValue) <= Int(uCriticalValue)) Then
-		        If((Int(lCriticalValue) >= Int(intValue)) Or (Int(intValue) >= Int(uCriticalValue))) Then
-		            criticalReturn=2
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uCriticalValue) ) And (Int(intValue) <= Int(lCriticalValue))) Then
-			        criticalReturn=2
-                End If 
-		    End If
-	    End If
-	    If((lCriticalValue <> "") And (uCriticalValue = "")) Then 
-	        If(Int(intValue) <= Int(lCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If 
-	    If((lCriticalValue = "") And (uCriticalValue <> "")) Then 
-	        If(Int(intValue) >= Int(uCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If
-      
-	    'return result
-	    If(criticalReturn = 2) Then 
-	        returnValue=2
-		    strPrefix= "Critical - "
-	    Else 
-	        If(warningReturn = 1) Then 
-		        returnValue=1
-		        strPrefix= "Warning - "
-		    Else
-			    returnValue=0
-		        strPrefix= "Ok - "
-		    End If
-	    End If
-
-    End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningValueFromRange(warningValue)
-		
-		On Error Resume Next
-		lWarningValue = ""
-	    uWarningValue = ""
-		temp1 = 0
-		temp1 = InStr(1, warningValue, ":")
-		if(temp1 > 0) then
-			lWarningTemp = Mid(warningValue, 1, temp1 -1)
-			uWarningTemp = Mid(warningValue, temp1 +1, len(warningValue) - temp1)
-			if(IsNumeric(lWarningTemp) or IsNumeric(uWarningTemp)) then
-				lWarningValue = lWarningTemp
-				uWarningValue = uWarningTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-		 
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetCriticalValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetCriticalValueFromRange(criticalValue)
-		
-		On Error Resume Next
-		lCriticalValue = ""
-	    uCriticalValue = ""
-		temp1 = 0
-		temp1 = InStr(1, criticalValue, ":")
-		if(temp1 > 0) then
-			lCriticalTemp = Mid(criticalValue, 1, temp1 -1)
-			uCriticalTemp = Mid(criticalValue, temp1 +1, len(criticalValue) - temp1)
-			if(IsNumeric(lCriticalTemp) or IsNumeric(uCriticalTemp)) then
-				lCriticalValue = lCriticalTemp
-				uCriticalValue = uCriticalTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			WScript.Echo "Error! Arguments wrong, please verify -c parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetData.
-'Descripton:        Format data the same as output.
-'Input:				no.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetData()
-		
-		On Error Resume Next
-		
-		ReDim strNameArray(Int(colWMI.count))
-		ReDim counterValueArray(Int(colWMI.count))
-		ReDim timerValueArray(Int(colWMI.count))
-		ReDim intValueArray(Int(colWMI.count))
-		
-		strDisplay1 = ""
-		strDisplay2 = ""
-		strResultTemp3 = ""
-		strResultTemp4 = ""
-		'strResultTemp1 = ""
-		
-		strNameTemp = ""
-		strPropNameTemp = ""
-		counterValueTemp = 0
-		timerValueTemp = 0
-		timeBaseTemp = 0
-		i, j = 0
-		 
-		For Each objWMITemp in colWMITemp
-			counterValueArray(i) = objWMITemp.Properties_(strProp)
-			timerValueArray(i) = objWMITemp.Properties_("TimeStamp_PerfTime")
-			i = i + 1
-		Next
-
-		For Each objWMI in colWMI
-			strNameTemp = objWMI.Name
-			strPropNameTemp = objWMI.Properties_(strProp).Name
-			counterValueTemp = objWMI.Properties_(strProp)
-			timerValueTemp = objWMI.Properties_("TimeStamp_PerfTime")
-			timeBase = objWMI.Properties_("Frequency_PerfTime")
-			strNameArray(j) = strNameTemp
-			if((timerValueTemp - timerValueArray(j)) = 0) then
-				intValueArray(j) = 0
-			else	
-				intValueArray(j) = (counterValueTemp - counterValueArray(j)) / ((timerValueTemp - timerValueArray(j)) / timeBase)
-			end if
-			j = j + 1
-		Next
-		
-		for k = 0 to (Int(colWMI.count) - 1)
-			strName = strNameArray(k)
-			Dim strDSName
-			strDSName = f_FormatDSName(strName)
-			strPropName = strPropNameTemp
-			intValue = intValueArray(k)
-			if((warningValue <> "") and (criticalValue <> "")) then
-				strDisplay1 = strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strDisplay2 =  "'" & strDSName  & "'" & "=" & intValue & ";" & warningValue & ";" & criticalValue & ";; "
-				If(InStr(1, warningValue, ":") > 0 Or InStr(1, criticalValue, ":") > 0) Then
-					f_GetPrefixWithRange(intValue)
-				Else 
-				    f_GetPrefix(intValue)
-				End If
-				strResultTemp3 = strResultTemp3 & strPrefix & strDisplay1
-				strResultTemp4 = strResultTemp4 & strDisplay2
-				if( intReturnTemp1 < returnValue) then
-					intReturnTemp1 = returnValue
-				end if
-			else
-				strResultTemp3 = strResultTemp3 & "OK - " & strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strResultTemp4 = ""
-			end if
-		next					
-	End Function	
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_FormatDSName.
-'Descripton:        Get infomation at Local Host.
-'Input:				strName.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatDSName(strName)
-			
-		On Error Resume Next
-		
-		first = 1
-		position1 = 0
-		
-		position1 = InStr(first, strName, "=")
-		Dim proc_name
-		proc_name = ""
-		If(position1 > 0) Then 
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-			
-		Else
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-		End If 
-		f_FormatDSName = proc_name
-		Exit Function
-	End Function
-        	        	        
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInformation.
-'Descripton:        Get information data.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInformation()
-        
-        On Error Resume Next
-        
-        strResult = ""
-        strResult1 = ""
-        strResult2 = ""
-		intReturn = 0
-		instance = strInst
-		first=1
-        tam1=10
-        tam = -1
-        
-        If(instanceArraySize > 0 and (warningArraySize > 1 Or criticalArraySize > 1)) Then
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				warningValue = warningArray(i)
-				criticalValue = criticalArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        Else
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        end if
-		if(strResult2 = "") then
-        	strResult = strResult1
-        else
-        strResult = strResult1 & "|" & strResult2
-        end if
-		Wscript.Echo strResult
-		Wscript.Quit(intReturn)
-		
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstances.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstances()
-		
-		On Error Resume Next
-		
-		first = 1
-		position = 0
-		instanceArraySize = 0
-		
-    	position = InStr(first, strInst, ",")
-    	if (position = 0) then
-    		instanceTemp = strInst
-    		InstanceArraySize = 1
-    		ReDim instanceArray(instanceArraySize)
-    		instanceArray(0) = instanceTemp
-    		
-    	else
-          do while (position > 0)
-            instanceTemp = Mid(strInst,first,position - first)
-            instanceArraySize = instanceArraySize + 1
-            ReDim Preserve instanceArray(instanceArraySize)
-            instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-            first = position + 1
-            position = InStr(first, strInst, ",")
-          loop
-          instanceTemp = Mid(strInst,first,len(strInst))
-          instanceArraySize = instanceArraySize + 1
-          ReDim Preserve instanceArray(instanceArraySize)
-          instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-        end if  
-
-	End Function			
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningCriticalValues.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningCriticalValues()
-		
-		On Error Resume Next
-		
-		position1 = 0
-		position2 = 0
-		position3 = 0
-		position4 = 0
-		temp1 = 1
-		temp2 = 1
-		warningArraySize = 0
-		criticalArraySize = 0
-		
-		'get warning
-    	position2 = InStr(temp1, warningValueString, ",")
-    	If(position2 = 0) then
-			position2 = Len(warningValueString)+1
-	    end if
-	    
-	    If(position2 > position1) then
-		    do while (position2 > position1)
-		        warningPair = Mid(warningValueString, position1 + 1, (position2 - position1 -1))
-		        warningArraySize = warningArraySize + 1
-			    ReDim Preserve warningArray(warningArraySize)
-			    warningArray(warningArraySize -1) = Trim(warningPair)
-			    temp1 = position2 + 1
-		        position1 = position2
-	    	    position2 = InStr(temp1, warningValueString, ",")
-			    If(position2 = 0) then
-			        position2 = Len(warningValueString)+1
-			    End If
-		    loop
-	    end If
-	    
-	    If(Int(warningArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve warningArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - warningArraySize - 1)
-	            warningArray(warningArraySize +i) = warningArray(warningArraySize-1)
-	        Next
-	        warningArraySize = instanceArraySize
-	    End If
-	    'get critical
-	    position4 = InStr(temp2, criticalValueString, ",")
-    	If(position4 = 0) then
-			position4 = Len(criticalValueString)+1
-	    end if
-	    
-	    If(position4 > position3) then
-		    do while (position4 > position3)
-		        criticalPair = Mid(criticalValueString, position3 + 1, (position4 - position3 -1))
-		        criticalArraySize = criticalArraySize + 1
-			    ReDim Preserve criticalArray(criticalArraySize)
-			    criticalArray(criticalArraySize -1) = Trim(criticalPair)
-			    temp2 = position4 + 1
-		        position3 = position4
-	    	    position4 = InStr(temp2, criticalValueString, ",")
-			    If(position4 = 0) then
-			        position4 = Len(criticalValueString)+1
-			    End If
-		    loop
-	    End If
-	    If(Int(criticalArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve criticalArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - criticalArraySize - 1)
-	            criticalArray(criticalArraySize +i) = criticalArray(criticalArraySize-1)
-	        Next
-	        criticalArraySize = instanceArraySize
-	    End If
-	    
-	End Function
-								
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		
-		'Set colInstances = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\" & strNameSpace).InstancesOf(strClass)
-		'For Each objInstance in colInstances
-		'Next
-		'f_Error()        
-        
-        f_GetInformation()	
-
-	End Function
-		    
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		        
-        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-		if (strDomain = "") then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		else
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass,"MS_409","ntlmdomain:" & strDomain ).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		end if
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		
-        f_GetInformation()
-
-	End Function
-	
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="check_counter_bulk_count.vbs"
-		strDescription="Enumerate the needed windows host information."
-
-		                        '/////////////////////
-											
-		strNameSpace = 	"root\cimv2"
-		
-	f_GetAllArg()
-	tempCount = argcountcommand/2
-	f_Error()
-	strClass = ""
-	
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if( ((argcountcommand Mod 2) = 0) and (3 < tempCount < 11)) then
-  			strComputer = f_GetOneArg("-h")
-  			strClass = f_GetOneArg("-class")
-  			strProp = f_GetOneArg("-prop")
-  			strInst = f_GetOneArg("-inst")
-  			f_GetInstances()
-  			warningValue = f_GetOneArg("-w")
-			warningValueString = f_GetOneArg("-w")
-  			criticalValue = f_GetOneArg("-c")
-			criticalValueString = f_GetOneArg("-c")
-			If((warningValueString <> "") Or (criticalValueString <> "")) Then 
-  				f_GetWarningCriticalValues()
-  			End if
-  			strUser = f_GetOneArg("-user")
-  			strPass = f_GetOneArg("-pass")
-  			strDomain = f_GetOneArg("-domain")
-  			if((strComputer = "") or (strClass = "") or (strProp = "") or (strInst = "")) then
-  				Wscript.Echo "Error! Arguments wrong, require verify -h -class -prop -inst parameters"
-  				Wscript.Quit(intError)
-  			else
-  				Select Case tempCount
-	  				Case 4:
-	  					f_LocalPerfValue()
-	  				Case 6:
-	  					if ((warningValue <> "") and (criticalValue <> "")) then
-	  						f_LocalPerfValue()
-	  					end if	
-	  					if ((strUser <> "") and (strPass <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass or -w -c parameters"
-	  						Wscript.Quit(intError)	
-	  					end if
-	  				Case 8:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case 9:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "") and (strDomain <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass -domain parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case Else
-	  					Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-	  					Wscript.Quit(intError)
-  				End Select
-  						
-  			end if
-  		else
-  			Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-  			Wscript.Quit(intError)
-  		end if  
-  		
-  	end if

nsclient/trunk/scripts/wmi/check_counter_counter.vbs

@@ -1,895 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intWarning = 1
-Const intCritical = 2
-Const intError = 3
-Const intUnknown = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strClass
-Dim strProp
-Dim strInst
-Dim warningValue
-Dim warningValueString
-Dim criticalValue
-Dim criticalValueString
-Dim strUser
-Dim strPass
-Dim strDomain
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult
-Dim strResult1
-Dim strResult2
-Dim intReturnTemp
-Dim intReturn
-Dim strResultTemp1
-Dim strResultTemp2
-Dim strResultTemp3
-Dim strResultTemp4
-Dim intReturnTemp1
-Dim strPrefix
-Dim returnValue
-Dim strPropBase
-Dim strNameTemp
-Dim strPropNameTemp
-Dim timeBaseTemp
-Dim counterValueArray()
-Dim timerValueTempArray()
-Dim strNameArray()
-Dim intValueArray()
-Dim strPropName
-Dim instanceArray()
-Dim instanceArraySize
-Dim warningArraySize
-Dim criticalArraySize
-Dim warningArray()
-Dim criticalArray()
-Dim instance
-Dim propArray()
-Dim propArraySize
-Dim lWarningValue
-Dim uWarningValue
-Dim lCriticalValue
-Dim uCriticalValue
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-Dim objWMIService, colWMI, colWMITemp, objWMI, objSWbemLocator
-
-strComputer=""
-strClass = ""
-strProp = ""
-strInst = ""
-warningValue = -1
-criticalValue = -1
-strUser = ""
-strPass = ""
-strDomain = ""
-
-intReturnTemp1 = 0
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim str
-  		str="Check Counter Counter. If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two last parameters."&vbCrlF&vbCrlF
-  		str=str&"cscript check_counter_counter.vbs -h hostname -class classname -prop property -inst instancename [-w warning_level -c critical_level] [-user username -pass password [-domain domain]]"&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"-h [--help]                 Help."&vbCrlF
-  		str=str&"-h hostname                 Host name."&vbCrlF  
-  		str=str&"-class classname            Class name."&vbCrlF
-  		str=str&"-prop property              Property of Class."&vbCrlF  
-  		str=str&"-inst instance              Needed Instance, can be * for all"&vbCrlF  
-  		str=str&"-w warning_level            Warning threshold."&vbCrlF
-  		str=str&"-c critical_level           Critical threshold."&vbCrlF
-  		str=str&"-user username              Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-pass password              Password Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-domain domain              Domain Name of Remote Machine."&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"Example: cscript check_counter_counter.vbs -h Ser1 -class Win32_PerfRawData_PerfOS_Processor -prop InterruptsPerSec -inst ""*"" -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] "
-  		str=str&"Example: cscript check_counter_counter.vbs -h Ser1 -class Win32_PerfRawData_PerfOS_Processor -prop InterruptsPerSec -inst ""Name = '0'"" -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] "
-  		wscript.echo str
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstance.
-'Descripton:        Get infomation at Local Host.
-'Input:				instance.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstance(instance)
-		
-		On Error Resume Next
-		
-		strResultTemp1 = ""
-		strResultTemp2 = ""
-		strResultTemp = ""
-		intResultTemp = 0
-		strPropBase = ""
-
-		strInstanceTemp1 = ""
-		strInstanceTemp2 = ""
-		intInstanceTemp1 = 0
-		intInstanceTemp2 = 0
-
-		'Depend on strInfo parameters to get the result value
-		if(instance = "*") then
-			strQuery = "Select " & strProp & ", TimeStamp_PerfTime, Frequency_PerfTime" & " from " & strClass
-			Set colWMITemp = objWMIService.ExecQuery(strQuery)
-			Wscript.Sleep(1000)
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		else
-			intInstanceTemp1 = InStr(1,instance,"=")
-			strInstanceTemp1 = Mid(instance,1,intInstanceTemp1-1)
-			intInstanceTemp2 = Len(instance)
-			strInstanceTemp2 = Mid(instance,intInstanceTemp1+1,intInstanceTemp2-intInstanceTemp1)
-			instance=strInstanceTemp1 & "='" & strInstanceTemp2 & "'"
-
-			strQuery = "Select " & strProp & ", TimeStamp_PerfTime, Frequency_PerfTime" & " from " & strClass & " where " & instance
-			Set colWMITemp = objWMIService.ExecQuery(strQuery)
-			Wscript.Sleep(1000)
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		end if
-		
-		count = -1
-		count = colWMI.count
-		if(count = -1) then
-			Wscript.Echo "Unknown - No data received from WMI;"
-			Wscript.Quit(intUnknown)
-		else 
-			if(colWMI.count > 0) then
-				f_GetData()
-				strResultTemp1 = strResultTemp1 & strResultTemp3
-				strResultTemp2 = strResultTemp2 & strResultTemp4
-				intReturnTemp = intReturnTemp1
-				Exit Function
-			else
-				strResultTemp1 = "Unknown - " & instance &" query: No row returned."
-				intReturnTemp = intUnknown
-				Exit Function
-			end if
-		end if								
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefix.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefix(intValue)
-		
-		On Error Resume Next
-		
-		strPrefix = ""
-		If(warningValue <> "" And criticalValue = "") Then 
-			If (IsNumeric(warningValue)) Then 
-				If (Int(intValue) < Int(warningValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=1
-					strPrefix= "Warning - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If(warningValue = "" And criticalValue <> "") Then 
-			If (IsNumeric(criticalValue)) Then 
-				If (Int(intValue) < Int(criticalValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=2
-					strPrefix= "Critical - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If (warningValue <> "" And criticalValue <> "") Then 
-			If (IsNumeric(warningValue) And IsNumeric(criticalValue)) Then
-				if (Int(warningValue) < Int(criticalValue)) then
-		      
-		            if (Int(intValue) < Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) < Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        else
-		            if (Int(intValue) > Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) > Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        end If
-	        Else
-	        	Wscript.Echo "Error! Arguments wrong, please verify -w -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-	        End If 
-        End If 
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefixWithRange.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefixWithRange(intValue)
-		
-        On Error Resume Next
-        lWarningValue = ""
-	    uWarningValue = ""
-	    lCriticalValue= ""
-	    uCriticalValue= ""
-	    warningReturn = 0
-	    criticalReturn = 0
-	    If(warningValue <> "") Then 
-	    	f_GetWarningValueFromRange(warningValue)
-	    End If
-	    If(criticalValue <> "") Then 
-	    	f_GetCriticalValueFromRange(criticalValue)
-	    End If
-	    strPrefix = ""
-	  	'verify warning
-	    If((lWarningValue <> "") And (uWarningValue <> "")) Then
-	    	If(Int(lWarningValue) <= Int(uWarningValue)) Then
-	  	    	If((Int(lWarningValue) >= Int(intValue)) Or (Int(intValue) >= Int(uWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uWarningValue) ) And (Int(intValue) <= Int(lWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    End If
-	    End If
-	    If((lWarningValue <> "") And (uWarningValue = "")) Then 
-	        If(Int(intValue) <= Int(lWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If 
-	    If((lWarningValue = "") And (uWarningValue <> "")) Then 
-	  	    If(Int(intValue) >= Int(uWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If
-	    
-	    'verify critical
-	    If((lCriticalValue <> "") And (uCriticalValue <> "")) Then
-	        If(Int(lCriticalValue) <= Int(uCriticalValue)) Then
-		        If((Int(lCriticalValue) >= Int(intValue)) Or (Int(intValue) >= Int(uCriticalValue))) Then
-		            criticalReturn=2
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uCriticalValue) ) And (Int(intValue) <= Int(lCriticalValue))) Then
-			        criticalReturn=2
-                End If 
-		    End If
-	    End If
-	    If((lCriticalValue <> "") And (uCriticalValue = "")) Then 
-	        If(Int(intValue) <= Int(lCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If 
-	    If((lCriticalValue = "") And (uCriticalValue <> "")) Then 
-	        If(Int(intValue) >= Int(uCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If
-      
-	    'return result
-	    If(criticalReturn = 2) Then 
-	        returnValue=2
-		    strPrefix= "Critical - "
-	    Else 
-	        If(warningReturn = 1) Then 
-		        returnValue=1
-		        strPrefix= "Warning - "
-		    Else
-			    returnValue=0
-		        strPrefix= "Ok - "
-		    End If
-	    End If
-
-    End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningValueFromRange(warningValue)
-		
-		On Error Resume Next
-		lWarningValue = ""
-	    uWarningValue = ""
-		temp1 = 0
-		temp1 = InStr(1, warningValue, ":")
-		if(temp1 > 0) then
-			lWarningTemp = Mid(warningValue, 1, temp1 -1)
-			uWarningTemp = Mid(warningValue, temp1 +1, len(warningValue) - temp1)
-			if(IsNumeric(lWarningTemp) or IsNumeric(uWarningTemp)) then
-				lWarningValue = lWarningTemp
-				uWarningValue = uWarningTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-		 
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetCriticalValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetCriticalValueFromRange(criticalValue)
-		
-		On Error Resume Next
-		lCriticalValue = ""
-	    uCriticalValue = ""
-		temp1 = 0
-		temp1 = InStr(1, criticalValue, ":")
-		if(temp1 > 0) then
-			lCriticalTemp = Mid(criticalValue, 1, temp1 -1)
-			uCriticalTemp = Mid(criticalValue, temp1 +1, len(criticalValue) - temp1)
-			if(IsNumeric(lCriticalTemp) or IsNumeric(uCriticalTemp)) then
-				lCriticalValue = lCriticalTemp
-				uCriticalValue = uCriticalTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			WScript.Echo "Error! Arguments wrong, please verify -c parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetData.
-'Descripton:        Format data the same as output.
-'Input:				no.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetData()
-		
-		On Error Resume Next
-		
-		ReDim strNameArray(Int(colWMI.count))
-		ReDim counterValueArray(Int(colWMI.count))
-		ReDim timerValueArray(Int(colWMI.count))
-		ReDim intValueArray(Int(colWMI.count))
-		
-		strDisplay1 = ""
-		strDisplay2 = ""
-		strResultTemp3 = ""
-		strResultTemp4 = ""
-		
-		strNameTemp = ""
-		strPropNameTemp = ""
-		counterValueTemp = 0
-		timerValueTemp = 0
-		timeBaseTemp = 0
-		i, j = 0
-		 
-		For Each objWMITemp in colWMITemp
-			counterValueArray(i) = objWMITemp.Properties_(strProp)
-			timerValueArray(i) = objWMITemp.Properties_("TimeStamp_PerfTime")
-			i = i + 1
-		Next
-
-		For Each objWMI in colWMI
-			strNameTemp = objWMI.Name
-			strPropNameTemp = objWMI.Properties_(strProp).Name
-			counterValueTemp = objWMI.Properties_(strProp)
-			timerValueTemp = objWMI.Properties_("TimeStamp_PerfTime")
-			timeBase = objWMI.Properties_("Frequency_PerfTime")
-			strNameArray(j) = strNameTemp
-			if((timerValueTemp - timerValueArray(j)) = 0) then
-				intValueArray(j) = 0
-			else	
-				intValueArray(j) = (counterValueTemp - counterValueArray(j)) / ((timerValueTemp - timerValueArray(j)) / timeBase)
-			end if
-			j = j + 1
-		Next
-		
-		for k = 0 to (Int(colWMI.count) - 1)
-			strName = strNameArray(k)
-			Dim strDSName
-			strDSName = f_FormatDSName(strName)
-			strPropName = strPropNameTemp
-			intValue = (intValueArray(k))
-			if((warningValue <> "") and (criticalValue <> "")) then
-				strDisplay1 = strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strDisplay2 =  "'" & strDSName  & "'" & "=" & intValue & ";" & warningValue & ";" & criticalValue & ";; "
-				If(InStr(1, warningValue, ":") > 0 Or InStr(1, criticalValue, ":") > 0) Then
-					f_GetPrefixWithRange(intValue)
-				Else 
-				    f_GetPrefix(intValue)
-				End If
-				strResultTemp3 = strResultTemp3 & strPrefix & strDisplay1
-				strResultTemp4 = strResultTemp4 & strDisplay2
-				if( intReturnTemp1 < returnValue) then
-					intReturnTemp1 = returnValue
-				end if
-			else
-				strResultTemp3 = strResultTemp3 & "OK - " & strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strResultTemp4 = ""
-			end if
-		next					
-	End Function	
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_FormatDSName.
-'Descripton:        Get infomation at Local Host.
-'Input:				strName.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatDSName(strName)
-			
-		On Error Resume Next
-		
-		first = 1
-		position1 = 0
-		
-		position1 = InStr(first, strName, "=")
-		Dim proc_name
-		proc_name = ""
-		If(position1 > 0) Then 
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-			
-		Else
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-		End If 
-		f_FormatDSName = proc_name
-		Exit Function
-	End Function
-        	        	        
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInformation.
-'Descripton:        Get information data.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInformation()
-        
-        On Error Resume Next
-        
-        strResult = ""
-		strResult1 = ""
-        strResult2 = ""
-		intReturn = 0
-		instance = strInst
-		first=1
-        tam1=10
-        tam = -1
-        
-        If(instanceArraySize > 0 and (warningArraySize > 1 Or criticalArraySize > 1)) Then
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				warningValue = warningArray(i)
-				criticalValue = criticalArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        Else
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        end if
-		if(strResult2 = "") then
-        	strResult = strResult1
-        else
-        strResult = strResult1 & "|" & strResult2
-        end if
-		Wscript.Echo strResult
-		Wscript.Quit(intReturn)
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstances.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstances()
-		
-		On Error Resume Next
-		
-		first = 1
-		position = 0
-		instanceArraySize = 0
-		
-    	position = InStr(first, strInst, ",")
-    	if (position = 0) then
-    		instanceTemp = strInst
-    		InstanceArraySize = 1
-    		ReDim instanceArray(instanceArraySize)
-    		instanceArray(0) = instanceTemp
-    		
-    	else
-          do while (position > 0)
-            instanceTemp = Mid(strInst,first,position - first)
-            instanceArraySize = instanceArraySize + 1
-            ReDim Preserve instanceArray(instanceArraySize)
-            instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-            first = position + 1
-            position = InStr(first, strInst, ",")
-          loop
-          instanceTemp = Mid(strInst,first,len(strInst))
-          instanceArraySize = instanceArraySize + 1
-          ReDim Preserve instanceArray(instanceArraySize)
-          instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-        end if  
-
-	End Function			
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningCriticalValues.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningCriticalValues()
-		
-		On Error Resume Next
-		
-		position1 = 0
-		position2 = 0
-		position3 = 0
-		position4 = 0
-		temp1 = 1
-		temp2 = 1
-		warningArraySize = 0
-		criticalArraySize = 0
-		
-		'get warning
-    	position2 = InStr(temp1, warningValueString, ",")
-    	If(position2 = 0) then
-			position2 = Len(warningValueString)+1
-	    end if
-	    
-	    If(position2 > position1) then
-		    do while (position2 > position1)
-		        warningPair = Mid(warningValueString, position1 + 1, (position2 - position1 -1))
-		        warningArraySize = warningArraySize + 1
-			    ReDim Preserve warningArray(warningArraySize)
-			    warningArray(warningArraySize -1) = Trim(warningPair)
-			    temp1 = position2 + 1
-		        position1 = position2
-	    	    position2 = InStr(temp1, warningValueString, ",")
-			    If(position2 = 0) then
-			        position2 = Len(warningValueString)+1
-			    End If
-		    loop
-	    end If
-	    
-	    If(Int(warningArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve warningArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - warningArraySize - 1)
-	            warningArray(warningArraySize +i) = warningArray(warningArraySize-1)
-	        Next
-	        warningArraySize = instanceArraySize
-	    End If
-	    'get critical
-	    position4 = InStr(temp2, criticalValueString, ",")
-    	If(position4 = 0) then
-			position4 = Len(criticalValueString)+1
-	    end if
-	    
-	    If(position4 > position3) then
-		    do while (position4 > position3)
-		        criticalPair = Mid(criticalValueString, position3 + 1, (position4 - position3 -1))
-		        criticalArraySize = criticalArraySize + 1
-			    ReDim Preserve criticalArray(criticalArraySize)
-			    criticalArray(criticalArraySize -1) = Trim(criticalPair)
-			    temp2 = position4 + 1
-		        position3 = position4
-	    	    position4 = InStr(temp2, criticalValueString, ",")
-			    If(position4 = 0) then
-			        position4 = Len(criticalValueString)+1
-			    End If
-		    loop
-	    End If
-	    If(Int(criticalArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve criticalArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - criticalArraySize - 1)
-	            criticalArray(criticalArraySize +i) = criticalArray(criticalArraySize-1)
-	        Next
-	        criticalArraySize = instanceArraySize
-	    End If
-	    
-	End Function
-									
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		
-		'Set colInstances = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\" & strNameSpace).InstancesOf(strClass)
-		'For Each objInstance in colInstances
-		'Next
-		'f_Error()        
-        
-        f_GetInformation()	
-
-	End Function
-		    
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		        
-        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-		if (strDomain = "") then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		else
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass,"MS_409","ntlmdomain:" & strDomain ).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		end if
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		
-        f_GetInformation()
-
-	End Function
-	
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="check_counter_rawcount.vbs"
-		strDescription="Enumerate the needed windows host information."
-
-		                        '/////////////////////
-											
-		strNameSpace = 	"root\cimv2"
-		
-	f_GetAllArg()
-	tempCount = argcountcommand/2
-	f_Error()
-	strClass = ""
-	
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if( ((argcountcommand Mod 2) = 0) and (3 < tempCount < 11)) then
-  			strComputer = f_GetOneArg("-h")
-  			strClass = f_GetOneArg("-class")
-  			strProp = f_GetOneArg("-prop")
-  			strInst = f_GetOneArg("-inst")
-  			f_GetInstances()
-  			warningValue = f_GetOneArg("-w")
-			warningValueString = f_GetOneArg("-w")
-  			criticalValue = f_GetOneArg("-c")
-			criticalValueString = f_GetOneArg("-c")
-			If((warningValueString <> "") Or (criticalValueString <> "")) Then 
-  				f_GetWarningCriticalValues()
-  			End if
-  			strUser = f_GetOneArg("-user")
-  			strPass = f_GetOneArg("-pass")
-  			strDomain = f_GetOneArg("-domain")
-  			if((strComputer = "") or (strClass = "") or (strProp = "") or (strInst = "")) then
-  				Wscript.Echo "Error! Arguments wrong, require verify -h -class -prop -inst parameters"
-  				Wscript.Quit(intError)
-  			else
-  				Select Case tempCount
-	  				Case 4:
-	  					f_LocalPerfValue()
-	  				Case 6:
-	  					if ((warningValue <> "") and (criticalValue <> "")) then
-	  						f_LocalPerfValue()
-	  					end if	
-	  					if ((strUser <> "") and (strPass <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass or -w -c parameters"
-	  						Wscript.Quit(intError)	
-	  					end if
-	  				Case 8:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case 9:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "") and (strDomain <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass -domain parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case Else
-	  					Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-	  					Wscript.Quit(intError)
-  				End Select
-  						
-  			end if
-  		else
-  			Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-  			Wscript.Quit(intError)
-  		end if  
-  		
-  	end if

nsclient/trunk/scripts/wmi/check_counter_large_rawcount.vbs

@@ -1,848 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intWarning = 1
-Const intCritical = 2
-Const intError = 3
-Const intUnknown = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strClass
-Dim strProp
-Dim strInst
-Dim warningValue
-Dim warningValueString
-Dim criticalValue
-Dim criticalValueString
-Dim strUser
-Dim strPass
-Dim strDomain
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult
-Dim strResult1
-Dim strResult2
-Dim intReturnTemp
-Dim intReturn
-Dim strResultTemp1
-Dim strResultTemp2
-Dim strResultTemp3
-Dim strResultTemp4
-Dim intReturnTemp1
-Dim strPrefix
-Dim intValue
-Dim returnValue
-Dim strPropName
-Dim instanceArray()
-Dim instanceArraySize
-Dim warningArraySize
-Dim criticalArraySize
-Dim warningArray()
-Dim criticalArray()
-Dim instance
-Dim propArray()
-Dim propArraySize
-Dim lWarningValue
-Dim uWarningValue
-Dim lCriticalValue
-Dim uCriticalValue
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-Dim objWMIService, colWMI,objWMI,objSWbemLocator
-
-strComputer=""
-strClass = ""
-strProp = ""
-strInst = ""
-warningValue = -1
-criticalValue = -1
-strUser = ""
-strPass = ""
-strDomain = ""
-
-intReturnTemp1 = 0
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim str
-  		str="Check Counter Large RawCount. If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two last parameters."&vbCrlF&vbCrlF
-  		str=str&"cscript check_counter_rawcount.vbs -h hostname -class classname -prop property -inst instancename [-w warning_level -c critical_level] [-user username -pass password [-domain domain]]"&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"-h [--help]                 Help."&vbCrlF
-  		str=str&"-h hostname                 Host name."&vbCrlF  
-  		str=str&"-class classname            Class name."&vbCrlF
-  		str=str&"-prop property              Property of Class."&vbCrlF  
-  		str=str&"-inst instance              Needed Instance."&vbCrlF  
-  		str=str&"-w warning_level            Warning threshold."&vbCrlF
-  		str=str&"-c critical_level           Critical threshold."&vbCrlF
-  		str=str&"-user username              Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-pass password              Password Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-domain domain              Domain Name of Remote Machine."&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"Example: cscript check_counter_large_rawcount.vbs -h Ser1 -class Win32_PerfRawData_PerfProc_Process -prop WorkingSet -inst ""*""  -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] "
-  		str=str&"Example: cscript check_counter_large_rawcount.vbs -h Ser1 -class Win32_PerfRawData_PerfProc_Process -prop WorkingSet -inst ""IDProcess = '3612', IDProcess = '2156'""  -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] "
-  		wscript.echo str
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstance.
-'Descripton:        Get infomation at Local Host.
-'Input:				instance.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstance(instance)
-		
-		On Error Resume Next
-		
-		strResultTemp1 = ""
-		strResultTemp2 = ""
-		strResultTemp = ""
-		intResultTemp = 0
-
-		strInstanceTemp1 = ""
-		strInstanceTemp2 = ""
-		intInstanceTemp1 = 0
-		intInstanceTemp2 = 0
-		
-		'Depend on strInfo parameters to get the result value
-		
-		if(instance = "*") then
-			strQuery = "Select " & strProp & " from " & strClass
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		else
-			intInstanceTemp1 = InStr(1,instance,"=")
-			strInstanceTemp1 = Mid(instance,1,intInstanceTemp1-1)
-			intInstanceTemp2 = Len(instance)
-			strInstanceTemp2 = Mid(instance,intInstanceTemp1+1,intInstanceTemp2-intInstanceTemp1)
-			instance=strInstanceTemp1 & "='" & strInstanceTemp2 & "'"
-
-			strQuery = "Select " & strProp & " from " & strClass & " where " & instance
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		end if
-		
-		count = -1
-		count = colWMI.count
-		if(count = -1) then
-			Wscript.Echo "Unknown - No data received from WMI;"
-			Wscript.Quit(intUnknown)
-		else 
-			if(colWMI.count > 0) then
-				f_FormatData(colWMI)
-				
-				strResultTemp1 = strResultTemp1 & strResultTemp3
-				strResultTemp2 = strResultTemp2 & strResultTemp4
-				intReturnTemp = intReturnTemp1
-				Exit Function
-			else
-				strResultTemp1 = "Unknown - " & instance &" query: No row returned."
-				intReturnTemp = intUnknown
-				Exit Function
-			end if
-		end if								
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefix.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefix(intValue)
-		
-		On Error Resume Next
-		
-		strPrefix = ""
-		If(warningValue <> "" And criticalValue = "") Then 
-			If (IsNumeric(warningValue)) Then 
-				If (Int(intValue) < Int(warningValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=1
-					strPrefix= "Warning - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If(warningValue = "" And criticalValue <> "") Then 
-			If (IsNumeric(criticalValue)) Then 
-				If (Int(intValue) < Int(criticalValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=2
-					strPrefix= "Critical - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If (warningValue <> "" And criticalValue <> "") Then 
-			If (IsNumeric(warningValue) And IsNumeric(criticalValue)) Then
-				if (Int(warningValue) < Int(criticalValue)) then
-		      
-		            if (Int(intValue) < Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) < Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        else
-		            if (Int(intValue) > Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) > Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        end If
-	        Else
-	        	Wscript.Echo "Error! Arguments wrong, please verify -w -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-	        End If 
-        End If 
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefixWithRange.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefixWithRange(intValue)
-		
-        On Error Resume Next
-        lWarningValue = ""
-	    uWarningValue = ""
-	    lCriticalValue= ""
-	    uCriticalValue= ""
-	    warningReturn = 0
-	    criticalReturn = 0
-	    If(warningValue <> "") Then 
-	    	f_GetWarningValueFromRange(warningValue)
-	    End If
-	    If(criticalValue <> "") Then 
-	    	f_GetCriticalValueFromRange(criticalValue)
-	    End If
-	    strPrefix = ""
-	  	'verify warning
-	    If((lWarningValue <> "") And (uWarningValue <> "")) Then
-	    	If(Int(lWarningValue) <= Int(uWarningValue)) Then
-	  	    	If((Int(lWarningValue) >= Int(intValue)) Or (Int(intValue) >= Int(uWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uWarningValue) ) And (Int(intValue) <= Int(lWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    End If
-	    End If
-	    If((lWarningValue <> "") And (uWarningValue = "")) Then 
-	        If(Int(intValue) <= Int(lWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If 
-	    If((lWarningValue = "") And (uWarningValue <> "")) Then 
-	  	    If(Int(intValue) >= Int(uWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If
-	    
-	    'verify critical
-	    If((lCriticalValue <> "") And (uCriticalValue <> "")) Then
-	        If(Int(lCriticalValue) <= Int(uCriticalValue)) Then
-		        If((Int(lCriticalValue) >= Int(intValue)) Or (Int(intValue) >= Int(uCriticalValue))) Then
-		            criticalReturn=2
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uCriticalValue) ) And (Int(intValue) <= Int(lCriticalValue))) Then
-			        criticalReturn=2
-                End If 
-		    End If
-	    End If
-	    If((lCriticalValue <> "") And (uCriticalValue = "")) Then 
-	        If(Int(intValue) <= Int(lCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If 
-	    If((lCriticalValue = "") And (uCriticalValue <> "")) Then 
-	        If(Int(intValue) >= Int(uCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If
-      
-	    'return result
-	    If(criticalReturn = 2) Then 
-	        returnValue=2
-		    strPrefix= "Critical - "
-	    Else 
-	        If(warningReturn = 1) Then 
-		        returnValue=1
-		        strPrefix= "Warning - "
-		    Else
-			    returnValue=0
-		        strPrefix= "Ok - "
-		    End If
-	    End If
-
-    End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningValueFromRange(warningValue)
-		
-		On Error Resume Next
-		lWarningValue = ""
-	    uWarningValue = ""
-		temp1 = 0
-		temp1 = InStr(1, warningValue, ":")
-		if(temp1 > 0) then
-			lWarningTemp = Mid(warningValue, 1, temp1 -1)
-			uWarningTemp = Mid(warningValue, temp1 +1, len(warningValue) - temp1)
-			if(IsNumeric(lWarningTemp) or IsNumeric(uWarningTemp)) then
-				lWarningValue = lWarningTemp
-				uWarningValue = uWarningTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-		 
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetCriticalValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetCriticalValueFromRange(criticalValue)
-		
-		On Error Resume Next
-		lCriticalValue = ""
-	    uCriticalValue = ""
-		temp1 = 0
-		temp1 = InStr(1, criticalValue, ":")
-		if(temp1 > 0) then
-			lCriticalTemp = Mid(criticalValue, 1, temp1 -1)
-			uCriticalTemp = Mid(criticalValue, temp1 +1, len(criticalValue) - temp1)
-			if(IsNumeric(lCriticalTemp) or IsNumeric(uCriticalTemp)) then
-				lCriticalValue = lCriticalTemp
-				uCriticalValue = uCriticalTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			WScript.Echo "Error! Arguments wrong, please verify -c parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_FormatData.
-'Descripton:        Format data the same as output.
-'Input:				service.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatData(colWMI)
-		
-		On Error Resume Next
-		
-		strDisplay1 = ""
-		strDisplay2 = ""
-		strResultTemp3 = ""
-		strResultTemp4 = ""
-		
-		For Each objWMI in colWMI
-			strName = objWMI.Name
-			strPropName = objWMI.Properties_(strProp).Name
-			intValue = objWMI.Properties_(strProp)
-			Dim strDSName
-			strDSName = f_FormatDSName(strName)
-			
-			if((warningValue <> "") and (criticalValue <> "")) then
-				strDisplay1 = strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strDisplay2 =  "'" &strDSName  & "'" & "=" & intValue & ";" & warningValue & ";" & criticalValue & ";; "
-				If(InStr(1, warningValue, ":") > 0 Or InStr(1, criticalValue, ":") > 0) Then
-					f_GetPrefixWithRange(intValue)
-				Else 
-				    f_GetPrefix(intValue)
-				End If
-				strResultTemp3 = strResultTemp3 & strPrefix & strDisplay1
-				strResultTemp4 = strResultTemp4 & strDisplay2
-				if( intReturnTemp1 < returnValue) then
-					intReturnTemp1 = returnValue
-				end if
-			else
-				strResultTemp3 = strResultTemp3 & "OK - " & strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strResultTemp4 = ""
-			end if
-		Next 
-							
-	End Function	
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstance.
-'Descripton:        Get infomation at Local Host.
-'Input:				instance.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatDSName(strName)
-			
-		On Error Resume Next
-		
-		first = 1
-		position1 = 0
-		
-		position1 = InStr(first, strName, "=")
-		Dim proc_name
-		proc_name = ""
-		If(position1 > 0) Then 
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-			
-		Else
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-		End If 
-		f_FormatDSName = proc_name
-		Exit Function
-	End Function
-                
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInformation.
-'Descripton:        Get information data.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInformation()
-        
-        On Error Resume Next
-        
-        strResult = ""
-        strResult1 = ""
-        strResult2 = ""
-		intReturn = 0
-		
-        If(instanceArraySize > 0 and (warningArraySize > 1 Or criticalArraySize > 1)) Then
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				warningValue = warningArray(i)
-				criticalValue = criticalArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        Else
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        end if
-        if(strResult2 = "") then
-        	strResult = strResult1
-        else
-        strResult = strResult1 & "|" & strResult2
-        end if
-        Wscript.Echo strResult
-		Wscript.Quit(intReturn)
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstances.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstances()
-		
-		On Error Resume Next
-		
-		first = 1
-		position = 0
-		instanceArraySize = 0
-		
-    	position = InStr(first, strInst, ",")
-    	if (position = 0) then
-    		instanceTemp = strInst
-    		InstanceArraySize = 1
-    		ReDim instanceArray(instanceArraySize)
-    		instanceArray(0) = instanceTemp
-    		
-    	else
-            do while (position > 0)
-                instanceTemp = Mid(strInst,first,position - first)
-                instanceArraySize = instanceArraySize + 1
-                ReDim Preserve instanceArray(instanceArraySize)
-                instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-                first = position + 1
-                position = InStr(first, strInst, ",")
-            loop
-            instanceTemp = Mid(strInst,first,len(strInst))
-            instanceArraySize = instanceArraySize + 1
-            ReDim Preserve instanceArray(instanceArraySize)
-            instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-        end if  
-
-	End Function			
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningCriticalValues.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningCriticalValues()
-		
-		On Error Resume Next
-		
-		position1 = 0
-		position2 = 0
-		position3 = 0
-		position4 = 0
-		temp1 = 1
-		temp2 = 1
-		warningArraySize = 0
-		criticalArraySize = 0
-		
-		'get warning
-    	position2 = InStr(temp1, warningValueString, ",")
-    	If(position2 = 0) then
-			position2 = Len(warningValueString)+1
-	    end if
-	    
-	    If(position2 > position1) then
-		    do while (position2 > position1)
-		        warningPair = Mid(warningValueString, position1 + 1, (position2 - position1 -1))
-		        warningArraySize = warningArraySize + 1
-			    ReDim Preserve warningArray(warningArraySize)
-			    warningArray(warningArraySize -1) = Trim(warningPair)
-			    temp1 = position2 + 1
-		        position1 = position2
-	    	    position2 = InStr(temp1, warningValueString, ",")
-			    If(position2 = 0) then
-			        position2 = Len(warningValueString)+1
-			    End If
-		    loop
-	    end If
-	    
-	    If(Int(warningArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve warningArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - warningArraySize - 1)
-	            warningArray(warningArraySize +i) = warningArray(warningArraySize-1)
-	        Next
-	        warningArraySize = instanceArraySize
-	    End If
-	    'get critical
-	    position4 = InStr(temp2, criticalValueString, ",")
-    	If(position4 = 0) then
-			position4 = Len(criticalValueString)+1
-	    end if
-	    
-	    If(position4 > position3) then
-		    do while (position4 > position3)
-		        criticalPair = Mid(criticalValueString, position3 + 1, (position4 - position3 -1))
-		        criticalArraySize = criticalArraySize + 1
-			    ReDim Preserve criticalArray(criticalArraySize)
-			    criticalArray(criticalArraySize -1) = Trim(criticalPair)
-			    temp2 = position4 + 1
-		        position3 = position4
-	    	    position4 = InStr(temp2, criticalValueString, ",")
-			    If(position4 = 0) then
-			        position4 = Len(criticalValueString)+1
-			    End If
-		    loop
-	    End If
-	    If(Int(criticalArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve criticalArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - criticalArraySize - 1)
-	            criticalArray(criticalArraySize +i) = criticalArray(criticalArraySize-1)
-	        Next
-	        criticalArraySize = instanceArraySize
-	    End If
-	    
-	End Function
-			
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		
-		'Set colInstances = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\" & strNameSpace).InstancesOf(strClass)
-		'For Each objInstance in colInstances
-		'Next
-		'f_Error()        
-        
-        f_GetInformation()	
-
-	End Function
-		    
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		        
-        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-		if (strDomain = "") then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		else
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass,"MS_409","ntlmdomain:" & strDomain ).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		end if
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		
-        f_GetInformation()
-
-	End Function
-	
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="check_counter_rawcount.vbs"
-		strDescription="Enumerate the needed windows host information."
-
-		                        '/////////////////////
-											
-		strNameSpace = 	"root\cimv2"
-		
-	f_GetAllArg()
-	tempCount = argcountcommand/2
-	f_Error()
-	strClass = ""
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if( ((argcountcommand Mod 2) = 0) and (3 < tempCount < 10)) then
-  			strComputer = f_GetOneArg("-h")
-  			strClass = f_GetOneArg("-class")
-  			strProp = f_GetOneArg("-prop")
-  			strInst = f_GetOneArg("-inst")
-  			f_GetInstances()
-  			warningValue = f_GetOneArg("-w")
-			warningValueString = f_GetOneArg("-w")
-  			criticalValue = f_GetOneArg("-c")
-			criticalValueString = f_GetOneArg("-c")
-			If((warningValueString <> "") Or (criticalValueString <> "")) Then 
-  				f_GetWarningCriticalValues()
-  			End if
-  			strUser = f_GetOneArg("-user")
-  			strPass = f_GetOneArg("-pass")
-  			strDomain = f_GetOneArg("-domain")
-  			if((strComputer = "") or (strClass = "") or (strProp = "") or (strInst = "")) then
-  				Wscript.Echo "Error! Arguments wrong, require verify -h -class -prop -inst parameters"
-  				Wscript.Quit(intError)
-  			else
-  				Select Case tempCount
-	  				Case 4:
-	  					f_LocalPerfValue()
-	  				Case 6:
-	  					if ((warningValue <> "") and (criticalValue <> "")) then
-	  						f_LocalPerfValue()
-	  					end if	
-	  					if ((strUser <> "") and (strPass <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass or -w -c parameters"
-	  						Wscript.Quit(intError)	
-	  					end if
-	  				Case 8:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case 9:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "") and (strDomain <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass -domain parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case Else
-	  					Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-	  					Wscript.Quit(intError)
-  				End Select
-  						
-  			end if
-  		else
-  			Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-  			Wscript.Quit(intError)
-  		end if  
-  		
-  	end if

nsclient/trunk/scripts/wmi/check_counter_rawcount.vbs

@@ -1,848 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intWarning = 1
-Const intCritical = 2
-Const intError = 3
-Const intUnknown = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strClass
-Dim strProp
-Dim strInst
-Dim warningValue
-Dim warningValueString
-Dim criticalValue
-Dim criticalValueString
-Dim strUser
-Dim strPass
-Dim strDomain
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult
-Dim strResult1
-Dim strResult2
-Dim intReturnTemp
-Dim intReturn
-Dim strResultTemp1
-Dim strResultTemp2
-Dim strResultTemp3
-Dim strResultTemp4
-Dim intReturnTemp1
-Dim strPrefix
-Dim intValue
-Dim returnValue
-Dim strPropName
-Dim instanceArray()
-Dim instanceArraySize
-Dim warningArraySize
-Dim criticalArraySize
-Dim warningArray()
-Dim criticalArray()
-Dim instance
-Dim propArray()
-Dim propArraySize
-Dim lWarningValue
-Dim uWarningValue
-Dim lCriticalValue
-Dim uCriticalValue
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-Dim objWMIService, colWMI,objWMI,objSWbemLocator
-
-strComputer=""
-strClass = ""
-strProp = ""
-strInst = ""
-warningValue = -1
-criticalValue = -1
-strUser = ""
-strPass = ""
-strDomain = ""
-
-intReturnTemp1 = 0
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim str
-  		str="Check Counter RawCount. If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two last parameters."&vbCrlF&vbCrlF
-  		str=str&"cscript check_counter_rawcount.vbs -h hostname -class classname -prop property -inst instancename [-w warning_level -c critical_level] [-user username -pass password [-domain domain]]"&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"-h [--help]                 Help."&vbCrlF
-  		str=str&"-h hostname                 Host name."&vbCrlF  
-  		str=str&"-class classname            Class name."&vbCrlF
-  		str=str&"-prop property              Property of Class."&vbCrlF  
-  		str=str&"-inst instance              Needed Instance."&vbCrlF  
-  		str=str&"-w warning_level            Warning threshold."&vbCrlF
-  		str=str&"-c critical_level           Critical threshold."&vbCrlF
-  		str=str&"-user username              Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-pass password              Password Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-domain domain              Domain Name of Remote Machine."&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"Example: cscript check_counter_rawcount.vbs -h Ser1 -class Win32_PerfRawData_PerfProc_Process -prop HandleCount -inst ""*""  -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] "
-  		str=str&"Example: cscript check_counter_rawcount.vbs -h Ser1 -class Win32_PerfRawData_PerfProc_Process -prop HandleCount -inst ""IDProcess = '3612', IDProcess = '2156'""  -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] "
-  		wscript.echo str
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstance.
-'Descripton:        Get infomation at Local Host.
-'Input:				instance.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstance(instance)
-		
-		On Error Resume Next
-		
-		strResultTemp1 = ""
-		strResultTemp2 = ""
-		strResultTemp = ""
-		intResultTemp = 0
-		
-		strInstanceTemp1 = ""
-		strInstanceTemp2 = ""
-		intInstanceTemp1 = 0
-		intInstanceTemp2 = 0
-
-		'Depend on strInfo parameters to get the result value
-		
-		if(instance = "*") then
-			strQuery = "Select " & strProp & " from " & strClass
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		else
-			intInstanceTemp1 = InStr(1,instance,"=")
-			strInstanceTemp1 = Mid(instance,1,intInstanceTemp1-1)
-			intInstanceTemp2 = Len(instance)
-			strInstanceTemp2 = Mid(instance,intInstanceTemp1+1,intInstanceTemp2-intInstanceTemp1)
-			instance=strInstanceTemp1 & "='" & strInstanceTemp2 & "'"
-
-			strQuery = "Select " & strProp & " from " & strClass & " where " & instance
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		end if
-		
-		count = -1
-		count = colWMI.count
-		if(count = -1) then
-			Wscript.Echo "Unknown - No data received from WMI;"
-			Wscript.Quit(intUnknown)
-		else 
-			if(colWMI.count > 0) then
-				f_FormatData(colWMI)
-				
-				strResultTemp1 = strResultTemp1 & strResultTemp3
-				strResultTemp2 = strResultTemp2 & strResultTemp4
-				intReturnTemp = intReturnTemp1
-				Exit Function
-			else
-				strResultTemp1 = "Unknown - " & instance &" query: No row returned."
-				intReturnTemp = intUnknown
-				Exit Function
-			end if
-		end if								
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefix.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefix(intValue)
-		
-		On Error Resume Next
-		
-		strPrefix = ""
-		If(warningValue <> "" And criticalValue = "") Then 
-			If (IsNumeric(warningValue)) Then 
-				If (Int(intValue) < Int(warningValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=1
-					strPrefix= "Warning - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If(warningValue = "" And criticalValue <> "") Then 
-			If (IsNumeric(criticalValue)) Then 
-				If (Int(intValue) < Int(criticalValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=2
-					strPrefix= "Critical - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If (warningValue <> "" And criticalValue <> "") Then 
-			If (IsNumeric(warningValue) And IsNumeric(criticalValue)) Then
-				if (Int(warningValue) < Int(criticalValue)) then
-		      
-		            if (Int(intValue) < Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) < Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        else
-		            if (Int(intValue) > Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) > Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        end If
-	        Else
-	        	Wscript.Echo "Error! Arguments wrong, please verify -w -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-	        End If 
-        End If 
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefixWithRange.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefixWithRange(intValue)
-		
-        On Error Resume Next
-        lWarningValue = ""
-	    uWarningValue = ""
-	    lCriticalValue= ""
-	    uCriticalValue= ""
-	    warningReturn = 0
-	    criticalReturn = 0
-	    If(warningValue <> "") Then 
-	    	f_GetWarningValueFromRange(warningValue)
-	    End If
-	    If(criticalValue <> "") Then 
-	    	f_GetCriticalValueFromRange(criticalValue)
-	    End If
-	    strPrefix = ""
-	  	'verify warning
-	    If((lWarningValue <> "") And (uWarningValue <> "")) Then
-	    	If(Int(lWarningValue) <= Int(uWarningValue)) Then
-	  	    	If((Int(lWarningValue) >= Int(intValue)) Or (Int(intValue) >= Int(uWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uWarningValue) ) And (Int(intValue) <= Int(lWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    End If
-	    End If
-	    If((lWarningValue <> "") And (uWarningValue = "")) Then 
-	        If(Int(intValue) <= Int(lWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If 
-	    If((lWarningValue = "") And (uWarningValue <> "")) Then 
-	  	    If(Int(intValue) >= Int(uWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If
-	    
-	    'verify critical
-	    If((lCriticalValue <> "") And (uCriticalValue <> "")) Then
-	        If(Int(lCriticalValue) <= Int(uCriticalValue)) Then
-		        If((Int(lCriticalValue) >= Int(intValue)) Or (Int(intValue) >= Int(uCriticalValue))) Then
-		            criticalReturn=2
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uCriticalValue) ) And (Int(intValue) <= Int(lCriticalValue))) Then
-			        criticalReturn=2
-                End If 
-		    End If
-	    End If
-	    If((lCriticalValue <> "") And (uCriticalValue = "")) Then 
-	        If(Int(intValue) <= Int(lCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If 
-	    If((lCriticalValue = "") And (uCriticalValue <> "")) Then 
-	        If(Int(intValue) >= Int(uCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If
-      
-	    'return result
-	    If(criticalReturn = 2) Then 
-	        returnValue=2
-		    strPrefix= "Critical - "
-	    Else 
-	        If(warningReturn = 1) Then 
-		        returnValue=1
-		        strPrefix= "Warning - "
-		    Else
-			    returnValue=0
-		        strPrefix= "Ok - "
-		    End If
-	    End If
-
-    End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningValueFromRange(warningValue)
-		
-		On Error Resume Next
-		lWarningValue = ""
-	    uWarningValue = ""
-		temp1 = 0
-		temp1 = InStr(1, warningValue, ":")
-		if(temp1 > 0) then
-			lWarningTemp = Mid(warningValue, 1, temp1 -1)
-			uWarningTemp = Mid(warningValue, temp1 +1, len(warningValue) - temp1)
-			if(IsNumeric(lWarningTemp) or IsNumeric(uWarningTemp)) then
-				lWarningValue = lWarningTemp
-				uWarningValue = uWarningTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-		 
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetCriticalValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetCriticalValueFromRange(criticalValue)
-		
-		On Error Resume Next
-		lCriticalValue = ""
-	    uCriticalValue = ""
-		temp1 = 0
-		temp1 = InStr(1, criticalValue, ":")
-		if(temp1 > 0) then
-			lCriticalTemp = Mid(criticalValue, 1, temp1 -1)
-			uCriticalTemp = Mid(criticalValue, temp1 +1, len(criticalValue) - temp1)
-			if(IsNumeric(lCriticalTemp) or IsNumeric(uCriticalTemp)) then
-				lCriticalValue = lCriticalTemp
-				uCriticalValue = uCriticalTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			WScript.Echo "Error! Arguments wrong, please verify -c parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_FormatData.
-'Descripton:        Format data the same as output.
-'Input:				service.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatData(colWMI)
-		
-		On Error Resume Next
-		
-		strDisplay1 = ""
-		strDisplay2 = ""
-		strResultTemp3 = ""
-		strResultTemp4 = ""
-		
-		For Each objWMI in colWMI
-			strName = objWMI.Name
-			strPropName = objWMI.Properties_(strProp).Name
-			intValue = objWMI.Properties_(strProp)
-			Dim strDSName
-			strDSName = f_FormatDSName(strName)
-			
-			if((warningValue <> "") and (criticalValue <> "")) then
-				strDisplay1 = strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strDisplay2 =  "'" &strDSName & "'" & "=" & intValue & ";" & warningValue & ";" & criticalValue & ";; "
-				If(InStr(1, warningValue, ":") > 0 Or InStr(1, criticalValue, ":") > 0) Then
-					f_GetPrefixWithRange(intValue)
-				Else 
-				    f_GetPrefix(intValue)
-				End If
-				strResultTemp3 = strResultTemp3 & strPrefix & strDisplay1
-				strResultTemp4 = strResultTemp4 & strDisplay2
-				if( intReturnTemp1 < returnValue) then
-					intReturnTemp1 = returnValue
-				end if
-			else
-				strResultTemp3 = strResultTemp3 & "OK - " & strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strResultTemp4 = ""
-			end if
-		Next 
-							
-	End Function	
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_FormatDSName.
-'Descripton:        Get infomation at Local Host.
-'Input:				strName.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatDSName(strName)
-			
-		On Error Resume Next
-		
-		first = 1
-		position1 = 0
-		
-		position1 = InStr(first, strName, "=")
-		Dim proc_name
-		proc_name = ""
-		If(position1 > 0) Then 
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-			
-		Else
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-		End If 
-		f_FormatDSName = proc_name
-		Exit Function
-	End Function
-                        
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInformation.
-'Descripton:        Get information data.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInformation()
-        
-        On Error Resume Next
-        
-        strResult = ""
-        strResult1 = ""
-        strResult2 = ""
-		intReturn = 0
-		
-        If(instanceArraySize > 0 and (warningArraySize > 1 Or criticalArraySize > 1)) Then
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				warningValue = warningArray(i)
-				criticalValue = criticalArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        Else
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        end if
-        if(strResult2 = "") then
-        	strResult = strResult1
-        else
-        strResult = strResult1 & "|" & strResult2
-        end if
-        Wscript.Echo strResult
-		Wscript.Quit(intReturn)
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstances.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstances()
-		
-		On Error Resume Next
-		
-		first = 1
-		position = 0
-		instanceArraySize = 0
-		
-    	position = InStr(first, strInst, ",")
-    	if (position = 0) then
-    		instanceTemp = strInst
-    		InstanceArraySize = 1
-    		ReDim instanceArray(instanceArraySize)
-    		instanceArray(0) = instanceTemp
-    		
-    	else
-            do while (position > 0)
-                instanceTemp = Mid(strInst,first,position - first)
-                instanceArraySize = instanceArraySize + 1
-                ReDim Preserve instanceArray(instanceArraySize)
-                instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-                first = position + 1
-                position = InStr(first, strInst, ",")
-            loop
-            instanceTemp = Mid(strInst,first,len(strInst))
-            instanceArraySize = instanceArraySize + 1
-            ReDim Preserve instanceArray(instanceArraySize)
-            instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-        end if  
-
-	End Function			
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningCriticalValues.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningCriticalValues()
-		
-		On Error Resume Next
-		
-		position1 = 0
-		position2 = 0
-		position3 = 0
-		position4 = 0
-		temp1 = 1
-		temp2 = 1
-		warningArraySize = 0
-		criticalArraySize = 0
-		
-		'get warning
-    	position2 = InStr(temp1, warningValueString, ",")
-    	If(position2 = 0) then
-			position2 = Len(warningValueString)+1
-	    end if
-	    
-	    If(position2 > position1) then
-		    do while (position2 > position1)
-		        warningPair = Mid(warningValueString, position1 + 1, (position2 - position1 -1))
-		        warningArraySize = warningArraySize + 1
-			    ReDim Preserve warningArray(warningArraySize)
-			    warningArray(warningArraySize -1) = Trim(warningPair)
-			    temp1 = position2 + 1
-		        position1 = position2
-	    	    position2 = InStr(temp1, warningValueString, ",")
-			    If(position2 = 0) then
-			        position2 = Len(warningValueString)+1
-			    End If
-		    loop
-	    end If
-	    
-	    If(Int(warningArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve warningArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - warningArraySize - 1)
-	            warningArray(warningArraySize +i) = warningArray(warningArraySize-1)
-	        Next
-	        warningArraySize = instanceArraySize
-	    End If
-	    'get critical
-	    position4 = InStr(temp2, criticalValueString, ",")
-    	If(position4 = 0) then
-			position4 = Len(criticalValueString)+1
-	    end if
-	    
-	    If(position4 > position3) then
-		    do while (position4 > position3)
-		        criticalPair = Mid(criticalValueString, position3 + 1, (position4 - position3 -1))
-		        criticalArraySize = criticalArraySize + 1
-			    ReDim Preserve criticalArray(criticalArraySize)
-			    criticalArray(criticalArraySize -1) = Trim(criticalPair)
-			    temp2 = position4 + 1
-		        position3 = position4
-	    	    position4 = InStr(temp2, criticalValueString, ",")
-			    If(position4 = 0) then
-			        position4 = Len(criticalValueString)+1
-			    End If
-		    loop
-	    End If
-	    If(Int(criticalArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve criticalArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - criticalArraySize - 1)
-	            criticalArray(criticalArraySize +i) = criticalArray(criticalArraySize-1)
-	        Next
-	        criticalArraySize = instanceArraySize
-	    End If
-	    
-	End Function
-			
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		
-		'Set colInstances = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\" & strNameSpace).InstancesOf(strClass)
-		'For Each objInstance in colInstances
-		'Next
-		'f_Error()        
-        
-        f_GetInformation()	
-
-	End Function
-		    
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		        
-        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-		if (strDomain = "") then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		else
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass,"MS_409","ntlmdomain:" & strDomain ).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		end if
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		
-        f_GetInformation()
-
-	End Function
-	
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="check_counter_rawcount.vbs"
-		strDescription="Enumerate the needed windows host information."
-
-		                        '/////////////////////
-											
-		strNameSpace = 	"root\cimv2"
-		
-	f_GetAllArg()
-	tempCount = argcountcommand/2
-	f_Error()
-	strClass = ""
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if( ((argcountcommand Mod 2) = 0) and (3 < tempCount < 10)) then
-  			strComputer = f_GetOneArg("-h")
-  			strClass = f_GetOneArg("-class")
-  			strProp = f_GetOneArg("-prop")
-  			strInst = f_GetOneArg("-inst")
-  			f_GetInstances()
-  			warningValue = f_GetOneArg("-w")
-			warningValueString = f_GetOneArg("-w")
-  			criticalValue = f_GetOneArg("-c")
-			criticalValueString = f_GetOneArg("-c")
-			If((warningValueString <> "") Or (criticalValueString <> "")) Then 
-  				f_GetWarningCriticalValues()
-  			End if
-  			strUser = f_GetOneArg("-user")
-  			strPass = f_GetOneArg("-pass")
-  			strDomain = f_GetOneArg("-domain")
-  			if((strComputer = "") or (strClass = "") or (strProp = "") or (strInst = "")) then
-  				Wscript.Echo "Error! Arguments wrong, require verify -h -class -prop -inst parameters"
-  				Wscript.Quit(intError)
-  			else
-  				Select Case tempCount
-	  				Case 4:
-	  					f_LocalPerfValue()
-	  				Case 6:
-	  					if ((warningValue <> "") and (criticalValue <> "")) then
-	  						f_LocalPerfValue()
-	  					end if	
-	  					if ((strUser <> "") and (strPass <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass or -w -c parameters"
-	  						Wscript.Quit(intError)	
-	  					end if
-	  				Case 8:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case 9:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "") and (strDomain <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass -domain parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case Else
-	  					Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-	  					Wscript.Quit(intError)
-  				End Select
-  						
-  			end if
-  		else
-  			Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-  			Wscript.Quit(intError)
-  		end if  
-  		
-  	end if

nsclient/trunk/scripts/wmi/check_disks_percentage_space_used.vbs

@@ -1,965 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intWarning = 1
-Const intCritical = 2
-Const intError = 3
-Const intUnknown = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strClass
-Dim strProp
-Dim strDisks
-Dim warningValue
-Dim warningValueString
-Dim criticalValue
-Dim criticalValueString
-Dim strUser
-Dim strPass
-Dim strDomain
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult
-Dim strResult1
-Dim strResult2
-Dim intReturnTemp
-Dim intReturn
-Dim strResultTemp1
-Dim strResultTemp2
-Dim strResultTemp3
-Dim strResultTemp4
-Dim intReturnTemp1
-Dim strPrefix
-Dim intValue
-Dim returnValue
-Dim strThresolds
-Dim strThresoldPair
-Dim instanceArray()
-Dim instanceArraySize
-Dim thresoldArraySize
-Dim warningArraySize
-Dim criticalArraySize
-Dim warningArray()
-Dim criticalArray()
-Dim instance
-Dim lWarningValue
-Dim uWarningValue
-Dim lCriticalValue
-Dim uCriticalValue
-
-Dim strDisplay1
-Dim strDisplay2
-Dim strName
-Dim strPropName
-Dim intAverageValue
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-Dim objWMIService, colWMI,objWMI,objSWbemLocator
-
-strComputer=""
-strClass = ""
-strProp = ""
-strInst = ""
-warningValue = -1
-criticalValue = -1
-strUser = ""
-strPass = ""
-strDomain = ""
-
-intReturnTemp1 = 0
-
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim str
-  		str="Check Disks Percentage Space Used. If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two last parameters."&vbCrlF&vbCrlF
-  		str=str&"cscript check_disks_percentage_space_used.vbs -h hostname -inst DeviceID [-w warning_level -c critical_level] [-t thresoldpairs] [-user username -pass password [-domain domain]]"&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"-h [--help]                 Help."&vbCrlF
-  		str=str&"-h hostname                 Host name."&vbCrlF  
-  		str=str&"-inst disks                 DeviceID Instance."&vbCrlF  
-  		str=str&"-w warning_level            Warning threshold by percentage."&vbCrlF
-  		str=str&"-c critical_level           Critical threshold by percentage."&vbCrlF
-  		str=str&"-t thresold pairs           Threshold pairs for each instance. Note: each thresold pair enclosed by '{' and '}' characters, warning value and critical separated by ',' character"&vbCrlF
-  		str=str&"-user username              Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-pass password              Password Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-domain domain              Domain Name of Remote Machine."&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"Example: cscript check_disks_percentage_space_used.vbs -h Ser1 -inst ""*""  -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] " &vbCrlF
-  		str=str&"Example: cscript check_disks_percentage_space_used.vbs -h Ser1 -inst ""C:, D:""  -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] " &vbCrlF
-  		str=str&"Example: cscript check_disks_percentage_space_used.vbs -h Ser1 -inst ""C:, D:""  -t ""70,90:50,80"" [-user Ser1\Administrator -pass password -domain ITSP] " &vbCrlF
-  		wscript.echo str
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstance.
-'Descripton:        Get infomation at Local Host.
-'Input:				instance.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstance(instance)
-		
-		On Error Resume Next
-		
-		strResultTemp1 = ""
-		strResultTemp2 = ""
-		intResultTemp1 = 0
-		strResultTemp = ""
-		intResultTemp = 0
-		
-		if(instance = "*") then 
-			For Each objWMI in colWMI
-				strName = objWMI.Properties_("DeviceID")
-				strPropName = "Percentage Space Used"
-				intSize = objWMI.Properties_("Size")
-				intFreeSpace = objWMI.Properties_("FreeSpace")
-				if(intSize <> "") then
-					intValue = Int(((intSize - intFreeSpace)*100)/intSize)
-				else
-					intValue = 0
-				end if
-				
-				f_Display()
-				strResultTemp1 = strResultTemp1 & strResultTemp3
-				strResultTemp2 = strResultTemp2 & strResultTemp4
-			Next 
-			intReturnTemp = intReturnTemp1
-			
-			Exit Function
-		else
-			For Each objWMI in colWMI
-				strName = objWMI.Properties_("DeviceID")
-				strPropName = "Percentage Space Used"
-				intSize = objWMI.Properties_("Size")
-				intFreeSpace = objWMI.Properties_("FreeSpace")
-				if(Ucase(Trim(strName)) = Ucase(Trim(instance))) then
-					if(intSize <> "") then
-						intValue = Int(((intSize - intFreeSpace)*100)/intSize)
-					else
-						intValue = 0
-					end if
-					f_Display()
-					strResultTemp1 = strResultTemp1 & strResultTemp3
-					strResultTemp2 = strResultTemp2 & strResultTemp4
-					intReturnTemp = intReturnTemp1
-					Exit Function
-				end if
-			Next
-			strResultTemp1 = "Unknown - " & instance & " no row returned."
-			intReturnTemp = intUnknown
-			Exit Function
-		end if					
-		
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefix.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefix(intValue)
-		
-		On Error Resume Next
-		
-		strPrefix = ""
-		If(warningValue <> "" And criticalValue = "") Then 
-			If (IsNumeric(warningValue)) Then 
-				If (Int(intValue) < Int(warningValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=1
-					strPrefix= "Warning - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If(warningValue = "" And criticalValue <> "") Then 
-			If (IsNumeric(criticalValue)) Then 
-				If (Int(intValue) < Int(criticalValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=2
-					strPrefix= "Critical - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If (warningValue <> "" And criticalValue <> "") Then 
-			If (IsNumeric(warningValue) And IsNumeric(criticalValue)) Then
-				if (Int(warningValue) < Int(criticalValue)) then
-		      
-		            if (Int(intValue) < Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) < Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        else
-		            if (Int(intValue) > Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) > Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        end If
-	        Else
-	        	Wscript.Echo "Error! Arguments wrong, please verify -w -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-	        End If 
-        End If 
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefixWithRange.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefixWithRange(intValue)
-		
-        On Error Resume Next
-        lWarningValue = ""
-	    uWarningValue = ""
-	    lCriticalValue= ""
-	    uCriticalValue= ""
-	    warningReturn = 0
-	    criticalReturn = 0
-	    If(warningValue <> "") Then 
-	    	f_GetWarningValueFromRange(warningValue)
-	    End If
-	    If(criticalValue <> "") Then 
-	    	f_GetCriticalValueFromRange(criticalValue)
-	    End If
-	    strPrefix = ""
-	  	'verify warning
-	    If((lWarningValue <> "") And (uWarningValue <> "")) Then
-	    	If(Int(lWarningValue) <= Int(uWarningValue)) Then
-	  	    	If((Int(lWarningValue) >= Int(intValue)) Or (Int(intValue) >= Int(uWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uWarningValue) ) And (Int(intValue) <= Int(lWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    End If
-	    End If
-	    If((lWarningValue <> "") And (uWarningValue = "")) Then 
-	        If(Int(intValue) <= Int(lWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If 
-	    If((lWarningValue = "") And (uWarningValue <> "")) Then 
-	  	    If(Int(intValue) >= Int(uWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If
-	    
-	    'verify critical
-	    If((lCriticalValue <> "") And (uCriticalValue <> "")) Then
-	        If(Int(lCriticalValue) <= Int(uCriticalValue)) Then
-		        If((Int(lCriticalValue) >= Int(intValue)) Or (Int(intValue) >= Int(uCriticalValue))) Then
-		            criticalReturn=2
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uCriticalValue) ) And (Int(intValue) <= Int(lCriticalValue))) Then
-			        criticalReturn=2
-                End If 
-		    End If
-	    End If
-	    If((lCriticalValue <> "") And (uCriticalValue = "")) Then 
-	        If(Int(intValue) <= Int(lCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If 
-	    If((lCriticalValue = "") And (uCriticalValue <> "")) Then 
-	        If(Int(intValue) >= Int(uCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If
-      
-	    'return result
-	    If(criticalReturn = 2) Then 
-	        returnValue=2
-		    strPrefix= "Critical - "
-	    Else 
-	        If(warningReturn = 1) Then 
-		        returnValue=1
-		        strPrefix= "Warning - "
-		    Else
-			    returnValue=0
-		        strPrefix= "Ok - "
-		    End If
-	    End If
-
-    End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningValueFromRange(warningValue)
-		
-		On Error Resume Next
-		lWarningValue = ""
-	    uWarningValue = ""
-		temp1 = 0
-		temp1 = InStr(1, warningValue, ":")
-		if(temp1 > 0) then
-			lWarningTemp = Mid(warningValue, 1, temp1 -1)
-			uWarningTemp = Mid(warningValue, temp1 +1, len(warningValue) - temp1)
-			if(IsNumeric(lWarningTemp) or IsNumeric(uWarningTemp)) then
-				lWarningValue = lWarningTemp
-				uWarningValue = uWarningTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-		 
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetCriticalValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetCriticalValueFromRange(criticalValue)
-		
-		On Error Resume Next
-		lCriticalValue = ""
-	    uCriticalValue = ""
-		temp1 = 0
-		temp1 = InStr(1, criticalValue, ":")
-		if(temp1 > 0) then
-			lCriticalTemp = Mid(criticalValue, 1, temp1 -1)
-			uCriticalTemp = Mid(criticalValue, temp1 +1, len(criticalValue) - temp1)
-			if(IsNumeric(lCriticalTemp) or IsNumeric(uCriticalTemp)) then
-				lCriticalValue = lCriticalTemp
-				uCriticalValue = uCriticalTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			WScript.Echo "Error! Arguments wrong, please verify -c parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Display.
-'Descripton:        Format data the same as output.
-'Input:				service.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Display()
-		
-		On Error Resume Next
-		
-		strDisplay1 = ""
-		strDisplay2 = ""
-		strResultTemp3 = ""
-		strResultTemp4 = ""
-		'strName = instance
-		'strPropName = "Number of processes with "
-		'intValue = count
-		Dim strDSName
-		strDSName = f_FormatDSName(strName)
-		if((warningValue <> "") Or (criticalValue <> "")) then
-			strDisplay1 = strName & " '" & strPropName & "'" & " = " & intValue & "; "
-			strDisplay2 =  "'" & strDSName  & "'" & "=" & intValue & ";" & warningValue & ";" & criticalValue & ";; "
-			If(InStr(1, warningValue, ":") > 0 Or InStr(1, criticalValue, ":") > 0) Then
-				f_GetPrefixWithRange(intValue)
-			Else 
-			    f_GetPrefix(intValue)
-			End If
-			strResultTemp3 = strResultTemp3 & strPrefix & strDisplay1
-			strResultTemp4 = strResultTemp4 & strDisplay2
-			if( intReturnTemp1 < returnValue) then
-				intReturnTemp1 = returnValue
-			end if
-		else
-			strResultTemp3 = strResultTemp3 & "OK - " & strName & " '" & strPropName & "'" & " = " & intValue & "; "
-			strResultTemp4 = ""
-		end if
-							
-	End Function	
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_FormatDSName.
-'Descripton:        Get infomation at Local Host.
-'Input:				strName.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatDSName(strName)
-			
-		On Error Resume Next
-		
-		first = 1
-		position1 = 0
-		
-		position1 = InStr(first, strName, "=")
-		Dim proc_name
-		proc_name = ""
-		If(position1 > 0) Then 
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Replace(proc_name,":","")
-			proc_name = Mid(proc_name,1, 19)
-			
-			
-		Else
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Replace(proc_name,":","")
-			proc_name = Mid(proc_name,1, 19)
-			
-		End If 
-		f_FormatDSName = proc_name
-		Exit Function
-	End Function
-        
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_ExecQuery.
-'Descripton:        Format data the same as output.
-'Input:				service.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_ExecQuery()
-		
-		On Error Resume Next
-		
-		strQuery = "Select " & strProp & " from " & strClass & " where DriveType = 3"
-		Set colWMI = objWMIService.ExecQuery(strQuery)
-		count = -1
-		count = colWMI.count
-		if(count = -1) then
-			Wscript.Echo "Unknown - No data received from WMI;"
-			Wscript.Quit(intUnknown)
-		end if
-				
-	End Function
-	        
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInformation.
-'Descripton:        Get information data.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInformation()
-        
-        On Error Resume Next
-        
-        strResult = ""
-        strResult1 = ""
-        strResult2 = ""
-		intReturn = 0
-		        
-        if(thresoldArraySize > 0 and (thresoldArraySize <> instanceArraySize)) then
-        	Wscript.Echo "Error! Arguments wrong, number of instances and thresolds do not match."
-	  		Wscript.Quit(intError)
-	  		Exit Function
-        end if
-        
-        If(thresoldArraySize > 0 and (thresoldArraySize = instanceArraySize)) then
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				warningValue = warningArray(i)
-				criticalValue = criticalArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-		Else
-	        If(instanceArraySize > 0 and (warningArraySize > 1 Or criticalArraySize > 1)) Then
-	        	for i  = 0 to instanceArraySize -1
-					instance = instanceArray(i)
-					warningValue = warningArray(i)
-					criticalValue = criticalArray(i)
-					f_GetInstance(instance)
-					strResult1 = strResult1 & strResultTemp1
-					strResult2 = strResult2 & strResultTemp2
-			      	if intReturn < intReturnTemp then
-			      		intReturn = intReturnTemp
-			      	end if
-				Next
-	        Else
-	        	for i  = 0 to instanceArraySize -1
-					instance = instanceArray(i)
-					f_GetInstance(instance)
-					strResult1 = strResult1 & strResultTemp1
-					strResult2 = strResult2 & strResultTemp2
-			      	if intReturn < intReturnTemp then
-			      		intReturn = intReturnTemp
-			      	end if
-				Next
-	        End If
-        End if
-        if(strResult2 = "") then
-        	strResult = strResult1
-        else
-        strResult = strResult1 & "|" & strResult2
-        end if
-        Wscript.Echo strResult
-		Wscript.Quit(intReturn)
-		
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstances.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstances()
-		
-		On Error Resume Next
-		
-		first = 1
-		position = 0
-		instanceArraySize = 0
-		
-    	position = InStr(first, strInst, ",")
-    	if (position = 0) then
-    		instanceTemp = strInst
-    		InstanceArraySize = 1
-    		ReDim instanceArray(instanceArraySize)
-    		instanceArray(0) = instanceTemp
-    		
-    	else
-          do while (position > 0)
-            instanceTemp = Mid(strInst,first,position - first)
-            instanceArraySize = instanceArraySize + 1
-            ReDim Preserve instanceArray(instanceArraySize)
-            instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-            first = position + 1
-            position = InStr(first, strInst, ",")
-          loop
-          instanceTemp = Mid(strInst,first,len(strInst))
-          instanceArraySize = instanceArraySize + 1
-          ReDim Preserve instanceArray(instanceArraySize)
-          instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-        end if  
-
-	End Function			
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningCriticalValues.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningCriticalValues()
-		
-		On Error Resume Next
-		
-		position1 = 0
-		position2 = 0
-		position3 = 0
-		position4 = 0
-		temp1 = 1
-		temp2 = 1
-		warningArraySize = 0
-		criticalArraySize = 0
-		
-		'get warning
-    	position2 = InStr(temp1, warningValueString, ",")
-    	If(position2 = 0) then
-			position2 = Len(warningValueString)+1
-	    end if
-	    
-	    If(position2 > position1) then
-		    do while (position2 > position1)
-		        warningPair = Mid(warningValueString, position1 + 1, (position2 - position1 -1))
-		        warningArraySize = warningArraySize + 1
-			    ReDim Preserve warningArray(warningArraySize)
-			    warningArray(warningArraySize -1) = Trim(warningPair)
-			    temp1 = position2 + 1
-		        position1 = position2
-	    	    position2 = InStr(temp1, warningValueString, ",")
-			    If(position2 = 0) then
-			        position2 = Len(warningValueString)+1
-			    End If
-		    loop
-	    end If
-	    
-	    If(Int(warningArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve warningArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - warningArraySize - 1)
-	            warningArray(warningArraySize +i) = warningArray(warningArraySize-1)
-	        Next
-	        warningArraySize = instanceArraySize
-	    End If
-	    'get critical
-	    position4 = InStr(temp2, criticalValueString, ",")
-    	If(position4 = 0) then
-			position4 = Len(criticalValueString)+1
-	    end if
-	    
-	    If(position4 > position3) then
-		    do while (position4 > position3)
-		        criticalPair = Mid(criticalValueString, position3 + 1, (position4 - position3 -1))
-		        criticalArraySize = criticalArraySize + 1
-			    ReDim Preserve criticalArray(criticalArraySize)
-			    criticalArray(criticalArraySize -1) = Trim(criticalPair)
-			    temp2 = position4 + 1
-		        position3 = position4
-	    	    position4 = InStr(temp2, criticalValueString, ",")
-			    If(position4 = 0) then
-			        position4 = Len(criticalValueString)+1
-			    End If
-		    loop
-	    End If
-	    If(Int(criticalArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve criticalArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - criticalArraySize - 1)
-	            criticalArray(criticalArraySize +i) = criticalArray(criticalArraySize-1)
-	        Next
-	        criticalArraySize = instanceArraySize
-	    End If
-	    
-	End Function
-			
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetThresolds.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetThresolds()
-		
-		On Error Resume Next
-		
-		first = 1
-		position1 = 0
-		position2 = 0
-		temp = 1
-		temp1 = 0
-		thresoldArraySize = 0
-		
-    	position2 = InStr(temp, strThresolds, ":")
-        If(position2 = 0) then
-			position2 = Len(strThresolds)+1
-	    end if
-
-	    
-	    if(position2 > position1) then
-	    
-	    do while (position2 > position1)
-	      thresoldPair = Mid(strThresolds, position1 + 1, (position2 - position1 -1))
-	      temp1 = InStr(1, thresoldPair, ",")
-	      if(temp1 > 0) then
-	      	warningTemp = Mid(thresoldPair, 1, temp1 -1)
-	      	criticalTemp = Mid(thresoldPair, temp1 +1, len(thresoldPair) - temp1)
-	      	if(IsNumeric(warningTemp) or IsNumeric(criticalTemp)) then
-	      		thresoldArraySize = thresoldArraySize + 1
-			    ReDim Preserve warningArray(thresoldArraySize)
-			    ReDim Preserve criticalArray(thresoldArraySize)
-			    warningArray(thresoldArraySize -1) = Trim(warningTemp)
-			    criticalArray(thresoldArraySize -1) = Trim(criticalTemp)
-	      	else
-	      		Wscript.Echo "Error! Arguments wrong, please verify -t parameter"
-	  			Wscript.Quit(intError)
-	  			Exit Function
-	      	end if
-	      Else
-	      	Wscript.Echo "Error! Arguments wrong, please verify -t parameter"
-	  		Wscript.Quit(intError)
-	  		Exit Function
-	      end if
-	      temp = position2 + 1
-	      position1 = position2
-    	      position2 = InStr(temp, strThresolds, ":")
-		if(position2 = 0) then
-			position2 = Len(strThresolds)+1
-		end if
-	    loop
-	    end if
-	End Function			
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		        
-        f_ExecQuery()
-        'f_GetInstances()
-        f_GetInformation()	
-
-	End Function
-		    
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		        
-        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-		if (strDomain = "") then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-			
-		else
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-			
-		end if
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		
-		f_ExecQuery()
-        'f_GetInstances()
-        f_GetInformation()
-
-	End Function
-	
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="check_disks_percentage_space_used.vbs"
-		strDescription="Enumerate the needed windows host information."
-
-		                        '/////////////////////
-											
-		strNameSpace = 	"root\cimv2"
-		strClass = "Win32_LogicalDisk"
-		strProp = "DeviceID, Size, FreeSpace"
-	f_GetAllArg()
-	tempCount = argcountcommand/2
-	f_Error()
-	
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if( ((argcountcommand Mod 2) = 0) and (1 < tempCount < 8)) then
-  			strComputer = f_GetOneArg("-h")
-  			strInst = f_GetOneArg("-inst")
-  			f_GetInstances()
-  			warningValue = f_GetOneArg("-w")
-			warningValueString = f_GetOneArg("-w")
-  			criticalValue = f_GetOneArg("-c")
-			criticalValueString = f_GetOneArg("-c")
-			If((warningValueString <> "") Or (criticalValueString <> "")) Then 
-  				f_GetWarningCriticalValues()
-  			End if
-  			strThresolds = f_GetOneArg("-t")
-  			
-  			strUser = f_GetOneArg("-user")
-  			strPass = f_GetOneArg("-pass")
-  			strDomain = f_GetOneArg("-domain")
-  			if((strComputer = "") or (strInst = "")) then
-  				Wscript.Echo "Error! Arguments wrong, require verify -h -inst parameters"
-  				Wscript.Quit(intError)
-  			else
-  				Select Case tempCount
-	  				Case 2:
-	  					f_LocalPerfValue()
-	  				Case 3:
-	  					if(strThresolds <> "") then
-	  						f_GetThresolds()
-	  						f_LocalPerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -t parameters"
-	  						Wscript.Quit(intError)	
-	  					end if	
-	  				Case 4:
-	  					if ((warningValue <> "") and (criticalValue <> "")) then
-	  						f_LocalPerfValue()
-	  					end if	
-	  					if ((strUser <> "") and (strPass <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass or -w -c parameters"
-	  						Wscript.Quit(intError)	
-	  					end if
-	  				Case 5:
-	  					if ((strUser <> "") and (strPass <> "") and (strThresolds <> "")) then
-	  						f_GetThresolds()
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass or -t parameters"
-	  						Wscript.Quit(intError)	
-	  					end if
-	  				Case 6:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case 7:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "") and (strDomain <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass -domain parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case Else
-	  					Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-	  					Wscript.Quit(intError)
-  				End Select
-  						
-  			end if
-  		else
-  			Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-  			Wscript.Quit(intError)
-  		end if  
-  		
-  	end if

nsclient/trunk/scripts/wmi/check_proc_num.vbs

@@ -1,841 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intWarning = 1
-Const intCritical = 2
-Const intError = 3
-Const intUnknown = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strClass
-Dim strProp
-Dim strInst
-Dim warningValue
-Dim warningValueString
-Dim criticalValue
-Dim criticalValueString
-Dim strUser
-Dim strPass
-Dim strDomain
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult
-Dim strResult1
-Dim strResult2
-Dim intReturnTemp
-Dim intReturn
-Dim strResultTemp1
-Dim strResultTemp2
-Dim strResultTemp3
-Dim strResultTemp4
-Dim intReturnTemp1
-Dim strPrefix
-Dim intValue
-Dim returnValue
-Dim instance
-Dim instanceArray()
-Dim instanceArraySize
-Dim warningArraySize
-Dim criticalArraySize
-Dim warningArray()
-Dim criticalArray()
-Dim lWarningValue
-Dim uWarningValue
-Dim lCriticalValue
-Dim uCriticalValue
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-Dim objWMIService, colWMI,objWMI,objSWbemLocator
-
-strComputer=""
-strClass = ""
-strProp = ""
-strInst = ""
-warningValue = -1
-criticalValue = -1
-strUser = ""
-strPass = ""
-strDomain = ""
-
-intReturnTemp1 = 0
-
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim str
-  		str="Check Number of Processes. If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two last parameters."&vbCrlF&vbCrlF
-  		str=str&"cscript check_proc_num.vbs -h hostname -inst instancename [-w warning_level -c critical_level] [-user username -pass password [-domain domain]]"&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"-h [--help]                 Help."&vbCrlF
-  		str=str&"-h hostname                 Host name."&vbCrlF  
-  		str=str&"-inst instance              Needed Instance."&vbCrlF  
-  		str=str&"-w warning_level            Warning threshold."&vbCrlF
-  		str=str&"-c critical_level           Critical threshold."&vbCrlF
-  		str=str&"-user username              Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-pass password              Password Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-domain domain              Domain Name of Remote Machine."&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"Example: cscript check_proc_num.vbs -h Ser1 -inst ""cmd.exe""  -w 5 -c 10 [-user Ser1\Administrator -pass password -domain ITSP] "
-  		str=str&"Example: cscript check_proc_num.vbs -h Ser1 -inst ""cmd.exe,firefox.exe""  -w 5 -c 10 [-user Ser1\Administrator -pass password -domain ITSP] "
-  		wscript.echo str
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstance.
-'Descripton:        Get infomation at Local Host.
-'Input:				instance.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstance(instance)
-		
-		On Error Resume Next
-		
-		strResultTemp = ""
-		strResultTemp1 = ""
-		strResultTemp2 = ""
-		intResultTemp = 0
-		strInstanceTemp1 = ""
-		strInstanceTemp2 = ""
-		intInstanceTemp1 = 0
-		intInstanceTemp2 = 0
-		
-		'Depend on strInfo parameters to get the result value
-
-		intInstanceTemp1 = InStr(1,instance,"=")
-		strInstanceTemp1 = Mid(instance,1,intInstanceTemp1-1)
-		intInstanceTemp2 = Len(instance)
-		strInstanceTemp2 = Mid(instance,intInstanceTemp1+1,intInstanceTemp2-intInstanceTemp1)
-		instance=strInstanceTemp1 & "='" & strInstanceTemp2 & "'"
-		
-		strQuery = "Select " & strProp & " from " & strClass & " where " & instance
-
-		Set colWMI = objWMIService.ExecQuery(strQuery)
-	
-		count = -1
-		count = colWMI.count
-		if(count = -1) then
-			Wscript.Echo "Unknown - No data received from WMI;"
-			Wscript.Quit(intUnknown)
-		else 
-			if(colWMI.count > 0) then
-				f_FormatData(colWMI.count)
-				
-				strResultTemp1 = strResultTemp1 & strResultTemp3
-				strResultTemp2 = strResultTemp2 & strResultTemp4
-				intReturnTemp = intReturnTemp1
-				Exit Function
-			else
-				f_FormatData(0)
-				
-				strResultTemp1 = strResultTemp1 & strResultTemp3
-				strResultTemp2 = strResultTemp2 & strResultTemp4
-				intReturnTemp = intReturnTemp1
-				Exit Function
-			end if
-		end if								
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefix.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefix(intValue)
-		
-		On Error Resume Next
-		
-		strPrefix = ""
-		If(warningValue <> "" And criticalValue = "") Then 
-			If (IsNumeric(warningValue)) Then 
-				If (Int(intValue) < Int(warningValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=1
-					strPrefix= "Warning - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If(warningValue = "" And criticalValue <> "") Then 
-			If (IsNumeric(criticalValue)) Then 
-				If (Int(intValue) < Int(criticalValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=2
-					strPrefix= "Critical - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If (warningValue <> "" And criticalValue <> "") Then 
-			If (IsNumeric(warningValue) And IsNumeric(criticalValue)) Then
-				if (Int(warningValue) < Int(criticalValue)) then
-		      
-		            if (Int(intValue) < Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) < Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        else
-		            if (Int(intValue) > Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) > Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        end If
-	        Else
-	        	Wscript.Echo "Error! Arguments wrong, please verify -w -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-	        End If 
-        End If 
-
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefixWithRange.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefixWithRange(intValue)
-		
-        On Error Resume Next
-        lWarningValue = ""
-	    uWarningValue = ""
-	    lCriticalValue= ""
-	    uCriticalValue= ""
-	    warningReturn = 0
-	    criticalReturn = 0
-	    If(warningValue <> "") Then 
-	    	f_GetWarningValueFromRange(warningValue)
-	    End If
-	    If(criticalValue <> "") Then 
-	    	f_GetCriticalValueFromRange(criticalValue)
-	    End If
-        strPrefix = ""
-	  	'verify warning
-	    If((lWarningValue <> "") And (uWarningValue <> "")) Then
-	    	If(Int(lWarningValue) <= Int(uWarningValue)) Then
-	  	    	If((Int(lWarningValue) >= Int(intValue)) Or (Int(intValue) >= Int(uWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uWarningValue) ) And (Int(intValue) <= Int(lWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    End If
-	    End If
-	    If((lWarningValue <> "") And (uWarningValue = "")) Then 
-	        If(Int(intValue) <= Int(lWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If 
-	    If((lWarningValue = "") And (uWarningValue <> "")) Then 
-	  	    If(Int(intValue) >= Int(uWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If
-	    
-	    'verify critical
-	    If((lCriticalValue <> "") And (uCriticalValue <> "")) Then
-	        If(Int(lCriticalValue) <= Int(uCriticalValue)) Then
-		        If((Int(lCriticalValue) >= Int(intValue)) Or (Int(intValue) >= Int(uCriticalValue))) Then
-		            criticalReturn=2
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uCriticalValue) ) And (Int(intValue) <= Int(lCriticalValue))) Then
-			        criticalReturn=2
-                End If 
-		    End If
-	    End If
-	    If((lCriticalValue <> "") And (uCriticalValue = "")) Then 
-	        If(Int(intValue) <= Int(lCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If 
-	    If((lCriticalValue = "") And (uCriticalValue <> "")) Then 
-	        If(Int(intValue) >= Int(uCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If
-      
-	    'return result
-	    If(criticalReturn = 2) Then 
-	        returnValue=2
-		    strPrefix= "Critical - "
-	    Else 
-	        If(warningReturn = 1) Then 
-		        returnValue=1
-		        strPrefix= "Warning - "
-		    Else
-			    returnValue=0
-		        strPrefix= "Ok - "
-		    End If
-	    End If
-
-    End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningValueFromRange(warningValue)
-		
-		On Error Resume Next
-		lWarningValue = ""
-	    uWarningValue = ""
-		temp1 = 0
-		temp1 = InStr(1, warningValue, ":")
-		if(temp1 > 0) then
-			lWarningTemp = Mid(warningValue, 1, temp1 -1)
-			uWarningTemp = Mid(warningValue, temp1 +1, len(warningValue) - temp1)
-			if(IsNumeric(lWarningTemp) or IsNumeric(uWarningTemp)) then
-				lWarningValue = lWarningTemp
-				uWarningValue = uWarningTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-		 
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetCriticalValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetCriticalValueFromRange(criticalValue)
-		
-		On Error Resume Next
-		lCriticalValue = ""
-	    uCriticalValue = ""
-		temp1 = 0
-		temp1 = InStr(1, criticalValue, ":")
-		if(temp1 > 0) then
-			lCriticalTemp = Mid(criticalValue, 1, temp1 -1)
-			uCriticalTemp = Mid(criticalValue, temp1 +1, len(criticalValue) - temp1)
-			if(IsNumeric(lCriticalTemp) or IsNumeric(uCriticalTemp)) then
-				lCriticalValue = lCriticalTemp
-				uCriticalValue = uCriticalTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			WScript.Echo "Error! Arguments wrong, please verify -c parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_FormatData.
-'Descripton:        Format data the same as output.
-'Input:				service.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatData(count)
-		
-		On Error Resume Next
-		
-		strDisplay1 = ""
-		strDisplay2 = ""
-		strResultTemp3 = ""
-		strResultTemp4 = ""
-		strName = instance
-		strPropName = "Number of processes with "
-		intValue = count
-		Dim strDSName
-		strDSName = f_FormatDSName(strName)
-		if((warningValue <> "") Or (criticalValue <> "")) then
-			strDisplay1 = strPropName & strName & " = " & intValue & "; "
-			strDisplay2 =  "'" & strDSName  & "'" & "=" & intValue & ";" & warningValue & ";" & criticalValue & ";; "
-			If(InStr(1, warningValue, ":") > 0 Or InStr(1, criticalValue, ":") > 0) Then
-				f_GetPrefixWithRange(intValue)
-			Else 
-			    f_GetPrefix(intValue)
-			End If
-			strResultTemp3 = strResultTemp3 & strPrefix & strDisplay1
-			strResultTemp4 = strResultTemp4 & strDisplay2
-			if( intReturnTemp1 < returnValue) then
-				intReturnTemp1 = returnValue
-			end if
-		else
-			strResultTemp3 = strResultTemp3 & "OK - " & strPropName & strName & " = " & intValue & "; "
-			strResultTemp4 = ""
-		end if
-							
-	End Function	
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_FormatDSName.
-'Descripton:        Get infomation at Local Host.
-'Input:				strName.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatDSName(strName)
-			
-		On Error Resume Next
-		
-		first = 1
-		position1 = 0
-		
-		position1 = InStr(first, strName, "=")
-		Dim proc_name
-		proc_name = ""
-		If(position1 > 0) Then 
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-			
-		Else
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-		End If 
-		f_FormatDSName = proc_name
-		Exit Function
-	End Function
-        
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInformation.
-'Descripton:        Get information data.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInformation()
-        
-        On Error Resume Next
-        
-        strResult = ""
-        strResult1 = ""
-        strResult2 = ""
-		intReturn = 0
-		
-        If(instanceArraySize > 0 and (warningArraySize > 1 Or criticalArraySize > 1)) Then
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				warningValue = warningArray(i)
-				criticalValue = criticalArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        Else
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        end if
-        if(strResult2 = "") then
-        	strResult = strResult1
-        else
-        strResult = strResult1 & "|" & strResult2
-        end if
-        Wscript.Echo strResult
-		Wscript.Quit(intReturn)
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstances.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstances()
-		
-		On Error Resume Next
-		
-		first = 1
-		position = 0
-		instanceArraySize = 0
-		
-    	position = InStr(first, strInst, ",")
-    	if (position = 0) then
-    		instanceTemp = strInst
-    		InstanceArraySize = 1
-    		ReDim instanceArray(instanceArraySize)
-    		instanceArray(0) = instanceTemp
-    		
-    	else
-            do while (position > 0)
-                instanceTemp = Mid(strInst,first,position - first)
-                instanceArraySize = instanceArraySize + 1
-                ReDim Preserve instanceArray(instanceArraySize)
-                instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-                first = position + 1
-                position = InStr(first, strInst, ",")
-            loop
-            instanceTemp = Mid(strInst,first,len(strInst))
-            instanceArraySize = instanceArraySize + 1
-            ReDim Preserve instanceArray(instanceArraySize)
-            instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-        end if  
-
-	End Function			
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningCriticalValues.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningCriticalValues()
-		
-		On Error Resume Next
-		
-		position1 = 0
-		position2 = 0
-		position3 = 0
-		position4 = 0
-		temp1 = 1
-		temp2 = 1
-		warningArraySize = 0
-		criticalArraySize = 0
-		
-		'get warning
-    	position2 = InStr(temp1, warningValueString, ",")
-    	If(position2 = 0) then
-			position2 = Len(warningValueString)+1
-	    end if
-	    
-	    If(position2 > position1) then
-		    do while (position2 > position1)
-		        warningPair = Mid(warningValueString, position1 + 1, (position2 - position1 -1))
-		        warningArraySize = warningArraySize + 1
-			    ReDim Preserve warningArray(warningArraySize)
-			    warningArray(warningArraySize -1) = Trim(warningPair)
-			    temp1 = position2 + 1
-		        position1 = position2
-	    	    position2 = InStr(temp1, warningValueString, ",")
-			    If(position2 = 0) then
-			        position2 = Len(warningValueString)+1
-			    End If
-		    loop
-	    end If
-	    
-	    If(Int(warningArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve warningArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - warningArraySize - 1)
-	            warningArray(warningArraySize +i) = warningArray(warningArraySize-1)
-	        Next
-	        warningArraySize = instanceArraySize
-	    End If
-	    'get critical
-	    position4 = InStr(temp2, criticalValueString, ",")
-    	If(position4 = 0) then
-			position4 = Len(criticalValueString)+1
-	    end if
-	    
-	    If(position4 > position3) then
-		    do while (position4 > position3)
-		        criticalPair = Mid(criticalValueString, position3 + 1, (position4 - position3 -1))
-		        criticalArraySize = criticalArraySize + 1
-			    ReDim Preserve criticalArray(criticalArraySize)
-			    criticalArray(criticalArraySize -1) = Trim(criticalPair)
-			    temp2 = position4 + 1
-		        position3 = position4
-	    	    position4 = InStr(temp2, criticalValueString, ",")
-			    If(position4 = 0) then
-			        position4 = Len(criticalValueString)+1
-			    End If
-		    loop
-	    End If
-	    If(Int(criticalArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve criticalArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - criticalArraySize - 1)
-	            criticalArray(criticalArraySize +i) = criticalArray(criticalArraySize-1)
-	        Next
-	        criticalArraySize = instanceArraySize
-	    End If
-	    
-	End Function
-			
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		
-		'Set colInstances = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\" & strNameSpace).InstancesOf(strClass)
-		'For Each objInstance in colInstances
-		'Next
-		'f_Error()        
-        
-        f_GetInformation()	
-
-	End Function
-		    
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		        
-        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-		if (strDomain = "") then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		else
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass,"MS_409","ntlmdomain:" & strDomain ).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		end if
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		
-        f_GetInformation()
-
-	End Function
-	
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="check_proc_num.vbs"
-		strDescription="Check number processes of a process."
-
-		                        '/////////////////////
-											
-		strNameSpace = 	"root\cimv2"
-		strClass = "Win32_Process"
-		strProp = "Name"	
-	f_GetAllArg()
-	tempCount = argcountcommand/2
-	f_Error()
-	
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if( ((argcountcommand Mod 2) = 0) and (1 < tempCount < 8)) then
-  			strComputer = f_GetOneArg("-h")
-  			strInst = f_GetOneArg("-inst")
-			f_GetInstances()
-  			warningValue = f_GetOneArg("-w")
-			warningValueString = f_GetOneArg("-w")
-  			criticalValue = f_GetOneArg("-c")
-			criticalValueString = f_GetOneArg("-c")
-			If((warningValueString <> "") Or (criticalValueString <> "")) Then 
-  				f_GetWarningCriticalValues()
-  			End if
-  			strUser = f_GetOneArg("-user")
-  			strPass = f_GetOneArg("-pass")
-  			strDomain = f_GetOneArg("-domain")
-  			if((strComputer = "") or (strInst = "")) then
-  				Wscript.Echo "Error! Arguments wrong, require verify -h -inst parameters"
-  				Wscript.Quit(intError)
-  			else
-  				Select Case tempCount
-	  				Case 2:
-	  					f_LocalPerfValue()
-	  				Case 3:
-	  					f_LocalPerfValue()
-	  				Case 4:
-	  					if ((warningValue <> "") and (criticalValue <> "") ) then
-	  						f_LocalPerfValue()
-	  					end if	
-	  					if ((strUser <> "") and (strPass <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass or -w -c parameters"
-	  						Wscript.Quit(intError)	
-	  					end if
-	  				Case 6:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case 7:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "") and (strDomain <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass -domain parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case Else
-	  					Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-	  					Wscript.Quit(intError)
-  				End Select
-  						
-  			end if
-  		else
-  			Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-  			Wscript.Quit(intError)
-  		end if  
-  		
-  	end if

nsclient/trunk/scripts/wmi/check_raw_fraction.vbs

@@ -1,856 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intWarning = 1
-Const intCritical = 2
-Const intError = 3
-Const intUnknown = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strClass
-Dim strProp
-Dim strInst
-Dim warningValue
-Dim warningValueString
-Dim criticalValue
-Dim criticalValueString
-Dim strUser
-Dim strPass
-Dim strDomain
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult
-Dim strResult1
-Dim strResult2
-Dim intReturnTemp
-Dim intReturn
-Dim strResultTemp1
-Dim strResultTemp2
-Dim strResultTemp3
-Dim strResultTemp4
-Dim intReturnTemp1
-Dim strPrefix
-Dim intValue
-Dim returnValue
-Dim strPropBase
-Dim strPropName
-Dim instanceArray()
-Dim instanceArraySize
-Dim warningArraySize
-Dim criticalArraySize
-Dim warningArray()
-Dim criticalArray()
-Dim instance
-Dim propArray()
-Dim propArraySize
-Dim lWarningValue
-Dim uWarningValue
-Dim lCriticalValue
-Dim uCriticalValue
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-Dim objWMIService, colWMI,objWMI,objSWbemLocator
-
-strComputer=""
-strClass = ""
-strProp = ""
-strInst = ""
-warningValue = -1
-criticalValue = -1
-strUser = ""
-strPass = ""
-strDomain = ""
-
-intReturnTemp1 = 0
-
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim str
-  		str="Check Raw Fraction. If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two last parameters."&vbCrlF&vbCrlF
-  		str=str&"cscript check_raw_fraction.vbs -h hostname -class classname -prop property -inst instancename [-w warning_level -c critical_level] [-user username -pass password [-domain domain]]"&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"-h [--help]                 Help."&vbCrlF
-  		str=str&"-h hostname                 Host name."&vbCrlF  
-  		str=str&"-class classname            Class name."&vbCrlF
-  		str=str&"-prop property              Property of Class."&vbCrlF  
-  		str=str&"-inst instance              Needed Instance."&vbCrlF  
-  		str=str&"-w warning_level            Warning threshold."&vbCrlF
-  		str=str&"-c critical_level           Critical threshold."&vbCrlF
-  		str=str&"-user username              Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-pass password              Password Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-domain domain              Domain Name of Remote Machine."&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"Example: cscript check_raw_fraction.vbs -h Ser1 -class Win32_PerfRawData_PerfDisk_LogicalDisk -prop PercentFreeSpace -inst ""*""  -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] " &vbCrlF
-  		str=str&"Example: cscript check_raw_fraction.vbs -h Ser1 -class Win32_PerfRawData_PerfDisk_LogicalDisk -prop PercentFreeSpace -inst ""name=C:""  -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] "
-  		wscript.echo str
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstance.
-'Descripton:        Get infomation at Local Host.
-'Input:				instance.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstance(instance)
-		
-		On Error Resume Next
-		
-		strResultTemp1 = ""
-		strResultTemp2 = ""
-		strResultTemp = ""
-		intResultTemp = 0
-
-		strInstanceTemp1 = ""
-		strInstanceTemp2 = ""
-		intInstanceTemp1 = 0
-		intInstanceTemp2 = 0
-
-		strPropBase = ""
-		strPropBase = strProp & "_Base"	
-		'Depend on strInfo parameters to get the result value
-		
-		if(instance = "*") then
-			strQuery = "Select " & strProp & ", " & strPropBase & " from " & strClass
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		else
-			intInstanceTemp1 = InStr(1,instance,"=")
-			strInstanceTemp1 = Mid(instance,1,intInstanceTemp1-1)
-			intInstanceTemp2 = Len(instance)
-			strInstanceTemp2 = Mid(instance,intInstanceTemp1+1,intInstanceTemp2-intInstanceTemp1)
-			instance=strInstanceTemp1 & "='" & strInstanceTemp2 & "'"
-
-			strQuery = "Select " & strProp & ", " & strPropBase & " from " & strClass & " where " & instance
-			Set colWMI = objWMIService.ExecQuery(strQuery)
-		end if
-		
-		count = -1
-		count = colWMI.count
-		if(count = -1) then
-			Wscript.Echo "Unknown - No data received from WMI;"
-			Wscript.Quit(intUnknown)
-		else 
-			if(colWMI.count > 0) then
-				f_FormatData(colWMI)
-				
-				strResultTemp1 = strResultTemp1 & strResultTemp3
-				strResultTemp2 = strResultTemp2 & strResultTemp4
-				intReturnTemp = intReturnTemp1
-				Exit Function
-			else
-				strResultTemp1 = "Unknown - " & instance &" query: No row returned."
-				intReturnTemp = intUnknown
-				Exit Function
-			end if
-		end if								
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefix.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefix(intValue)
-		
-		On Error Resume Next
-		
-		strPrefix = ""
-		If(warningValue <> "" And criticalValue = "") Then 
-			If (IsNumeric(warningValue)) Then 
-				If (Int(intValue) < Int(warningValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=1
-					strPrefix= "Warning - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If(warningValue = "" And criticalValue <> "") Then 
-			If (IsNumeric(criticalValue)) Then 
-				If (Int(intValue) < Int(criticalValue)) Then
-					returnValue=0
-					strPrefix= "OK - "
-				Else
-					returnValue=2
-					strPrefix= "Critical - "
-				End If 
-			Else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			End If 
-		End If 
-		If (warningValue <> "" And criticalValue <> "") Then 
-			If (IsNumeric(warningValue) And IsNumeric(criticalValue)) Then
-				if (Int(warningValue) < Int(criticalValue)) then
-		      
-		            if (Int(intValue) < Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) < Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        else
-		            if (Int(intValue) > Int(warningValue)) then
-		                returnValue=0
-		                strPrefix= "OK - "
-		            else
-		                if (Int(intValue) > Int(criticalValue)) then
-		                    returnValue=1
-		                    strPrefix= "Warning - "
-		                else
-		                    returnValue=2
-		                    strPrefix= "Critical - "
-		                end if
-		            end if
-		        end If
-	        Else
-	        	Wscript.Echo "Error! Arguments wrong, please verify -w -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-	        End If 
-        End If 
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetPrefixWithRange.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetPrefixWithRange(intValue)
-		
-        On Error Resume Next
-        lWarningValue = ""
-	    uWarningValue = ""
-	    lCriticalValue= ""
-	    uCriticalValue= ""
-	    warningReturn = 0
-	    criticalReturn = 0
-	    If(warningValue <> "") Then 
-	    	f_GetWarningValueFromRange(warningValue)
-	    End If
-	    If(criticalValue <> "") Then 
-	    	f_GetCriticalValueFromRange(criticalValue)
-	    End If
-	    strPrefix = ""
-	  	'verify warning
-	    If((lWarningValue <> "") And (uWarningValue <> "")) Then
-	    	If(Int(lWarningValue) <= Int(uWarningValue)) Then
-	  	    	If((Int(lWarningValue) >= Int(intValue)) Or (Int(intValue) >= Int(uWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uWarningValue) ) And (Int(intValue) <= Int(lWarningValue))) Then
-		        	warningReturn=1
-                End If 
-		    End If
-	    End If
-	    If((lWarningValue <> "") And (uWarningValue = "")) Then 
-	        If(Int(intValue) <= Int(lWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If 
-	    If((lWarningValue = "") And (uWarningValue <> "")) Then 
-	  	    If(Int(intValue) >= Int(uWarningValue)) Then 
-                warningReturn=1
-            End If
-	    End If
-	    
-	    'verify critical
-	    If((lCriticalValue <> "") And (uCriticalValue <> "")) Then
-	        If(Int(lCriticalValue) <= Int(uCriticalValue)) Then
-		        If((Int(lCriticalValue) >= Int(intValue)) Or (Int(intValue) >= Int(uCriticalValue))) Then
-		            criticalReturn=2
-                End If 
-		    Else
-		        If((Int(intValue) >= Int(uCriticalValue) ) And (Int(intValue) <= Int(lCriticalValue))) Then
-			        criticalReturn=2
-                End If 
-		    End If
-	    End If
-	    If((lCriticalValue <> "") And (uCriticalValue = "")) Then 
-	        If(Int(intValue) <= Int(lCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If 
-	    If((lCriticalValue = "") And (uCriticalValue <> "")) Then 
-	        If(Int(intValue) >= Int(uCriticalValue)) Then 
-                criticalReturn=2
-            End If
-	    End If
-      
-	    'return result
-	    If(criticalReturn = 2) Then 
-	        returnValue=2
-		    strPrefix= "Critical - "
-	    Else 
-	        If(warningReturn = 1) Then 
-		        returnValue=1
-		        strPrefix= "Warning - "
-		    Else
-			    returnValue=0
-		        strPrefix= "Ok - "
-		    End If
-	    End If
-
-    End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningValueFromRange(warningValue)
-		
-		On Error Resume Next
-		lWarningValue = ""
-	    uWarningValue = ""
-		temp1 = 0
-		temp1 = InStr(1, warningValue, ":")
-		if(temp1 > 0) then
-			lWarningTemp = Mid(warningValue, 1, temp1 -1)
-			uWarningTemp = Mid(warningValue, temp1 +1, len(warningValue) - temp1)
-			if(IsNumeric(lWarningTemp) or IsNumeric(uWarningTemp)) then
-				lWarningValue = lWarningTemp
-				uWarningValue = uWarningTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			Wscript.Echo "Error! Arguments wrong, please verify -w parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-		 
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetCriticalValueFromRange().
-'Descripton:        Get perform value at Local Host.
-'Input:				warningValueRange.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetCriticalValueFromRange(criticalValue)
-		
-		On Error Resume Next
-		lCriticalValue = ""
-	    uCriticalValue = ""
-		temp1 = 0
-		temp1 = InStr(1, criticalValue, ":")
-		if(temp1 > 0) then
-			lCriticalTemp = Mid(criticalValue, 1, temp1 -1)
-			uCriticalTemp = Mid(criticalValue, temp1 +1, len(criticalValue) - temp1)
-			if(IsNumeric(lCriticalTemp) or IsNumeric(uCriticalTemp)) then
-				lCriticalValue = lCriticalTemp
-				uCriticalValue = uCriticalTemp
-			else
-				Wscript.Echo "Error! Arguments wrong, please verify -c parameter"
-				Wscript.Quit(intError)
-				Exit Function
-			end if
-		else
-			WScript.Echo "Error! Arguments wrong, please verify -c parameter"
-			Wscript.Quit(intError)
-			Exit Function
-		end if
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_FormatData.
-'Descripton:        Format data the same as output.
-'Input:				service.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatData(colWMI)
-		
-		On Error Resume Next
-		
-		strDisplay1 = ""
-		strDisplay2 = ""
-		strResultTemp3 = ""
-		strResultTemp4 = ""
-		
-		For Each objWMI in colWMI
-			strName = objWMI.Name
-			strPropName = objWMI.Properties_(strProp).Name
-			intValueRaw = objWMI.Properties_(strProp)
-			intValueBase = objWMI.Properties_(strPropBase)
-			intValue = Int((100 * intValueRaw)/intValueBase)
-			Dim strDSName
-			strDSName = f_FormatDSName(strName)
-			
-			if((warningValue <> "") and (criticalValue <> "")) then
-				strDisplay1 = strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strDisplay2 =  "'" &strDSName  & "'" & "=" & intValue & ";" & warningValue & ";" & criticalValue & ";; "
-				If(InStr(1, warningValue, ":") > 0 Or InStr(1, criticalValue, ":") > 0) Then
-					f_GetPrefixWithRange(intValue)
-				Else 
-				    f_GetPrefix(intValue)
-				End If
-				strResultTemp3 = strResultTemp3 & strPrefix & strDisplay1
-				strResultTemp4 = strResultTemp4 & strDisplay2
-				if( intReturnTemp1 < returnValue) then
-					intReturnTemp1 = returnValue
-				end if
-			else
-				strResultTemp3 = strResultTemp3 & "OK - " & strName & " '" & strPropName & "'" & " = " & intValue & "; "
-				strResultTemp4 = ""
-			end if
-		Next 
-							
-	End Function	
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_FormatDSName.
-'Descripton:        Get infomation at Local Host.
-'Input:				strName.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_FormatDSName(strName)
-			
-		On Error Resume Next
-		
-		first = 1
-		position1 = 0
-		
-		position1 = InStr(first, strName, "=")
-		Dim proc_name
-		proc_name = ""
-		If(position1 > 0) Then 
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-			
-		Else
-			proc_name = Mid(strName,position1+1,(Len(strName)-position1))
-			proc_name = Replace(proc_name,".","_")
-			proc_name = Replace(proc_name,"-","_")
-			proc_name = Mid(proc_name,1, 19)
-			
-		End If 
-		f_FormatDSName = proc_name
-		Exit Function
-	End Function
-                        
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInformation.
-'Descripton:        Get information data.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInformation()
-        
-        On Error Resume Next
-        
-        strResult = ""
-        strResult1 = ""
-        strResult2 = ""
-		intReturn = 0
-		
-        If(instanceArraySize > 0 and (warningArraySize > 1 Or criticalArraySize > 1)) Then
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				warningValue = warningArray(i)
-				criticalValue = criticalArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        Else
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				f_GetInstance(instance)
-				strResult1 = strResult1 & strResultTemp1
-				strResult2 = strResult2 & strResultTemp2
-		      	if intReturn < intReturnTemp then
-		      		intReturn = intReturnTemp
-		      	end if
-			Next
-        end if
-        if(strResult2 = "") then
-        	strResult = strResult1
-        else
-        strResult = strResult1 & "|" & strResult2
-        end if
-        Wscript.Echo strResult
-		Wscript.Quit(intReturn)
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstances.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstances()
-		
-		On Error Resume Next
-		
-		first = 1
-		position = 0
-		instanceArraySize = 0
-		
-    	position = InStr(first, strInst, ",")
-    	if (position = 0) then
-    		instanceTemp = strInst
-    		InstanceArraySize = 1
-    		ReDim instanceArray(instanceArraySize)
-    		instanceArray(0) = instanceTemp
-    		
-    	else
-            do while (position > 0)
-                instanceTemp = Mid(strInst,first,position - first)
-                instanceArraySize = instanceArraySize + 1
-                ReDim Preserve instanceArray(instanceArraySize)
-                instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-                first = position + 1
-                position = InStr(first, strInst, ",")
-            loop
-            instanceTemp = Mid(strInst,first,len(strInst))
-            instanceArraySize = instanceArraySize + 1
-            ReDim Preserve instanceArray(instanceArraySize)
-            instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-        end if  
-
-	End Function			
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetWarningCriticalValues.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetWarningCriticalValues()
-		
-		On Error Resume Next
-		
-		position1 = 0
-		position2 = 0
-		position3 = 0
-		position4 = 0
-		temp1 = 1
-		temp2 = 1
-		warningArraySize = 0
-		criticalArraySize = 0
-		
-		'get warning
-    	position2 = InStr(temp1, warningValueString, ",")
-    	If(position2 = 0) then
-			position2 = Len(warningValueString)+1
-	    end if
-	    
-	    If(position2 > position1) then
-		    do while (position2 > position1)
-		        warningPair = Mid(warningValueString, position1 + 1, (position2 - position1 -1))
-		        warningArraySize = warningArraySize + 1
-			    ReDim Preserve warningArray(warningArraySize)
-			    warningArray(warningArraySize -1) = Trim(warningPair)
-			    temp1 = position2 + 1
-		        position1 = position2
-	    	    position2 = InStr(temp1, warningValueString, ",")
-			    If(position2 = 0) then
-			        position2 = Len(warningValueString)+1
-			    End If
-		    loop
-	    end If
-	    
-	    If(Int(warningArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve warningArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - warningArraySize - 1)
-	            warningArray(warningArraySize +i) = warningArray(warningArraySize-1)
-	        Next
-	        warningArraySize = instanceArraySize
-	    End If
-	    'get critical
-	    position4 = InStr(temp2, criticalValueString, ",")
-    	If(position4 = 0) then
-			position4 = Len(criticalValueString)+1
-	    end if
-	    
-	    If(position4 > position3) then
-		    do while (position4 > position3)
-		        criticalPair = Mid(criticalValueString, position3 + 1, (position4 - position3 -1))
-		        criticalArraySize = criticalArraySize + 1
-			    ReDim Preserve criticalArray(criticalArraySize)
-			    criticalArray(criticalArraySize -1) = Trim(criticalPair)
-			    temp2 = position4 + 1
-		        position3 = position4
-	    	    position4 = InStr(temp2, criticalValueString, ",")
-			    If(position4 = 0) then
-			        position4 = Len(criticalValueString)+1
-			    End If
-		    loop
-	    End If
-	    If(Int(criticalArraySize) < Int(instanceArraySize)) Then 
-	        ReDim Preserve criticalArray(instanceArraySize)
-	        For i = 0 To (instanceArraySize - criticalArraySize - 1)
-	            criticalArray(criticalArraySize +i) = criticalArray(criticalArraySize-1)
-	        Next
-	        criticalArraySize = instanceArraySize
-	    End If
-	    
-	End Function
-			
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		
-		'Set colInstances = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\" & strNameSpace).InstancesOf(strClass)
-		'For Each objInstance in colInstances
-		'Next
-		'f_Error()        
-        
-        f_GetInformation()	
-
-	End Function
-		    
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		        
-        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-		if (strDomain = "") then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		else
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass,"MS_409","ntlmdomain:" & strDomain ).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		end if
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		
-        f_GetInformation()
-
-	End Function
-	
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="check_counter_rawcount.vbs"
-		strDescription="Enumerate the needed windows host information."
-
-		                        '/////////////////////
-											
-		strNameSpace = 	"root\cimv2"
-		
-	f_GetAllArg()
-	tempCount = argcountcommand/2
-	f_Error()
-	strClass = ""
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if( ((argcountcommand Mod 2) = 0) and (3 < tempCount < 10)) then
-  			strComputer = f_GetOneArg("-h")
-  			strClass = f_GetOneArg("-class")
-  			strProp = f_GetOneArg("-prop")
-  			strInst = f_GetOneArg("-inst")
-  			f_GetInstances()
-  			warningValue = f_GetOneArg("-w")
-			warningValueString = f_GetOneArg("-w")
-  			criticalValue = f_GetOneArg("-c")
-			criticalValueString = f_GetOneArg("-c")
-			If((warningValueString <> "") Or (criticalValueString <> "")) Then 
-  				f_GetWarningCriticalValues()
-  			End if
-  			strUser = f_GetOneArg("-user")
-  			strPass = f_GetOneArg("-pass")
-  			strDomain = f_GetOneArg("-domain")
-  			if((strComputer = "") or (strClass = "") or (strProp = "") or (strInst = "")) then
-  				Wscript.Echo "Error! Arguments wrong, require verify -h -class -prop -inst parameters"
-  				Wscript.Quit(intError)
-  			else
-  				Select Case tempCount
-	  				Case 4:
-	  					f_LocalPerfValue()
-	  				Case 6:
-	  					if ((warningValue <> "") and (criticalValue <> "")) then
-	  						f_LocalPerfValue()
-	  					end if	
-	  					if ((strUser <> "") and (strPass <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass or -w -c parameters"
-	  						Wscript.Quit(intError)	
-	  					end if
-	  				Case 8:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case 9:
-	  					if ((strUser <> "") and (strPass <> "") and (warningValue <> "") and (criticalValue <> "") and (strDomain <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass -domain parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case Else
-	  					Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-	  					Wscript.Quit(intError)
-  				End Select
-  						
-  			end if
-  		else
-  			Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-  			Wscript.Quit(intError)
-  		end if  
-  		
-  	end if

nsclient/trunk/scripts/wmi/check_services_states.vbs

@@ -1,468 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intWarning = 1
-Const intCritical = 2
-Const intError = 3
-Const intUnknown = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strClass
-Dim strProp
-Dim strInst
-Dim warningValue
-Dim criticalValue
-Dim strUser
-Dim strPass
-Dim strDomain
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult1
-Dim strResult2
-Dim intReturnTemp
-Dim intReturn
-Dim strPrefix
-Dim intValue
-Dim returnValue
-Dim instance
-Dim instanceArray()
-Dim instanceArraySize
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-Dim objWMIService, colWMI,objWMI,objSWbemLocator
-
-strComputer=""
-strClass = ""
-strProp = ""
-strInst = ""
-strUser = ""
-strPass = ""
-strDomain = ""
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		if (err.number <>0 ) then
-			if err.number = -2147023174 then
-				Wscript.echo "Critical - Timeout connecting to WMI on this host! Error Number: " & err.number & " Description: " & err.Description
-				WScript.Quit(intCritical)
-			else
-				if err.number = -2147024891 then
-					Wscript.echo "Authentication failure to remote host! Error Number: " & err.number & " Description: " & err.description
-				else
-					if err.number = 462 then
-						Wscript.echo "Critical - Timeout connecting to WMI on this host! Error Number: " & err.number & " Description: " & err.Description
-						WScript.Quit(intCritical)
-					else 
-						if err.number=-2147217392 then
-							Wscript.echo "Error! Error Number: -2147217392 Description: Invalid Class"
-						else	 
-							Wscript.echo "Error! Error Number: " & err.number & " Description: " & err.description 
-						end if	
-					end if
-				end if
-			end if
-			Wscript.Quit(intError)
-		end if
-				
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim str
-  		str="Check State of a Service. If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two last parameters."&vbCrlF&vbCrlF
-  		str=str&"cscript check_services_states.vbs -h hostname -inst instancename [-user username -pass password [-domain domain]]"&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"-h [--help]                 Help."&vbCrlF
-  		str=str&"-h hostname                 Host name."&vbCrlF  
-  		str=str&"-inst instance              Needed Instance."&vbCrlF  
-  		str=str&"-user username              Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-pass password              Password Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-domain domain              Domain Name of Remote Machine."&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"Note: information can be one or multiple services, or *." & vbCrlF
-  		str=str&"And if get multiple services, the information must be enclosed in multiple quotes and separate by commas." & vbCrlF
-  		str=str&"Example: cscript check_services_states.vbs -h Ser1 -inst ""WINS,wmi"" [-user SER1\Administrator -pass password] " & vbCrlF 
-  		wscript.echo str
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneInstance.
-'Descripton:        Get infomation at Local Host.
-'Input:				instance.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneInstance()
-		
-		On Error Resume Next
-		
-		if(instance = "*") then
-			for Each objWMI In colWMI
-				strOut = strOut & objWMI.Name & ": " & objWMI.State & "; "
-			next
-			strResultTemp = strOut
-			Wscript.Echo strResultTemp
-			Wscript.Quit(intOk)
-			Exit Function
-		else
-			for Each objWMI In colWMI
-				if(Ucase(instance) = Ucase(objWMI.Name)) then
-					startMode=objWMI.StartMode
-					if((startMode = "Disabled") or (startMode = "Manual")) then
-						Wscript.Echo "OK - " & objWMI.Name & ": " & objWMI.State & " and " & startMode
-						Wscript.Quit(intOk)
-						Exit Function
-					else
-						if(objWMI.State = "Running") then
-							Wscript.Echo "OK - " & objWMI.Name & ": " & objWMI.State
-							Wscript.Quit(intOk)
-							Exit Function
-						else
-							Wscript.Echo "Critical - " & objWMI.Name & ": " & objWMI.State
-							Wscript.Quit(intCritical)
-							Exit Function
-						end if
-					end if
-				end if
-			next
-			Wscript.Echo "Unknown - " & instance & ": not installed"
-			Wscript.Quit(intUnknown)
-			Exit Function
-		end if
-										
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetMultiInstance.
-'Descripton:        Get infomation at Local Host.
-'Input:				instance.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetMultiInstance()
-		
-		On Error Resume Next
-		
-		strResultTemp = ""
-		intResultTemp = 0
-		
-		for Each objWMI In colWMI
-			if(Ucase(instance) = Ucase(objWMI.Name)) then
-				startMode=objWMI.StartMode
-				if((startMode = "Disabled") or (startMode = "Manual")) then
-					strResultTemp = "OK - " & objWMI.Name & ": " & objWMI.State & " and " & startMode
-					intReturnTemp = intOk
-					Exit Function
-				else
-					if(objWMI.State = "Running" ) then
-						strResultTemp = "OK - " & objWMI.Name & ": " & objWMI.State
-						intReturnTemp = intOk
-						Exit Function
-					else
-						strResultTemp = "Critical - " & objWMI.Name & ": " & objWMI.State
-						intReturnTemp = intCritical
-						Exit Function
-					end if
-				end if
-			end if
-		next
-		strResultTemp = "Unknown - " & instance & ": not installed"
-		intReturnTemp = intUnknown
-		Exit Function
-												
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_ExecQuery.
-'Descripton:        Execute query.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_ExecQuery()
-		
-		On Error Resume Next
-		
-		strQuery = "Select "  & strProp & " from " & strClass
-		Set colWMI = objWMIService.ExecQuery(strQuery)
-		
-		count = -1
-		count = colWMI.count
-		if(count = -1) then
-			Wscript.Echo "Error! Invalid " & strProp & " property."
-			Wscript.Quit(intError)
-		end if
-				
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInstances.
-'Descripton:        Get Prefix.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInstances()
-		
-		On Error Resume Next
-		
-		first = 1
-		position = 0
-		instanceArraySize = 0
-		
-    	position = InStr(first, strInst, ",")
-    	if (position = 0) then
-    		instanceTemp = strInst
-    		InstanceArraySize = 1
-    		ReDim instanceArray(instanceArraySize)
-    		instanceArray(0) = instanceTemp
-    		
-    	else
-          do while (position > 0)
-            instanceTemp = Mid(strInst,first,position - first)
-            instanceArraySize = instanceArraySize + 1
-            ReDim Preserve instanceArray(instanceArraySize)
-            instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-            first = position + 1
-            position = InStr(first, strInst, ",")
-          loop
-          instanceTemp = Mid(strInst,first,len(strInst))
-          instanceArraySize = instanceArraySize + 1
-          ReDim Preserve instanceArray(instanceArraySize)
-          instanceArray(instanceArraySize -1) = Trim(instanceTemp)
-        end if  
-
-	End Function			
-        
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInformation.
-'Descripton:        Get information data.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInformation()
-        
-        On Error Resume Next
-        
-        strResult1 = ""
-        strResult2 = ""
-		intReturn = 0
-		if(instanceArraySize = 1) then
-			instance = instanceArray(0)
-			f_GetOneInstance()
-		else
-        	for i  = 0 to instanceArraySize -1
-				instance = instanceArray(i)
-				f_GetMultiInstance()
-				if intReturn < intReturnTemp then
-			    	intReturn = intReturnTemp
-			    end if
-			    if(intReturnTemp > 0) then
-			    	strResult2 = strResult2 & strResultTemp & "; "
-			    else
-			    	strResult1 = strResult1 & strResultTemp & "; "
-			    end if
-		    next
-			Wscript.Echo strResult2 & strResult1
-			Wscript.Quit(intReturn)
-        end if
-        
-	End Function
-	
-			
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		
-		'Set colInstances = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\" & strNameSpace).InstancesOf(strClass)
-		'For Each objInstance in colInstances
-		'Next
-		'f_Error()        
-        f_ExecQuery()
-        f_GetInstances()
-        f_GetInformation()	
-
-	End Function
-		    
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		        
-        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-		if (strDomain = "") then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		else
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-			
-			'Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass,"MS_409","ntlmdomain:" & strDomain ).InstancesOf(strClass)
-			'For Each objInstance in colInstances
-			'Next
-			'f_Error()
-		end if
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		f_ExecQuery()
-		f_GetInstances()
-        f_GetInformation()
-
-	End Function
-	
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="check_services_states.vbs"
-		strDescription="Check state of one or multi services."
-
-		                        '/////////////////////
-											
-		strNameSpace = 	"root\cimv2"
-		strClass = "Win32_Service"
-		strProp = "Name, State, StartMode"	
-	f_GetAllArg()
-	tempCount = argcountcommand/2
-	f_Error()
-	
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if( ((argcountcommand Mod 2) = 0) and (1 < tempCount < 6)) then
-  			strComputer = f_GetOneArg("-h")
-  			strInst = f_GetOneArg("-inst")
-  			strUser = f_GetOneArg("-user")
-  			strPass = f_GetOneArg("-pass")
-  			strDomain = f_GetOneArg("-domain")
-  			if((strComputer = "") or (strInst = "")) then
-  				Wscript.Echo "Error! Arguments wrong, require verify -h -inst parameters"
-  				Wscript.Quit(intError)
-  			else
-  				Select Case tempCount
-	  				Case 2:
-	  					f_LocalPerfValue()
-	  				Case 4:
-	  					if ((strUser <> "") and (strPass <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass parameters"
-	  						Wscript.Quit(intError)	
-	  					end if
-	  				Case 5:
-	  					if ((strUser <> "") and (strPass <> "") and (strDomain <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong for remote check, please verify -w -c -user -pass -domain parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case Else
-	  					Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-	  					Wscript.Quit(intError)
-  				End Select
-  						
-  			end if
-  		else
-  			Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-  			Wscript.Quit(intError)
-  		end if  
-  		
-  	end if

nsclient/trunk/scripts/wmi/get_computer_info.vbs

@@ -1,604 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intUnknown = 3
-Const intError = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strUser
-Dim strPass
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-strInfo=""
-
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim strHelp
-		
-		
-		Dim i
-		Dim strtemp1
-		Dim strtemp2
-		Dim strtemp3
-		
-		strHelp=""
-		
-		strtemp1=""
-		strtemp2=""
-		strtemp3=""
-
-		for i=1 to ArgCount
-			strtemp1=strtemp1 & " " & strArgMain(i) & " " & strArgSortDes(i)
-			strtemp2=strtemp2 & strArgMain(i) & " " & strArgSortDes(i) & "	" & strArgDetailDes(i) & "." & vbCrlF
-			strtemp3=strtemp3 & " " & strArgMain(i) & " " & strArgExample(i)
-		next
-		
-								'/////////////////////		
-		
-  		strHelp=strHelp & strDescription & " If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two (three) last parameters."&vbCrlF&vbCrlF
-  		strHelp=strHelp & "cscript " & strCommandName & strtemp1 & " [-user username -pass password -domain domain]"
-  		strHelp=strHelp & vbCrlF
-  		strHelp=strHelp & strtemp2  		
-    	      strHelp=strHelp & "-user username		Account Administrator on Remote Machine." & vbCrlF
-  		strHelp=strHelp & "-pass password		Password Account Administrator on Remote Machine." & vbCrlF
-  		strHelp=strHelp & "-domain domain		Domain Name on Remote Machine." & vbCrlF
-  		strHelp=strHelp & vbCrlF  		
-  		strHelp=strHelp & "Example: cscript " & strCommandName & strtemp3 & " [-user Ser1\Administrator -pass password -domain workgroup]." & vbCrlF
-  		strHelp=strHelp & vbCrlF
-  		strHelp=strHelp & "For Help Command: cscript " & strCommandName & " -h (or --help)." & vbCrlF
-  		strHelp=strHelp & vbCrlF
-  		strHelp=strHelp & "Note: information can be one or multiple of network_interfaces, logical_disks, installed_services, running_processes, all_processors or *." & vbCrlF
-  		strHelp=strHelp & "And if get multiple infomation, the information must be enclosed in multiple quotes and separate by commas." & vbCrlF
-  		strHelp=strHelp & "Example: cscript get_computer_info.vbs -h Ser1 -i ""network_interfaces,logical_disks,install_services"" [-user SER1\Administrator -pass password] " & vbCrlF 
-  		Wscript.echo strHelp
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_TestLocalCommand.
-'Descripton:        Test structure of command run at local host.
-'Input:				No.
-'Output:			Yes.
-'-------------------------------------------------------------------------------------------------
-	Function f_TestLocalCommand()
-
-		On Error Resume Next
-		
-		Dim i,j
-		Dim temp
-		Dim count
-		Dim check(10)
-		
-		count=0
-		
-		for j=1 to ArgCount
-			check(j)=0
-		next
-
-		if (argcountcommand<>ArgCount*2) then
-			f_TestLocalCommand=0
-		else
-			for i=0 to argcountcommand-1
-				if (i mod 2=0) then
-					temp=UCase(arg(i))
-					for j=1 to ArgCount
-						if (temp=UCase(strArgMain)) and (check(j)=0) then
-							check(j)=1
-							count=count+1
-							j=ArgCount
-						end if
-					next
-				end if
-			next
-			if count=ArgCount then
-				f_TestLocalCommand=1
-			else
-				f_TestLocalCommand=0
-			end if
-		end if
-
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_TestRemoteCommand.
-'Descripton:        Test structure of command run at remote host.
-'Input:				No.
-'Output:			Yes.
-'-------------------------------------------------------------------------------------------------
-	Function f_TestRemoteCommand()
-
-		On Error Resume Next
-		
-		Dim i,j
-		Dim temp
-		Dim count
-		Dim check(10)
-		Dim extra(5)
-		
-		count=0
-		
-		for j=1 to ArgCount
-			check(j)=0
-		next
-		
-		for j=1 to 3
-			extra(j)=0
-		next
-
-
-		if (argcountcommand=(ArgCount+2)*2) or (argcountcommand=(ArgCount+3)*2) then
-			for i=0 to argcountcommand-1
-				if (i mod 2=0) then
-					temp=UCase(arg(i))
-					if (temp="-USER" and extra(1)=0) then
-						extra(1)=1
-						count=count+1
-					else
-						if (temp="-PASS" and extra(2)=0) then
-							extra(2)=1
-							count=count+1
-						else
-							if (temp="-DOMAIN" and extra(3)=0) then
-								extra(3)=1
-								count=count+1
-							else					
-								for j=1 to ArgCount
-									if (temp=UCase(strArgMain)) and (check(j)=0) then
-										check(j)=1
-										count=count+1
-										j=ArgCount
-									end if
-								next
-							end if
-						end if
-					end if
-				end if
-			next
-			if (count*2=argcountcommand) then
-				f_TestRemoteCommand=1
-			else
-				f_TestRemoteCommand=0
-			end if
-		
-		else
-		  	f_TestremoteCommand=0
-		end if
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalInfo.
-'Descripton:        Get infomation at Local Host.
-'Input:				info.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalInfo(info)
-		
-		On Error Resume Next
-		
-		Dim objWMIService, colWMI,objWMI
-		strResultTemp = ""
-		strOut = ""
-		strPerfdata = ""
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		'Depend on strInfo parameters to get the result value
-		if(info = "*") then
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
-			for Each objWMI In colWMI
-				strOut = strOut & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
-			for Each objWMI In colWMI
-				strOut1 = strOut1 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
-			for Each objWMI In colWMI
-				strOut2 = strOut2 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
-			for Each objWMI In colWMI
-				strOut3 = strOut3 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
-			for Each objWMI In colWMI
-				strOut4 = strOut4 & objWMI.Name & ", "
-			next
-			strResultTemp = "; Network Interfaces: " & strOut & "; Logical Disks: " & strOut1 &_
-							"; Installed services: " & strOut2 & "; Running Processes: " & strOut3 &_
-							"; All Processors: " & strOut4
-			Exit Function
-		end if
-		
-		if(info = "network_interfaces") then
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
-			for Each objWMI In colWMI
-				strOut = strOut & objWMI.Name & ", "
-			 	strPerfdata = strPerfdata & "'net_sent_" & objWMI.Name & "'=" & objWMI.BytesSentPerSec & " " & "'net_recv_" & objWMI.Name & "'=" & objWMI.BytesReceivedPerSec & " "
-			next
-			strResultTemp = "; Network Interfaces: " & strOut & "  |  " & strPerfdata
-			Exit Function
-		else 
-			if(info = "logical_disks") then
-				Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk")
-				for Each objWMI In colWMI
-					strOut = strOut & objWMI.Name & ", "
-				 	strPerfdata = strPerfdata & "'disk_read_" & objWMI.Name & "'=" & objWMI.DiskReadBytesPerSec & " " & "'disk_write_" & objWMI.Name & "'=" & objWMI.DiskWriteBytesPerSec & " " & "'disk_queue_" & objWMI.Name & "'=" & objWMI.CurrentDiskQueueLength & " "    & "'disk_reads_" & objWMI.Name & "'=" & objWMI.DiskReadsPerSec & " "    & "'disk_writes_" & objWMI.Name & "'=" & objWMI.DiskWritesPerSec & " "
-				next
-				strResultTemp = "; Logical Disks: " & strOut & "  |  " & strPerfdata
-				Exit Function
-			else 
-				if(info = "installed_services") then
-					Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
-					for Each objWMI In colWMI
-						strOut = strOut & objWMI.Name  & ", "
-					next
-					strResultTemp = "; Installed Services: " & strOut
-					Exit Function
-				else 
-					if(info = "running_processes") then
-						Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
-						for Each objWMI In colWMI
-							strOut = strOut & objWMI.Name & ", "
-						next
-						strResultTemp = "; Running Processes: " & strOut
-						Exit Function
-					else 
-						if(info = "all_processors") then
-							Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
-							for Each objWMI In colWMI
-								strOut = strOut & objWMI.Name & ", "
-							next
-							strResultTemp = "; All Processors: " & strOut
-							Exit Function
-						else
-							f_Error()
-				  			Wscript.echo "Error! Arguments are wrong."
-				  			Wscript.Quit(3)
-						end if
-					end if
-				end if
-			end if
-		end if
-							
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemoteInfo.
-'Descripton:        Get infomation at Remote Host.
-'Input:				info.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemoteInfo(info)
-		
-		On Error Resume Next
-		
-		Dim objWMIService, colWMI,objWMI,objSWbemLocator
-		Dim strDomain
-		strResultTemp = ""
-		strOut = ""
-		
-		Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-
-		if ((ArgCount+2)*2=ArgCountCommand) then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-		else
-			strDomain=f_GetOneArg("-domain")
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-		end if
-		
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		'Depend on strInfo parameters to get the result value
-		if(info = "*") then
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
-			for Each objWMI In colWMI
-				strOut = strOut & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
-			for Each objWMI In colWMI
-				strOut1 = strOut1 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
-			for Each objWMI In colWMI
-				strOut2 = strOut2 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
-			for Each objWMI In colWMI
-				strOut3 = strOut3 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
-			for Each objWMI In colWMI
-				strOut4 = strOut4 & objWMI.Name & ", "
-			next
-			strResultTemp = "; Network Interfaces: " & strOut & "; Logical Disks: " & strOut1 &_
-							"; Installed services: " & strOut2 & "; Running Processes: " & strOut3 &_
-							"; All Processors: " & strOut4
-			Exit Function
-		end if
-		
-		if(info = "network_interfaces") then
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
-			for Each objWMI In colWMI
-				strOut = strOut & objWMI.Name & ", "
-			next
-			strResultTemp = "; Network Interfaces: " & strOut
-			Exit Function
-		else 
-			if(info = "logical_disks") then
-				Set colWMI = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
-				for Each objWMI In colWMI
-					strOut = strOut & objWMI.Name & ", "
-				next
-				strResultTemp = "; Logical Disks: " & strOut
-				Exit Function
-			else 
-				if(info = "installed_services") then
-					Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
-					for Each objWMI In colWMI
-						strOut = strOut & objWMI.Name  & ", "
-					next
-					strResultTemp = "; Installed Services: " & strOut
-					Exit Function
-				else 
-					if(info = "running_processes") then
-						Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
-						for Each objWMI In colWMI
-							strOut = strOut & objWMI.Name & ", "
-						next
-						strResultTemp = "; Running Processes: " & strOut
-						Exit Function
-					else 
-						if(info = "all_processors") then
-							Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
-							for Each objWMI In colWMI
-								strOut = strOut & objWMI.Name & ", "
-							next
-							strResultTemp = "; All Processors: " & strOut
-							Exit Function
-						else
-							f_Error()
-				  			Wscript.echo "Error! Arguments are wrong."
-				  			Wscript.Quit(3)
-						end if
-					end if
-				end if
-			end if
-		end if
-							
-	End Function
-			
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		strResult = ""
-		info = strInfo
-		'sProcess = arg(3)
-        first=1
-        tam1=10
-        if (len(strInfo)>0) then
-          do while (tam1>0)
-            tam1=InStr(first,strInfo,",")
-            if (tam1>0) then
-              tam2=Mid(strInfo,first,tam1-first)
-              first=tam1+1
-              info = tam2
-	      f_LocalInfo(Trim(info))
-	      strResult = strResult & strResultTemp
-  	    end if
-          Loop
-          tam2=Mid(strInfo,first,len(strInfo))
-          info = tam2
-          f_LocalInfo(Trim(info))
-	      strResult = strResult & strResultTemp
-		end if
-		strResult = "Host name: " & strComputer & strResult 
-		Wscript.Echo strResult
-		Wscript.Quit(intOK)
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		
-		strResult = ""
-		info = strInfo
-		first=1
-        tam1=10
-        if (len(strInfo)>0) then
-          do while (tam1>0)
-            tam1=InStr(first,strInfo,",")
-            if (tam1>0) then
-              tam2=Mid(strInfo,first,tam1-first)
-              first=tam1+1
-              info = tam2
-	      f_RemoteInfo(Trim(info))
-	      strResult = strResult & strResultTemp
-  	    end if
-          Loop
-          tam2=Mid(strInfo,first,len(strInfo))
-          info = tam2
-          f_RemoteInfo(Trim(info))
-	      strResult = strResult & strResultTemp
-		end if
-		strResult = "Host name: " & strComputer & strResult 
-		Wscript.Echo strResult
-		Wscript.Quit(intOK)
-
-	End Function
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="get_computer_info.vbs"
-		strDescription="Enumerate the needed windows host information."
-
-		                        '/////////////////////
-		
-		ArgCount=2
-		
-		strArgMain(1)=			"-h"
-		strArgSortDes(1)=		"hostname"
-		strArgDetailDes(1)=		"	Host name"
-		strArgExample(1)=		"Ser1"
-		
-		strArgMain(2)=			"-i"
-		strArgSortDes(2)=		"information"
-		strArgDetailDes(2)=		"	The needed information"
-		strArgExample(2)=		"installed_services"
-										
-		strNameSpace = 	"root\cimv2"
-		
-	f_GetAllArg()
-	f_Error()
-
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if (f_TestLocalCommand()) then
-  			strComputer=f_GetOneArg("-h")
-  			if(strComputer = "localhost") then
-  				strComputer = "."
-  				Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
-				Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
-				For Each objItem in colItems
-					strComputer = objItem.DNSHostName
-				Next
-			end if	
-			strInfo=f_GetOneArg("-i")
-			f_LocalPerfValue()
-  			f_Error()
-  		else
-  			if (f_TestRemoteCommand()) then
-  				strComputer=f_GetOneArg("-h")
-				strInfo=f_GetOneArg("-i")
-				strUser=f_GetOneArg("-user")
-				strPass=f_GetOneArg("-pass")
-				f_RemotePerfValue()
-  				f_Error()
-  			else
-  				f_Error()
-  				Wscript.echo "Error! Arguments are wrong."
-  				Wscript.Quit(intError)
-  			end if
-  		end if
-  	end if

nsclient/trunk/scripts/wmi/get_counter_type.vbs

@@ -1,141 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intCritical = 2
-Const intError = 3
-Const intUnknown = 3
-
-Dim arg(20)
-i = 0
-strComputer = "."
-strNamespace = "root\cimv2"
-strClass="Win32_Service"
-strProperty = ""
-strUser = ""
-strPass = ""
-
-strNameList = ""
-countertypeFound = 0
-
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-
-
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-On Error Resume Next
-For i=0 to WScript.Arguments.Count-1
-  arg(i)=WScript.Arguments( i )
-Next
-
-
-if (i=3) then
-  strComputer=arg(0)
-  strClass=arg(1)
-  strProperty=arg(2)
-else 
-  if (i=5) then
-    strComputer=arg(0)
-    strClass=arg(1)
-    strProperty=arg(2)
-    strUser=arg(3)
-    strPass=arg(4)
-  else
-    if (i=2) then
-      strComputer=arg(0)
-      strClass=arg(1)
-    else
-      if (i=4) then
-        strComputer=arg(0)
-        strClass=arg(1)
-        strUser=arg(2)
-        strPass=arg(3)
-      else
-        wscript.echo "Usage: get_counter_type.vbs <hostname> <class> [<property>] [<user> <password>]"
-        wscript.quit(3)
-      end if
-    end if
-  end if
-end if
-
-
-if (strUser <> "") then
-  Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")	
-  Set objWMIService = objSWbemLocator.ConnectServer _
-    (strComputer, strNamespace , strUser, strPass )
-  f_Error()
-  Set objClass = objWMIService.Get(strClass)
-  f_Error()
-else
-  set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNamespace)
-  f_Error()
-  set objClass = GetObject("winmgmts:\\" & strComputer & "\" & strNamespace & ":" & strClass)
-end if
-f_Error()
-
-For Each objClassProperty In objClass.Properties_
-      If (strProperty<>"") Then
-        If objClassProperty.Name = strProperty Then
-        	For Each objQualifier in ObjClassProperty.Qualifiers_
-            	If objQualifier.Name = "countertype" Then
-				countertypeFound = 1
-				wscript.echo "Property " & objClassProperty.Name & " countertype = " & objQualifier.Value
-      	      End If
-        	Next
-	  End If
-      Else
-		strNameList = strNameList & objClassProperty.Name & " "
-      End If
-Next
-
-if (strProperty="") then
-  wscript.echo strNameList
-else
-  if (countertypeFound=0) then
-    wscript.echo "Property " & strProperty & " does not have a defined countertype."
-  end if
-end if

nsclient/trunk/scripts/wmi/get_diskio.vbs

@@ -1,53 +0,0 @@
-' Copyright 2010 Opin Kerfi ehf ok.is.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Pall Sigurdsson <palli at opensource.is>
-
-'*************************************************************************************************
-strComputer = "."
-Set objWMIService = GetObject("winmgmts:" _
-    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
-set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
-Set colDisks = objRefresher.AddEnum _
-    (objWMIService, "win32_perfformatteddata_perfdisk_logicaldisk"). _
-        objectSet
-objRefresher.Refresh
-strOut = "Logical Disks: "
-strPerfdata = " | "
-'Shii.... I sure hope nobody is going to see how ugly this is
-num_disks = 0
-For Each objDisk in colDisks
-	num_disks = num_disks + 1
-Next
-
-    For Each objDisk in colDisks
-        objRefresher.Refresh
-        strOut = strOut & " " & objDisk.Name & " "
-        strPerfdata = strPerfData & " 'ReadBytesPerSec_" & objDisk.Name & "'=" & objDisk.DiskReadBytesPerSec
-        strPerfdata = strPerfData & " 'WriteBytesPerSec_" & objDisk.Name & "'=" & objDisk.DiskWriteBytesPerSec
-        strPerfdata = strPerfData & " 'ReadsPerSec_" & objDisk.Name & "'=" & objDisk.DiskReadsPerSec
-        strPerfdata = strPerfData & " 'WritesPerSec_" & objDisk.Name & "'=" & objDisk.DiskWritesPerSec
-	if num_disks < 4 Then
-        strPerfdata = strPerfData & " 'PercentDiskReadTime_" & objDisk.Name & "'=" & objDisk.PercentDiskReadTime
-        strPerfdata = strPerfData & " 'SplitIOPerSec_" & objDisk.Name & "'=" & objDisk.SplitIOPerSec
-        strPerfdata = strPerfData & " 'PercentDiskTime_" & objDisk.Name & "'=" & objDisk.PercentDiskTime
-        strPerfdata = strPerfData & " 'AvgDiskBytesPerTransfer_" & objDisk.Name & "'=" & objDisk.AvgDiskBytesPerTransfer
-	End If
-	if num_disks < 6 Then
-        strPerfdata = strPerfData & " 'AvgDiskQueueLength_" & objDisk.Name & "'=" & objDisk.AvgDiskQueueLength
-	End If	  
-
-    Next
-Wscript.Echo strOut & strPerfdata
-
-

nsclient/trunk/scripts/wmi/get_netio.vbs

@@ -1,35 +0,0 @@
-' Copyright 2010 Opin Kerfi ehf ok.is.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Pall Sigurdsson <palli at opensource.is>
-
-'*************************************************************************************************
-strComputer = "."
-Set objWMIService = GetObject("winmgmts:" _
-    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
-set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
-Set colDisks = objRefresher.AddEnum _
-    (objWMIService, "Win32_PerfRawData_Tcpip_NetworkInterface"). _
-        objectSet
-objRefresher.Refresh
-strOut = "Network Interfaces: "
-strPerfdata = " | "
-    For Each objDisk in colDisks
-        objRefresher.Refresh
-        strOut = strOut & " " & objDisk.Name & " "
-        strPerfdata = strPerfData & " 'net_sent_" & objDisk.Name & "'=" & objDisk.BytesSentPerSec 
-        strPerfdata = strPerfData & " 'net_recv_" & objDisk.Name & "'=" & objDisk.BytesReceivedPerSec 
-    Next
-Wscript.Echo strOut & strPerfdata
-
-

nsclient/trunk/scripts/wmi/get_perfdata.vbs

@@ -1,604 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intUnknown = 3
-Const intError = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strUser
-Dim strPass
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-strInfo=""
-
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim strHelp
-		
-		
-		Dim i
-		Dim strtemp1
-		Dim strtemp2
-		Dim strtemp3
-		
-		strHelp=""
-		
-		strtemp1=""
-		strtemp2=""
-		strtemp3=""
-
-		for i=1 to ArgCount
-			strtemp1=strtemp1 & " " & strArgMain(i) & " " & strArgSortDes(i)
-			strtemp2=strtemp2 & strArgMain(i) & " " & strArgSortDes(i) & "	" & strArgDetailDes(i) & "." & vbCrlF
-			strtemp3=strtemp3 & " " & strArgMain(i) & " " & strArgExample(i)
-		next
-		
-								'/////////////////////		
-		
-  		strHelp=strHelp & strDescription & " If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two (three) last parameters."&vbCrlF&vbCrlF
-  		strHelp=strHelp & "cscript " & strCommandName & strtemp1 & " [-user username -pass password -domain domain]"
-  		strHelp=strHelp & vbCrlF
-  		strHelp=strHelp & strtemp2  		
-    	      strHelp=strHelp & "-user username		Account Administrator on Remote Machine." & vbCrlF
-  		strHelp=strHelp & "-pass password		Password Account Administrator on Remote Machine." & vbCrlF
-  		strHelp=strHelp & "-domain domain		Domain Name on Remote Machine." & vbCrlF
-  		strHelp=strHelp & vbCrlF  		
-  		strHelp=strHelp & "Example: cscript " & strCommandName & strtemp3 & " [-user Ser1\Administrator -pass password -domain workgroup]." & vbCrlF
-  		strHelp=strHelp & vbCrlF
-  		strHelp=strHelp & "For Help Command: cscript " & strCommandName & " -h (or --help)." & vbCrlF
-  		strHelp=strHelp & vbCrlF
-  		strHelp=strHelp & "Note: information can be one or multiple of network_interfaces, logical_disks, installed_services, running_processes, all_processors or *." & vbCrlF
-  		strHelp=strHelp & "And if get multiple infomation, the information must be enclosed in multiple quotes and separate by commas." & vbCrlF
-  		strHelp=strHelp & "Example: cscript get_computer_info.vbs -h Ser1 -i ""network_interfaces,logical_disks,install_services"" [-user SER1\Administrator -pass password] " & vbCrlF 
-  		Wscript.echo strHelp
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_TestLocalCommand.
-'Descripton:        Test structure of command run at local host.
-'Input:				No.
-'Output:			Yes.
-'-------------------------------------------------------------------------------------------------
-	Function f_TestLocalCommand()
-
-		On Error Resume Next
-		
-		Dim i,j
-		Dim temp
-		Dim count
-		Dim check(10)
-		
-		count=0
-		
-		for j=1 to ArgCount
-			check(j)=0
-		next
-
-		if (argcountcommand<>ArgCount*2) then
-			f_TestLocalCommand=0
-		else
-			for i=0 to argcountcommand-1
-				if (i mod 2=0) then
-					temp=UCase(arg(i))
-					for j=1 to ArgCount
-						if (temp=UCase(strArgMain)) and (check(j)=0) then
-							check(j)=1
-							count=count+1
-							j=ArgCount
-						end if
-					next
-				end if
-			next
-			if count=ArgCount then
-				f_TestLocalCommand=1
-			else
-				f_TestLocalCommand=0
-			end if
-		end if
-
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_TestRemoteCommand.
-'Descripton:        Test structure of command run at remote host.
-'Input:				No.
-'Output:			Yes.
-'-------------------------------------------------------------------------------------------------
-	Function f_TestRemoteCommand()
-
-		On Error Resume Next
-		
-		Dim i,j
-		Dim temp
-		Dim count
-		Dim check(10)
-		Dim extra(5)
-		
-		count=0
-		
-		for j=1 to ArgCount
-			check(j)=0
-		next
-		
-		for j=1 to 3
-			extra(j)=0
-		next
-
-
-		if (argcountcommand=(ArgCount+2)*2) or (argcountcommand=(ArgCount+3)*2) then
-			for i=0 to argcountcommand-1
-				if (i mod 2=0) then
-					temp=UCase(arg(i))
-					if (temp="-USER" and extra(1)=0) then
-						extra(1)=1
-						count=count+1
-					else
-						if (temp="-PASS" and extra(2)=0) then
-							extra(2)=1
-							count=count+1
-						else
-							if (temp="-DOMAIN" and extra(3)=0) then
-								extra(3)=1
-								count=count+1
-							else					
-								for j=1 to ArgCount
-									if (temp=UCase(strArgMain)) and (check(j)=0) then
-										check(j)=1
-										count=count+1
-										j=ArgCount
-									end if
-								next
-							end if
-						end if
-					end if
-				end if
-			next
-			if (count*2=argcountcommand) then
-				f_TestRemoteCommand=1
-			else
-				f_TestRemoteCommand=0
-			end if
-		
-		else
-		  	f_TestremoteCommand=0
-		end if
-
-	End Function
-	
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalInfo.
-'Descripton:        Get infomation at Local Host.
-'Input:				info.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalInfo(info)
-		
-		On Error Resume Next
-		
-		Dim objWMIService, colWMI,objWMI
-		strResultTemp = ""
-		strOut = ""
-		strPerfdata = ""
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		'Depend on strInfo parameters to get the result value
-		if(info = "*") then
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
-			for Each objWMI In colWMI
-				strOut = strOut & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
-			for Each objWMI In colWMI
-				strOut1 = strOut1 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
-			for Each objWMI In colWMI
-				strOut2 = strOut2 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
-			for Each objWMI In colWMI
-				strOut3 = strOut3 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
-			for Each objWMI In colWMI
-				strOut4 = strOut4 & objWMI.Name & ", "
-			next
-			strResultTemp = "; Network Interfaces: " & strOut & "; Logical Disks: " & strOut1 &_
-							"; Installed services: " & strOut2 & "; Running Processes: " & strOut3 &_
-							"; All Processors: " & strOut4
-			Exit Function
-		end if
-		
-		if(info = "network_interfaces") then
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
-			for Each objWMI In colWMI
-				strOut = strOut & objWMI.Name & ", "
-			 	strPerfdata = strPerfdata & "'net_sent_" & objWMI.Name & "'=" & objWMI.BytesSentPerSec & " " & "'net_recv_" & objWMI.Name & "'=" & objWMI.BytesReceivedPerSec & " "
-			next
-			strResultTemp = "; Network Interfaces: " & strOut & "  |  " & strPerfdata
-			Exit Function
-		else 
-			if(info = "logical_disks") then
-				Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk")
-				for Each objWMI In colWMI
-					strOut = strOut & objWMI.Name & ", "
-				 	strPerfdata = strPerfdata & "'disk_read_" & objWMI.Name & "'=" & objWMI.DiskReadBytesPerSec & " " & "'disk_write_" & objWMI.Name & "'=" & objWMI.DiskWriteBytesPerSec & " " & "'disk_queue_" & objWMI.Name & "'=" & objWMI.CurrentDiskQueueLength & " " 
-				next
-				strResultTemp = "; Logical Disks: " & strOut & "  |  " & strPerfdata
-				Exit Function
-			else 
-				if(info = "installed_services") then
-					Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
-					for Each objWMI In colWMI
-						strOut = strOut & objWMI.Name  & ", "
-					next
-					strResultTemp = "; Installed Services: " & strOut
-					Exit Function
-				else 
-					if(info = "running_processes") then
-						Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
-						for Each objWMI In colWMI
-							strOut = strOut & objWMI.Name & ", "
-						next
-						strResultTemp = "; Running Processes: " & strOut
-						Exit Function
-					else 
-						if(info = "all_processors") then
-							Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
-							for Each objWMI In colWMI
-								strOut = strOut & objWMI.Name & ", "
-							next
-							strResultTemp = "; All Processors: " & strOut
-							Exit Function
-						else
-							f_Error()
-				  			Wscript.echo "Error! Arguments are wrong."
-				  			Wscript.Quit(3)
-						end if
-					end if
-				end if
-			end if
-		end if
-							
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemoteInfo.
-'Descripton:        Get infomation at Remote Host.
-'Input:				info.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemoteInfo(info)
-		
-		On Error Resume Next
-		
-		Dim objWMIService, colWMI,objWMI,objSWbemLocator
-		Dim strDomain
-		strResultTemp = ""
-		strOut = ""
-		
-		Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-
-		if ((ArgCount+2)*2=ArgCountCommand) then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-		else
-			strDomain=f_GetOneArg("-domain")
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-		end if
-		
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		'Depend on strInfo parameters to get the result value
-		if(info = "*") then
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
-			for Each objWMI In colWMI
-				strOut = strOut & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
-			for Each objWMI In colWMI
-				strOut1 = strOut1 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
-			for Each objWMI In colWMI
-				strOut2 = strOut2 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
-			for Each objWMI In colWMI
-				strOut3 = strOut3 & objWMI.Name & ", "
-			next
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
-			for Each objWMI In colWMI
-				strOut4 = strOut4 & objWMI.Name & ", "
-			next
-			strResultTemp = "; Network Interfaces: " & strOut & "; Logical Disks: " & strOut1 &_
-							"; Installed services: " & strOut2 & "; Running Processes: " & strOut3 &_
-							"; All Processors: " & strOut4
-			Exit Function
-		end if
-		
-		if(info = "network_interfaces") then
-			Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
-			for Each objWMI In colWMI
-				strOut = strOut & objWMI.Name & ", "
-			next
-			strResultTemp = "; Network Interfaces: " & strOut
-			Exit Function
-		else 
-			if(info = "logical_disks") then
-				Set colWMI = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
-				for Each objWMI In colWMI
-					strOut = strOut & objWMI.Name & ", "
-				next
-				strResultTemp = "; Logical Disks: " & strOut
-				Exit Function
-			else 
-				if(info = "installed_services") then
-					Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
-					for Each objWMI In colWMI
-						strOut = strOut & objWMI.Name  & ", "
-					next
-					strResultTemp = "; Installed Services: " & strOut
-					Exit Function
-				else 
-					if(info = "running_processes") then
-						Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
-						for Each objWMI In colWMI
-							strOut = strOut & objWMI.Name & ", "
-						next
-						strResultTemp = "; Running Processes: " & strOut
-						Exit Function
-					else 
-						if(info = "all_processors") then
-							Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
-							for Each objWMI In colWMI
-								strOut = strOut & objWMI.Name & ", "
-							next
-							strResultTemp = "; All Processors: " & strOut
-							Exit Function
-						else
-							f_Error()
-				  			Wscript.echo "Error! Arguments are wrong."
-				  			Wscript.Quit(3)
-						end if
-					end if
-				end if
-			end if
-		end if
-							
-	End Function
-			
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		strResult = ""
-		info = strInfo
-		'sProcess = arg(3)
-        first=1
-        tam1=10
-        if (len(strInfo)>0) then
-          do while (tam1>0)
-            tam1=InStr(first,strInfo,",")
-            if (tam1>0) then
-              tam2=Mid(strInfo,first,tam1-first)
-              first=tam1+1
-              info = tam2
-	      f_LocalInfo(Trim(info))
-	      strResult = strResult & strResultTemp
-  	    end if
-          Loop
-          tam2=Mid(strInfo,first,len(strInfo))
-          info = tam2
-          f_LocalInfo(Trim(info))
-	      strResult = strResult & strResultTemp
-		end if
-		strResult = "Host name: " & strComputer & strResult 
-		Wscript.Echo strResult
-		Wscript.Quit(intOK)
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		
-		strResult = ""
-		info = strInfo
-		first=1
-        tam1=10
-        if (len(strInfo)>0) then
-          do while (tam1>0)
-            tam1=InStr(first,strInfo,",")
-            if (tam1>0) then
-              tam2=Mid(strInfo,first,tam1-first)
-              first=tam1+1
-              info = tam2
-	      f_RemoteInfo(Trim(info))
-	      strResult = strResult & strResultTemp
-  	    end if
-          Loop
-          tam2=Mid(strInfo,first,len(strInfo))
-          info = tam2
-          f_RemoteInfo(Trim(info))
-	      strResult = strResult & strResultTemp
-		end if
-		strResult = "Host name: " & strComputer & strResult 
-		Wscript.Echo strResult
-		Wscript.Quit(intOK)
-
-	End Function
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="get_computer_info.vbs"
-		strDescription="Enumerate the needed windows host information."
-
-		                        '/////////////////////
-		
-		ArgCount=2
-		
-		strArgMain(1)=			"-h"
-		strArgSortDes(1)=		"hostname"
-		strArgDetailDes(1)=		"	Host name"
-		strArgExample(1)=		"Ser1"
-		
-		strArgMain(2)=			"-i"
-		strArgSortDes(2)=		"information"
-		strArgDetailDes(2)=		"	The needed information"
-		strArgExample(2)=		"installed_services"
-										
-		strNameSpace = 	"root\cimv2"
-		
-	f_GetAllArg()
-	f_Error()
-
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if (f_TestLocalCommand()) then
-  			strComputer=f_GetOneArg("-h")
-  			if(strComputer = "localhost") then
-  				strComputer = "."
-  				Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
-				Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
-				For Each objItem in colItems
-					strComputer = objItem.DNSHostName
-				Next
-			end if	
-			strInfo=f_GetOneArg("-i")
-			f_LocalPerfValue()
-  			f_Error()
-  		else
-  			if (f_TestRemoteCommand()) then
-  				strComputer=f_GetOneArg("-h")
-				strInfo=f_GetOneArg("-i")
-				strUser=f_GetOneArg("-user")
-				strPass=f_GetOneArg("-pass")
-				f_RemotePerfValue()
-  				f_Error()
-  			else
-  				f_Error()
-  				Wscript.echo "Error! Arguments are wrong."
-  				Wscript.Quit(intError)
-  			end if
-  		end if
-  	end if

nsclient/trunk/scripts/wmi/verify_wmi_status.vbs

@@ -1,329 +0,0 @@
-' Copyright 2007 GroundWork Open Source Inc.
-'
-' This program is free software; you can redistribute it and/or
-' modify it under the terms of the GNU General Public License
-' as published by the Free Software Foundation; version 2
-' of the License.
-'
-' This program is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU General Public License for more details.
-'
-'
-' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
-
-'*************************************************************************************************
-'                                        Public Variable
-'*************************************************************************************************
-Const intOK = 0
-Const intCritical = 2
-Const intError = 3
-Const intUnknown = 3
-
-Dim argcountcommand
-Dim arg(20)
-Dim strComputer
-Dim strClass
-Dim strProp
-Dim strUser
-Dim strPass
-Dim strDomain
-Dim strNameSpace
-Dim strDescription
-Dim strCommandName
-Dim strResultTemp
-Dim strResult
-Dim strResult1
-Dim strResult2
-Dim intReturnTemp
-Dim intReturn
-Dim strResultTemp1
-Dim strResultTemp2
-Dim strResultTemp3
-Dim strResultTemp4
-Dim intReturnTemp1
-Dim strPrefix
-Dim intValue
-Dim returnValue
-Dim instanceArray()
-Dim instanceArraySize
-Dim thresoldArraySize
-Dim instance
-
-Dim strDisplay1
-Dim strDisplay2
-Dim strName
-Dim strPropName
-Dim intAverageValue
-
-Dim ArgCount
-Dim strArgMain(10)
-Dim strArgSortDes(10)
-Dim strArgDetailDes(10)
-Dim strArgExample(10)
-
-Dim objWMIService, colWMI,objWMI,objSWbemLocator
-
-strComputer=""
-strClass = ""
-strProp = ""
-strUser = ""
-strPass = ""
-strDomain = ""
-'*************************************************************************************************
-'                                        Functions and Subs
-'*************************************************************************************************
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Error.
-'Descripton:        Display an error notice include : Error Number and Error Description.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Error()
-	
-		nbrError = err.number
-		if (nbrError <> 0 ) then
-			Select Case nbrError
-				Case 462, -2147023174
-					strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147024891
-					strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
-				Case -2147217392
-					strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
-				Case Else
-					strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
-			End Select
-			wscript.echo strExitMsg
-			wscript.quit(intUnknown)
-		end if
-
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_Help.
-'Descripton:        Display help of command include : Description, Arguments, Examples
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_Help()
-	
-		Dim str
-  		str="Verify connection to target host via WMI. If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two last parameters."&vbCrlF&vbCrlF
-  		str=str&"cscript verify_wmi_status.vbs -h hostname [-user username -pass password [-domain domain]]"&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"-h [--help]                 Help."&vbCrlF
-  		str=str&"-h hostname                 Host name."&vbCrlF  
-  		str=str&"-user username              Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-pass password              Password Account Administrator on Remote Machine."&vbCrlF
-  		str=str&"-domain domain              Domain Name of Remote Machine."&vbCrlF
-  		str=str&vbCrlF
-  		str=str&"Example: cscript verify_wmi_status.vbs -h Ser1 [-user Ser1\Administrator -pass password -domain ITSP] " &vbCrlF
-  		wscript.echo str
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetAllArg.
-'Descripton:        Get all of arguments from command.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetAllArg()
-	
-		On Error Resume Next
-		
-		Dim i
-		
-		argcountcommand=WScript.Arguments.Count
-		
-		for i=0 to argcountcommand-1
-  			arg(i)=WScript.Arguments(i)
-		next
-		
-	End Function
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetOneArg.
-'Descripton:        Get an argument from command.
-'Input:				Yes.
-'						strName: Name of argument
-'Output:			Value.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetOneArg(strName)
-	
-		On Error Resume Next
-		
-		Dim i
-		for i=0 to argcountcommand-1
-			if (Ucase(arg(i))=Ucase(strName)) then
-				f_GetOneArg=arg(i+1)
-				Exit Function
-			end if
-		next
-		
-	End Function
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_ExecQuery.
-'Descripton:        Format data the same as output.
-'Input:				service.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_ExecQuery()
-		
-		On Error Resume Next
-		
-		strQuery = "Select " & strProp & " from " & strClass
-		Set colWMI = objWMIService.ExecQuery(strQuery)
-		count = -1
-		count = colWMI.count
-		if(count = -1) then
-			Wscript.Echo "Error! Invalid " & strProp & " properties."
-			Wscript.Quit(intError)
-		end if
-	
-	End Function
-	        
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_GetInformation.
-'Descripton:        Get information data.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_GetInformation()
-        
-        On Error Resume Next
-        
-        strResult = ""
-	  intReturn = 0
-
-	  for Each objInstance in colWMI
-		strResult = strResult & "" & objInstance.Caption & ", SP " & objInstance.ServicePackMajorVersion & "." & objInstance.ServicePackMinorVersion
-	  Next
-	  strResult = "OK - " & strResult
-        Wscript.Echo strResult
-		Wscript.Quit(intReturn)
-		
-	End Function
-	
-
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_LocalPerfValue.
-'Descripton:        Get perform value at Local Host.
-'Input:				No.
-'Output:			No.
-'-------------------------------------------------------------------------------------------------
-	Function f_LocalPerfValue()
-		
-		On Error Resume Next
-		
-		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
-		f_Error()
-		Set colInstances = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\" & strNameSpace).InstancesOf(strClass)
-		For Each objInstance in colInstances
-		Next
-		f_Error()
-		        
-        f_ExecQuery()
-        f_GetInformation()	
-
-	End Function
-		    
-'-------------------------------------------------------------------------------------------------
-'Function Name:     f_RemotePerfValue.
-'Descripton:        Get perform values at Remote Host.
-'Input:				No.
-'Output:			Values.
-'-------------------------------------------------------------------------------------------------
-	Function f_RemotePerfValue()
-		
-		On Error Resume Next
-		        
-        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-		if (strDomain = "") then
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass )	
-			f_Error()
-			
-			Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass).InstancesOf(strClass)
-			For Each objInstance in colInstances
-			Next
-			f_Error()
-		else
-			Set objWMIService = objSWbemLocator.ConnectServer _
-				(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
-			f_Error()
-			
-			Set colInstances = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass,"MS_409","ntlmdomain:" & strDomain ).InstancesOf(strClass)
-			For Each objInstance in colInstances
-			Next
-			f_Error()
-		end if
-		objWMIService.Security_.ImpersonationLevel = 3
-		f_Error()
-		
-	  f_ExecQuery()
-        f_GetInstances()
-        f_GetInformation()
-
-	End Function
-	
-'*************************************************************************************************
-'                                        Main Function
-'*************************************************************************************************
-
-								'/////////////////////
-
-		strCommandName="verify_wmi_status.vbs"
-		strDescription="Verify target host WMI status."
-
-		                        '/////////////////////
-											
-		strNameSpace = 	"root\cimv2"
-		strClass = "Win32_OperatingSystem"
-		strProp = "Caption,ServicePackMajorVersion,ServicePackMinorVersion"
-	f_GetAllArg()
-	tempCount = argcountcommand/2
-	f_Error()
-	
-  	if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
-		f_help()
-  	else
-  		if( ((argcountcommand Mod 2) = 0) and (1 < tempCount < 5)) then
-  			strComputer = f_GetOneArg("-h")
-  			strUser = f_GetOneArg("-user")
-  			strPass = f_GetOneArg("-pass")
-  			strDomain = f_GetOneArg("-domain")
-  			if((strComputer = "")) then
-  				Wscript.Echo "Error! Arguments wrong, require verify -h parameter"
-  				Wscript.Quit(intError)
-  			else
-  				Select Case tempCount
-	  				Case 1:
-	  					f_LocalPerfValue()
-	  				Case 3:
-	  					if ((strUser <> "") and (strPass <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass parameters"
-	  						Wscript.Quit(intError)	
-	  					end if
-	  				Case 4:
-	  					if ((strUser <> "") and (strPass <> "") and (strDomain <> "")) then
-	  						f_RemotePerfValue()
-	  					else
-	  						Wscript.Echo "Error! Arguments wrong, please verify -user -pass -domain parameters"
-	  						Wscript.Quit(intError)
-	  					end if
-	  				Case Else
-	  					Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-	  					Wscript.Quit(intError)
-  				End Select
-  						
-  			end if
-  		else
-  			Wscript.Echo "Error! Arguments wrong, please type -h for Help"
-  			Wscript.Quit(intError)
-  		end if  
-  		
-  	end if