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