nsclient/trunk/NSC.ini

@@ -0,0 +1,58 @@
+[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
+check_exchange_mailbox=cmd /c scripts\check_exchange\test.bat
+[External Alias]
+
+[NRPE Handlers]
+check_mailbox_health=cmd /c echo Scripts\check_exchange\MailboxHealth.ps1 | PowerShell.exe -Command -
+check_exchange=cmd /c echo Scripts\check_exchange\MailboxHealth.ps1 | powershell.exe -PSConsoleFile "C:\Program Files\Microsoft\Exchange Server\V14\Bin\ExShell.psc1" -command -
+check_exchange_32=cmd /c echo Scripts\check_exchange\MailboxHealth.ps1 | C:\windows\system32\windowspowershell\v1.0\powershell.exe -PSConsoleFile "C:\Program Files\Microsoft\Exchange Server\V14\Bin\ExShell.psc1" -command -
+check_exchange_64=cmd /c echo Scripts\check_exchange\MailboxHealth.ps1 | C:\windows\syswow64\windowspowershell\v1.0\powershell.exe -PSConsoleFile "C:\Program Files\Microsoft\Exchange Server\V14\Bin\ExShell.psc1" -command -
+
+[NRPE Client Handlers]
+
+
+[include]
+local.ini
+wmi.ini
+
+[includes]
+local.ini
+wmi.ini

nsclient/trunk/license.txt

@@ -0,0 +1,340 @@
+		    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/scripts/check_60s.bat

@@ -0,0 +1,4 @@
+@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_battery.vbs

@@ -0,0 +1,43 @@
+' =========================================================
+' 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_exchange/MailboxHealth.ps1

@@ -0,0 +1,103 @@
+# 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.
+Write-Host "Test"
+Add-PSSnapin Microsoft.Exchange.Management.PowerShell.E2010
+
+$NagiosStatus = "0"
+$NagiosDescription = ""
+
+ForEach ($DataBase in Get-MailboxDatabase) {
+	ForEach ($Status in Get-MailboxDatabaseCopyStatus -Identity $DataBase.Name) {
+		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."
+}
+
+exit $NagiosStatus

nsclient/trunk/scripts/check_exchange/PublicFoldersMounted.ps1

@@ -0,0 +1,58 @@
+# 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

@@ -0,0 +1,80 @@
+# 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 = ""
+
+ForEach ($Type in Test-ReplicationHealth -Identity $env:computername) {
+
+ 	# Look for failed replications
+	if ($TypeResult -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"
+		}
+	}
+}
+
+# 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."
+}
+
+exit $NagiosStatus
+

nsclient/trunk/scripts/check_exchange/test.bat

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

nsclient/trunk/scripts/check_no_rdp.bat

@@ -0,0 +1,53 @@
+@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

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

nsclient/trunk/scripts/check_printer.vbs

@@ -0,0 +1,134 @@
+' =========================================================
+' 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

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

nsclient/trunk/scripts/check_test.ps1

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

nsclient/trunk/scripts/check_test.vbs

@@ -0,0 +1,40 @@
+' =========================================================
+' 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

@@ -0,0 +1,10 @@
+@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

@@ -0,0 +1,357 @@
+' 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

@@ -0,0 +1,54 @@
+' =========================================================
+' 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

@@ -0,0 +1,48 @@
+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