diff --git a/nsclient.zip b/nsclient.zip deleted file mode 100644 index 8892d8b..0000000 Binary files a/nsclient.zip and /dev/null differ diff --git a/nsclient/install.bat b/nsclient/install.bat deleted file mode 100644 index 20cf166..0000000 --- a/nsclient/install.bat +++ /dev/null @@ -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 diff --git a/nsclient/trunk/NSC.ini b/nsclient/trunk/NSC.ini deleted file mode 100755 index e80738b..0000000 --- a/nsclient/trunk/NSC.ini +++ /dev/null @@ -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 diff --git a/nsclient/trunk/NSClient++ Reference Manual.pdf b/nsclient/trunk/NSClient++ Reference Manual.pdf deleted file mode 100755 index 36fbd7c..0000000 Binary files a/nsclient/trunk/NSClient++ Reference Manual.pdf and /dev/null differ diff --git a/nsclient/trunk/Nagios Usage Guide.pdf b/nsclient/trunk/Nagios Usage Guide.pdf deleted file mode 100755 index e01e706..0000000 Binary files a/nsclient/trunk/Nagios Usage Guide.pdf and /dev/null differ diff --git a/nsclient/trunk/changelog.txt b/nsclient/trunk/changelog.txt deleted file mode 100755 index 10e822d..0000000 --- a/nsclient/trunk/changelog.txt +++ /dev/null @@ -1,1102 +0,0 @@ -TODO: - * Process times and similar ? - * Fix configuration GUI (low priority) - * Add API for rehashing the daemon (or implement it the API is there but does nothing) - * Improved socket performance (would be nice if we could be used as a "hub") - * Fix depend onservice LanManWorkStation (old win) - * Fix RtlStringFromGUID problem on NT4 - -2010-05-25 MickeM - 0.3.8 (take 3) - ! Release the new version - * Fixed issue with CheckServiceState - -2010-05-25 MickeM - 0.3.8 (take 2) - ! Release the new version - * Fixed issue with FILEAGE - -2010-05-19 MickeM - 0.3.8 - ! Release the new version - -2010-05-17 MickeM - * Fixed id is considerd an int (not a string) in the eventlog filter - -2010-05-14 MickeM - * Fixed issue with LUA script module not using relative path - * New default syntax for CheckEventLog - -2010-05-12 MickeM - 0.3.8 RC3 - * Fixed issue which caused latest build to crash - -2010-05-10 MickeM - 0.3.8 RC2 - * Fixed issue with listpdh and debugpdh (not works again) - + Fixed issue and added support for IN ( ... ) and NOT IN ( ... ) operators (CheckEventLog) - -2010-05-08 MickeM - + Added new "script templating" thing to simplify adding scripts: - Two new sections: [Script Wrappings] for adding templates and [Wrapped Scripts] for adding the scripts. - %SCRIPT% is replaced with the script name - %ARGS% is replaced with arguments. - vbs=cscript.exe //T:30 //NoLogo scripts\wrapper.vbs %SCRIPT% %ARGS% - and - w_vbs=check_test.vbs /arg1:1 /arg2:1 /variable:1 - is the same as: - w_vbs=cscript.exe //T:30 //NoLogo scripts\wrapper.vbs check_test.vbs /arg1:1 /arg2:1 /variable:1 - * Added correct syntax for VB scripts - * Added correct syntax for powershell scripts - * Cleaned up scripts folder - + Added new "NagiosPlugin library" from op5 - + Added check_no_rdp.vbs (Checks that no RDP connection is online) - + Added check_battery.vbs which checks batterys via WMI - + Added check_printer.vbs to check printers via WMI - -2010-04-21 MickeM - 0.3.8 RC1 - + Added support for strings and int (values) to CheckSingleRegEntry - Use like so (int): - CheckSingleRegEntry path=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\eventlog\Application\MaxSize "syntax=%path%: %int%" warn==20971520 crit==20971520 check=int ShowAll=long - CheckSingleRegEntry path=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\eventlog\Application\MaxSize "syntax=%path%: %int%" warn==30971520 crit==30971520 check=int ShowAll=long - Use like so (string): - CheckSingleRegEntry path=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\eventlog\Application\MaxSize "syntax=%path%: %string%" warn==20971520 crit==20971520 check=string ShowAll=long - CheckSingleRegEntry path=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\eventlog\Application\MaxSize "syntax=%path%: %string%" warn==30971520 crit==30971520 check=string ShowAll=long - This can ofcourse be combined and all valid operators (like regexp, substr, lt, gt, ne etc etc are supported. - -2010-04-16 MickeM - + Added new Check to CheckSystem: CheckSingleRegEntry - Similar to the previous CheckSIngleFile but can be used to check aspects of registry entries. - CheckSingleRegEntry path=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\eventlog\Application\MaxSize "syntax=%path%: %exists%" warn==true crit==true check=exists ShowAll=long - CheckSingleRegEntry path=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\eventlog\Application\MaxSizeYY "syntax=%path%: %exists%" warn==true crit==true check=exists ShowAll=long - Currently only supports checking existanse of keys but more checks will be added soon. - -2010-04-14 MickeM - ! Fixed erroneous error message "Failed to peek buffer" - -2010-04-13 MickeM - + Added support for dates in the new CheckEventLog so the following are equvivalent: - CheckEventLog debug=true file=application file=system MaxWarn=1 MaxCrit=1 "filter=generated gt -2d AND severity = 'error'" truncate=800 unique descriptions "syntax=%severity%: %source%: %strings% (%count%)" - CheckEventLog debug=true file=application file=system filter=new filter=in MaxWarn=1 MaxCrit=1 filter+generated=gt:2d filter+severity==error truncate=800 unique descriptions "syntax=%severity%: %source%: %strings% (%count%)" debug-threshold=100 - -2010-04-09 MickeM - + Added "like" keyword to comapre strings like so: - "filter=severity = 'error' AND strings like 'SQLEXPRESS'" - CheckEventLog debug=true file=application file=system MaxWarn=1 MaxCrit=1 "filter=severity = 'error' AND strings like 'SQLEXPRESS'" truncate=800 unique descriptions "syntax=%severity%: %source%: %strings% (%count%)" - * Fixed eventlog check issue (Reverted "major eventlog change" since it did in fact break to many things) - -2010-04-04 MickeM - - Reverted "major eventlog change" since it did in fact break to many things - + Added new major addition to CheckEventLog - CheckEventLog has a compleatly new syntax borrowed from SQL. - CheckEventLog MaxWarn=1 MaxCrit=1 "filter=(id = 123 OR id = 321) AND (severity='warning' OR severity='error')" - Avalible operators are: =, !=, >, <, >=, <=, eq, ne, gt, lt, ge, le, OR, AND - Avalible functions are: convert() (will try to automatically convert type) - Avalible variables are: severity (others may work but this will come in the next week) - -2010-03-24 MickeM - + added a new "option" in conjunction with -c you can now do -m to specify the module to load. - nsclient++ -m CheckDisk.dll -c CheckDriveSize MaxWarn=100 CheckAll - This prevents socket based modules from loading causing "bind" errors. - -2010-03-11 MickeM - * Fixed MAJOR issue with CheckEventLog and this might actually break "existing" checks so let me know. - Problem was I matched filter+ incorrectly. - + Added new option debug-threshold to set "after which rule" we will start dumping filter matches (very usefull to ignore first rule) - CheckEventLog debug=true debug-threshold=1 (will be alot more usefull then without the threshold) - -2010-03-08 MickeM - + Added new option append-filter-= to CheckEventLog to allow "and" of filter rules. - CheckEventLog file=application file=system filter=out MaxWarn=1 MaxCrit=1 filter-eventID=ne:1 filter-eventID=eq:1 append-filter-eventSource==SecurityCenter truncate=1023 unique descriptions "syntax=%source%: %id% (%count%)" - + Added debug option to CheckEventLog (to allow settingdebug on per-check) - + Added obfuscated_password to NSCA section - + Added so "global" ([Settings] password=...) passwords are read from the NSCA module - -2010-02-26 MickeM - * Changed so missing files and such generate an error - * Added option to return error messages to the client [CheckDisk] show_errors=1 (defauilt is off 0) - * Added warning message ewhen numerical filters evaluate to zero (and are not 0) - * Fixed major issue with date mathing in CheckFile* which was not working at all. - -2010-01-24 MickeM - * Fixed so files locked for reading can be chcked (basic checks) - * Improved speed of file chyecking (does not check file data twice) - -2010-01-23 MickeM - + Added checks for missing path and missing filter on CheckFile2 thus - CheckFile2 without paths and/or filters will have status unknown. - * Changed "missing" disks are now a critical error and not unknown - * Improved CheckDriveSize bad FilterType error message - + Added checks for missing counters to CheckCounter - + Added new thread safe PDH subsystem (switch using the new option pdh_subsystem=thread-safe (normal mode is fast). - The reason for this new subsystem is to allow reloading counters and get around some quirks in various PDH implementations (mainly HP) - Added benefits of this new mode is that you can now reload counters which are changed during runtime. - This is done by adding the reload flag to the CheckCounter command. - THIS IS AN ADVANCED FEATURE (so dont use unless you know what you are doing) - + Added new index option to CheckCounter to allow looking up index and thus you can use the same checks on multiple locales and also use characters not present in "NRPE charset) - CheckCounter index "Counter=\1450(_Total)\1458" ShowAll MaxWarn=500 MaxCrit=1000 - same as - CheckCounter "Counter=\\Utskriftskö(_Total)\\Utskrifter" ShowAll MaxWarn=500 MaxCrit=1000 - To find index you can use the command line options: - nsclient++ -noboot CheckSystem pdhlookup Utskrifter - -2009-12-31 MickeM - * Fixed CheckFile* time handling so it is "signed" - This means you can check for "future dates" as well as future dates works correctly: - Like so: - CheckFile2 debug path=D:\tmp\dates filter+creation=>30m MaxWarn=1 MaxCrit=1 "syntax=%filename%: %creation%" - CRITICAL:past.txt: Thursday, December 31, 2009 08:47:30, found files: 1 > critical|'found files'=1;1;1; - CheckFile2 debug path=D:\tmp\dates filter+creation=<-30m MaxWarn=1 MaxCrit=1 "syntax=%filename%: %creation%" - CRITICAL:future.txt: C: Thursday, December 31, 2009 12:47:11, found files: 1 > critical|'found files'=1;1;1; - + Added volume support for CheckDriveSize (CHeckAll) like so: - Like so: - CheckDriveSize MinWarn=50% MinCrit=25% CheckAll=volumes FilterType=FIXED FilterType=REMOTE - + Added %user% to syntax to print user who generated message. - Like so: - CheckEventLog file=application file=system filter=new filter=out MaxWarn=1 MaxCrit=1 filter-generated=>2w filter-severity==success filter-severity==informational truncate=1023 unique descriptions "syntax=%user% (%count%)" - CRITICAL: (1), (2), NT INSTANS\SYSTEM (3), NT INSTANS\SYSTEM (3), NT INSTANS\SYSTEM (3), missing (3), missing (5), (4), missing (2), missing (2), missing (2), missing (2), (1), eventlog: 33 > critical|'eventlog'=33;1;1; - -2009-12-21 MickeM - ! BREAKING CHANGE! - ! New perfoamcen data syntax for ALL % checks - Alias is ' %' and it also has the "full" non % data as '' - Like so: - CheckDriveSize CheckAll MaxWarnUsed=80% MaxCritUsed=90% - CRITICAL:CRITICAL: C:\: Total: 146G - Used: 140G (95%) - Free: 6.31G (5%) > critical, D:\: Total: 152G - Used: 148G (97%) - Free: 3.59G (3%) > critical|'C:\ %'=95%;80;90; 'C:\'=140.17G;117.18;131.83;0;146.48; 'D:\ %'=97%;80;90; 'D:\'=147.93G;121.21;136.3;0;151.52; - CheckDriveSize CheckAll MaxWarnFree=20% MaxCritFree=10% - OK:OK: All drives within bounds.|'C:\ %'=5%;20;10; 'C:\'=140.17G;29.29;14.64;0;146.48; 'D:\ %'=3%;20;10; 'D:\'=147.93G;30.30;15.15;0;151.52; - CheckDriveSize CheckAll MaxWarnUsed=100G MaxCritUsed=150G - WARNING:WARNING: C:\: Total: 146G - Used: 140G (95%) - Free: 6.31G (5%) > warning, D:\: Total: 152G - Used: 148G (97%) - Free: 3.59G (3%) > warning|'C:\ %'=95%;32;4294967294; 'C:\'=140.17G;100;150;0;146.48; 'D:\ %'=97%;35;2; 'D:\'=147.93G;100;150;0;151.52; - CheckDriveSize CheckAll MaxWarnFree=20G MaxCritFree=10G - OK:OK: All drives within bounds.|'C:\ %'=5%;87;94; 'C:\'=140.17G;20;10;0;146.48; 'D:\ %'=3%;87;94; 'D:\'=147.93G;20;10;0;151.52; - -2009-12-13 MickeM - + Added new command: CheckSingleFile to check spects of a single file use like so: - CheckSingleFile file=d:\nrpe_512.pem warn=>100 check=line-count warn=>100 crit=>170 check=size - + Added option debug to CheckFile2 to enable priting of debug information - + Added ignore-errors to "ignore" any filesystem related errors (NOTICE this is probably not what you want) - + Added master-syntax to CheckFile2 to change the overall message like so: - It takes three options (and char data): - * %list% A list of all "files" (syntax controls this) - * %files% number of files - * %matches% number of files matched - CheckFile2 MinWarn=10 MinCrit=10 path=D:\WINDOWS\system32 filter+size=gt:0 truncate=10 ignore-errors "master-syntax=%matches%/%files%" - OK:7177/7...|'found files'=7177;10;10; - -2009-12-06 MickeM - + Added != to all string filters - + Sorted out the alias handling it is now wither what you specify or "files found" (this makes performance data work) - + Added version to CheckFile2 - CheckFile2 path=D:\tmp pattern=*.exe filter+version=!=1.0 "syntax=%filename%: %version%" MaxWarn=1 - CheckFile2 path=D:\tmp pattern=*.exe filter+version=!=6.0.2900.5512 "syntax=%filename%: %version%" MaxWarn=1 - + Added line count to CheckFile2 to count lines - CheckFile2 path=D:\tmp pattern=*.txt filter+line-count=!=2 "syntax=%filename%: %line-count%" MaxWarn=1 - CheckFile2 path=D:\tmp pattern=*.txt filter+line-count=ne:3 "syntax=%filename%: %line-count%" MaxWarn=1 - -2009-xx-x MickeM - 0.3.7 - ! Release the new version - -2009-10-11 MickeM - + Added argument support to NRPE Client - This is temporarily enabled by the same options under the NRPE section. BUT this will change int he future so be ware when using them. - -2009-09-20 MickeM - * Fixed alias in CheckWMI (now works) - + Added columnSyntax to CheckWMI to allow formating of returned data (default is %column%=%value%) - + Added columnSeparator to CheckWMI to allow formating of returned data (default is ", ") - -2009-09-13 MickeM - * Fixed some more issues with the installer should not "work" on Windows 2008 as well as slightly simpler to configure. - -2009-09-06 MickeM - + Added new option to [NSCA Agent] string_length= of the NSCA_MAX_PLUGINOUTPUT_LENGTH option on the NSCA server. - * Readded all the "installer configuration" crap which I accidentaly removed when I fixed the installer... *sigh* - -2009-08-30 MickeM - + Added -c and -d command line options like so: - NSClient++ -c CheckFile2 path=c:\test pattern=*.txt MaxCrit=1 filter+written=gt:2h - NSClient++ -c ... - -d Is the same thing but with debug enabled. - + Added uninstall of old client (sort of broken but works) - -2009-08-29 MickeM - * Fixed issue with CheckFile (directory) - * Rewrote the CA:s in the installer to work "better" (hopefully) in general it should be have more like a propper installer. - -2009-07-18 MickeM - * Fixed issue with no loggers avalible and "memory leak" - * Added "firewall exception" to installer - * Fixed an issue with the socket data buffer - * Added new option to NSC.ini [NSCA] socket_timeout=30 (timeout in seconds when reading from NSCA sockets) - * Fixed issue with NSCA socket. - -2009-07-05 MickeM - * Fixed issue with CheckExternalScripts and script_dir: not adding the commands properly. - * Fixed issue with CheckExternalScripts and script_dir: not using relative paths (#310). - -2009-06-20 MickeM - * Fixed issue with CheckDisk and paths not working out properly - -2009-06-10 MickeM - 0.3.6 - ! Release the new version - -2009-06-10 MickeM - * Fixed so CheckEventLog only reports invalid buffersizes once - -2009-06-07 MickeM - * Fixed issue with CheckFileAge incorrectly working in recursive mode. - * Finalized the installer - -2009-05-22 MickeM - * Fixed time_delay option in NSCA config (now uses the correct base was 1000 times to large before) - -2009-05-21 MickeM - * Fixed issue with eventlog parsing and 64 bit machines (descriptions option) - * Fixed issue with "modern windows" and installing the service (should not have the correct privlaiges) - -2009-05-17 MickeM - * Changed default buffer size for process enumeration (64K now instead of 1K should I hope work better on 64bit OS:es) - -2009-05-10 MickeM - + Added write support for modules to installer - -2009-05-03 MickeM - * Fixed another quite serious memory leak! - And this was a hard one, took me hours and hours and hours (read weeks) to track down, but here we are! - * A lot of other fixes as I have been through much of the code looking for the memmory leak above. - -2009-03-30 MickeM - + Added new option to NSCA module for specifying report options. - report=all (report=warning,critical) etc etc to specify which kind of return datat to get default value is all. - + Added so password and host ate stored in the installer (if changed) - -2009-03-29 MickeM - * Fixed a lot of issues with the installer and added a start on exit (and donate) on the finnish dialog. - -2009-03-15 MickeM - * New service name (displayname) - * New service description - -2009-03-14 MickeM - * Rebuilt installer UI (still missing write config function) - * Added debug entry to log filename used by debug log metrics. - * Fixed so alias will not require the allow_nasty_metachars option set under external sripts module. - -2009-03-02 MickeM - * Added catch handlers and error logging to NSCA Thread - * Fixed issue with CheckProcState and administrator login! - + Added debug module to installer - + Added option max-dir-depth to CheckFile and CheckFile2 like so: - CheckFile "file=c:\test\*.txt" filter-size=<24g "syntax=%filename%: %size%" MaxCrit=1 max-dir-depth=0 - Will only find files on the "first level" where as max-dir-depth=1 would find all parents and children etc. (-1 is the default and means find all) - * Fixed issue with finding sub-folders and *.txt now it will always look for subfolders if they are present - -2009-02-26 MickeM - * Fixed issue with debug logging (not it can be disabled again) - -2009-02-23 MickeM - * Fixed build issues so NSCA now has all cryuptos avalible (verify with nsclient++ /about) - -2009-02-11 MickeM - * Fixed so that performance data is always(?) renderd regardless of if we have bounds or not. - This was primarily to fix issues where we have might not "unexpectedly" get performance data (might still be some issues here so let me know). - -2009-02-06 MickeM - * Fixed so that arguments ($ARG1$) are parsed properly for alias in CheckExternalScript - -2009-02-05 MickeM - * Fixed so the error message for "to small eventlog buffer" specifies the required size. - * Changed so that event log buffer problems are "ignored in the result" (still logged in the error log). - -2009-02-03 MickeM - * Added support for changing the time when using NSCA with the time_delay in NSC.ini - time_delay=+4h or time_delay=-1h etc should can now be used when system time not the same as NSCA time. - -2009-01-30 MickeM - * Added support for changing name and description of service from the /install command line - NSClient++ /install [gui] [start] [service name] [description] - NSClient++ /uninstall [gui] [stop] [service name] - NSClient++ /start [gui] [service name] - NSClient++ /stop [gui] [service name] - -2009-01-28 MickeM - * Slightly improved error handling around socket creation - * Fixed some pretty minor issues with the SysTray module (uncreation as well as new boost build). - -2009-01-25 MickeM - * Fixed issue with checkVersion (#242) - * Fixed spelling error (#244) - * Fixed crash in CheckFile when a file was locked in exclusive mode (#254) - + Improved error handling in all CheckDIsk/CheckFile checks. Should report errors better now. - * Updated the config file a bit: remving "beta" from a bunch of modules no longer in beta. (#270) - + Added more filter operatos to all numeric filters so they accept eq:, ne:, gt:, lt: in addition to =, >, <, <>, !, !=, in: (#269) - -2009-01-23 MickeM - + Added better support for numerical hit matching in the eventlog module. You can now use exact and detailed matching. - You can now use the following syntax: - CheckEventLog ... warn=ne:1 crit=eq:0 ... - To generate a warning if the number of hits are != 1 and a critical if the number of hits are = 0. - Other operators avalible are: =, >, <, <>, !, !=, eq:, ne:, gt:, lt: - -2009-01-23 MickeM - * Cleaned up the checkProcState code and it is not a lot better. - - Removed race conditions (crashes?) as well as improved perfoamnce and better error handling. - + Added new option 16bit to checkProcState. When set checkProcState will enumerate all 16 bit processes found running under NTVDM. - * Fixed NRPE version reported "incorrectly". (Version is now takedn from NSClient++) - -2009-01-21 MickeM - + Added experimental 16 bit process support to checkProcState - -2009-01-20 MickeM - * Fixed issue with CheckWMI when no filter was specified. - -2009-01-17 MickeM - + Added new command line option pdhlookup (to CheckSystem) to lookup index from names. - Probably not usefull to anyone but me :) Usage: "nsclient++ -noboot CheckSystem pdhlookup Antal bindningsreferenser" - * Fixed so PDH Collectors use the same exception as the rest of the PDH stuff (might give better errors when PDH breaks, but I doubt it) - * removed debug output from -noboot - + Added new command line pdhmatch option to use pattern matching on PDH queries - Usage: nsclient++ -noboot CheckSystem pdhmatch \Process(*)\Antal trådar - * Improved error reporting in the PDH subsystem. - + Added new module A_DebugLogMetrics.dll which can be used to generate debug info. - Enable the module and a file called process_info.csv will be created under %APP_DATA%/nsclient++/process_info.csv which contains metrics. - * Fixed handle leak in CheckExternalProcess and NRPEListsner (executing commands). - -2009-01-13 MickeM - * Fixed issue with 64-bit installer (now installs under Program Files (and not x86) - + Brand new build enviornment based upon boost build!!! - Use batch file to build (release-build.bat or modify to make your own) - * Modified /about so it now shows a lot of usefull(?) info. - -2008-11-13 MickeM - + Added truncate option to checkServiceState - -2008-09-24 MickeM - * Imroved the installer (now auto-updates the version when built) - -2008-09-24 MickeM - 0.3.5 - * Fixed issue with CheckServiceState and CheckAll (it now works) - + Added new check: CheckFile2 which has the same syntax as the event log filtering. - Usage: CheckFile2 file=c:\test\*.txt filter=in filter+creation=<24h "syntax=%filename% was created %creation%" MinWarn=0 MinCrit=0 - -2008-09-18 MickeM - 0.3.4 - * Changed so "missing services" are treated as stopped. - CheckServiceState missing=stopped ShowAll - OK: missing: not found - * Fixed issue with : in service name. - + Added some "reasonable default cheks" under [External Alias] for the CheckExternalScripts.dll module. - -2008-09-17 MickeM - 0.3.4 RC-6 - * Added option [EventLog] lookup_names=0 to disable the evetlog name lookup (default is on) - -2008-09-17 MickeM - * Fixed issue on all filters so == takes the "usual" 2 equalsigns (old still works). - * Added so tray icon can get "propper" name from core for "description". - * Added lookup of "long" eventlog names (you can now use the alias used in the event viewer) - -2008-09-16 MickeM - 0.3.4 RC-5 - * Fixed an issue with the session launcher - -2008-09-15 MickeM - * Fixed so NSCLient++ can load with "broken plugins" (before it printed an error and exited) - + Added a very basic simple .net plugin (and a wrapper) - -2008-09-14 MickeM - 0.3.4 RC-4 - * Fixed an issue with the session launcher - * Fixed an issue with the uninstaller (should not "fail" when problems uninstalling) - -2008-09-14 MickeM - 0.3.4 RC-4 - * Fixed issue with OS detection (again) - * Fixed issue with plugin unloading (again) - * Fixed issue with SSL socket not unloading properly - * Fixed issue with "login" and "no session" (should work now I hope) (#222) - * Changed so all projects build under "tmp" instead of under respecitve directory. (simpler to remove all "tmp" files now) - -2008-09-12 MickeM - * Thanks to everyone who listened in on my session at NETWAYS Nagios Konferenz 2008! - -2008-09-09 MickeM - 0.3.4 RC-3 - * Improved error handling for the WMI checks. - + CheckWMI: Added support for extracting numbers from strings - * Fixed performance data for "large float values" to be rendered without scientific notation. (#151) - * Fixed issue with & and some commands via check_nt. - * Fixed a crash on exit (which I added in Rc1). - * Added 10 "bytes" the CPU buffer: (#174) - + Added new option to [EventLog] section buffer_size to change the size of the buffer used when scanning the evenlotg (defaults to 64k). - * Fixed error handling in CHeckEventLog so errors are repoorted properly (#184) - -2008-09-08 MickeM - 0.3.4 RC-2 - * Fixed issue in windows 2008 with system tray (shared_session). - * Fixed installer issue (should run (i hope) service installer on install now on 64 bit os) - * Fixed issue with unloading plugins and log (causing "timeouts" when exiting some times) - -2008-09-07 MickeM - + Added sample powershell script as well as a workaround for making them run. - * Fixed an issue making powershell scripts (and possibly others) not timeout properly. - + Added upgrade support to the installer (still need to add support for keeping .ini file so be ware) - -2008-09-06 MickeM - * Improved error reporting in the eventlogchecker - * *BREAKING CHANGE* filter=new is now the default so unless you use the new filtering you need to specify filter=old instead! - I Recomend everyone to stop using the "old" filtering. - -2008-09-04 MickeM - * Fixed issues with new service stuff on NT4 and W2K (should work fine now) - + Added some DebugOutput to service handling features so if you experience tropubel try using sysinternals DebugView too se logging before the agent startes. - * Fixed a memory leak in the error formating code - -2008-08-24 MickeM - * Changed NSCA "general problem" error message to be more descriptive. - * Fixed issue with CheckCPU not returning a valid performance unit (%) see issue #219 for details. - -2008-08-16 MickeM - * *WARNING* THIS IS VERY VERY UNSTABEL (possibly) - * *WARNING* A lot of new untested code here so dont run in production enviornments :) - + Added shared session so system tray can communicate with master - + Added new system tray handlig (via TS so FUS should work with it) - + Added new option [System] / shared_session=0 (or 1) to enable / disable the new shared memory framework (it is for now disabled by default) - If you want to try this remember to change that option but also beware! it is dagerous and not finnished and and also there is as of now no security at all. - -2008-08-09 MickeM - + Added ChangeWindowMessageFilter so systray should maybe work on vista and beyond! - -2008-07-28 MickeM - * Improved the error handling for the check proc state. - * Removed all (I think) asserts replacing them with exceptions (should I hope reduce crashes and instead leave some form of errors) - -2008-07-25 MickeM - + Built a garage at the summer house - * cut down all the reeds and shrubbs at the summer house. - -2008-07-03 MickeM - * Fixed (again) issue with performance data and CheckDriveSize (when using "Min" bounds) - + Added some more error messages for when counters are not found. - * Fixed an issue with the new namespace option - -2008-07-02 MickeM - ! 0.3.3 Released (take 2) - + Added new option alias to controll the name for performance counters when using checkfile use like so: - checkfile alias=foo file=C:\boot.ini filter-written=>1000d syntax=gurka MaxCrit=1 - * Fixed issue with performance data and CheckDriveSize (when using "Min" bounds) - ! 0.3.3 Released (take 1) - * Fixed some issues (?) with the installer the w32 and x64 are now different components (GUIDs). - -2008-07-02 MickeM - + Fixed some issues (?) with the installer the w32 and x64 are now different components (GUIDs). - -2008-07-01 MickeM - + Added new option (namespace) to CheckWMI and CheckWMIValue use like so: - CheckWMI namespace=root\\cimv2 MaxCrit=3 MinWarn=1 "Query:load=Select * from win32_Processor" - -2008-06-30 MickeM - * Fixed issue with CheckFile and performance data ( #156 ) - + Added option (InvalidStatus) to CheckCounter to allow other then UNKNOWN return state when counters are missing ( #167 ). - *NOTICE* this is all reasons (so if the counter is missing or some such the same will happen not just when the instance is missing) - Message will reflect reason. - * Fixed issue in the arraybuffer (one of the plit functions had a problem with multiple chars of the same) ( #190 ) - -2008-06-25 MickeM - * Fixed issue with CheckDriveSize and CheckAllOthers (#188) - -2008-06-24 MickeM - + Added new check (to CheckHelpers): CheckOK: Just return OK (anything passed along will be used as a message). - + Added new check (to CheckHelpers): CheckWARNING: Just return WARN (anything passed along will be used as a message). - + Added new check (to CheckHelpers): CheckCRITICAL: Just return CRIT (anything passed along will be used as a message). - + Added new check (to CheckHelpers): CheckVersion: Just return the nagios version (along with OK status). - * Better error messages in the check service thingy. - -2008-06-18 MickeM - * Fixed an issue in regards to reading the return packet in the in the NRPEClient (now it works). - Before only the first 1024 bytes were used. - -2008-06-15 MickeM - * Applied patches from Jeff Goldschrafe - + CheckDriveSize now uses "all drives" when no drive is specified. - * Fixed misspellt Container - -2008-06-14 MickeM - * Fixed error message from external commands (better reporting now) - -2008-05-14 MickeM - * Fixed memoryleak in the service checker. - I am really sorry I usualy write better code then this. - -2008-04-03 MickeM - * Moved COM init to "core" (from WMI module) - + Added new Check command: CheckTaskSched Use like so: - CheckTaskSched +filter-exit-code==1 ShowAll MaxWarn=1 MaxCrit=1 - -2008-03-21 MickeM - + Added command line support for process checks - New option: cmdLine will toggle so full command lines are used instead of just process names. - + Added regular expression matching to process checks - New option: match=regexp (match=strings is the default and "old" way) - + Added substring matching to process checks - New option: match=substr (match=strings is the default and "old" way) - This is *NOT* case blind so might be hard to use, plan to add case blindness to it in the future. - : Sample command: check_nt ... -v PROCSTATE -l cmdLine,match=regexp,.*exp.* -d SHOWALL - * Ohh yeah... it is 2008 this year... not 2007, fixed a few entries in the :) - - BREAKING CHANGE! -- Removed TOOLHELPER API as PSAPI is simpler and toolhelp is really only useful on w9x (which I don't officially support) - -2008-03-20 MickeM - + Added host-lookupos for NSCA server (#149) - + Added option (cache_hostname=1|0) to cache the NSCA host name (Ie. only lookup once) - * Fixed service check: check_nt -v SERVICESTATE -l CheckAll so it works as advertised (#150) - * Fixed issue with check_nt MEMUSE/CPULOAD/UPTIME if something is "broken" they will now return an error instead of "0". (#134) - Added option debug_skip_data_collection to simulate this (just for kicks) - -2008-03-18 MickeM - * Added some more error messages to the NSCA module - * Added support for arguments to LUA module. - syntax: function debug (command, args) -- args is a table with all arguments - -2008-03-11 MickeM - ! 0.3.1 Released - -2008-03-08 MickeM - * Changed so log is now in Unicode format - Hopefully this will make it simpler to diagnose PDH issues in "strange locales". - If anyone hates this let me know and I will add an option to use "old ansi log". - * Fixed so the console is logged as ANSI (properly) and all Unicode's are discarded. - This means "strangeness" in Unicode and non-us-ascii chars on the console, - so for details refer to the log-file which is proper Unicode. - + Since log module is loaded "after" the client has booted I added a "hello" message that prints the current version - (if you find this annoying let me know, I will make it optional :) - * Fixed some issues in the registry handling - -2008-03-06 MickeM - * Fixed silly ordering bug with the <> syntax. - -2008-03-05 MickeM - + Added debug to new section [Eventlog], when enabled it will (log) what lines matched what, this is a pretty big performance overhead so don't run with this one. - + Added syntax to new section [Eventlog] used as a shorthand for the syntax to use as "default" (when no syntax=... option is given) - * Fixed an issue with eventlog and . matching. - + Added shorthand ! for != in "all" numeric filters (eventlog) - + Added <> (same as ! and !=) as NRPE breaks the use of ! (in "all" numeric filters (eventlog)) - Try using: filter-eventType=<>warning to remove everything that is not a warning - * Fixed two spelling mistakes in the SysTray module. - * Fixed 64-bit issues with installer - * Fixed so installer uninstalls/installs the service - -2008-02-26 MickeM - + Added installer - -2008-02-22 MickeM - * Fixed issues in the NRPE module (now returns the correct status) - + Added a lot of "error log" for when the packet size in NRPEListener is not correct - (might make it simpler to diagnose problems) - -2008-02-20 MickeM - + Added new module NRPEClient that can act as a NRPE client, might be useful for testing things and - eventually for relaying events. - Usage: nsclient++ -noboot NRPEClient -H 192.168.0.1 -p 5666 -c check_something -a foo bar - This is an early concept so don't expect much... - * Fixed a bug in NSCA module (now it works again :) - + Added a command wrapper for the NRPECLient module so now it can act as a check command. - (No argument handling yet though), For a sample check out the [NRPE Client Handlers] section in NSC.ini - -2008-02-19 MickeM - + Fixed a buffer overflow in the NRPE socket handling. - -2008-02-18 MickeM - + Added proper output handling to process subsystem (now you can execute programs that return "much" data. - + Added select support for SSL_write (now you can send "any amount of data" to the (SSL) socket. - Since check_nrpe doesn't do this it wont work in that end, but still... - -2008-02-16 MickeM - + Re factored ExternalCommand handling so NRPE and new module does the same thing. - -2008-02-14 MickeM - + Added so commands starting in host_ (NSCA Handlers) are sent as host-commands - * Fixed a copy constructor in NSCA Commands (now service checks are sent as service checks) - -2008-02-13 MickeM - + Added string_length to [Settings] as well (used internally) for all "injected" buffers. - * Fixed issue with scripts result truncated after 1024 chars - (now they return "all" output and thus you can use the NRPE settings I added yesterday :) - + Added hostname setting to [NSCA] section (must have been when I did not add it before) - + Added to NSCA truncates output when to long. - -2008-02-12 MickeM - + Added new option for the [NRPE] section string_length which is the length of the NRPE strings - (notice you need to recompile the check_nrpe to match this value) - * Improved exception handling in the PDH collector (hopefully less deadlocks) - -2008-02-11 MickeM - + Added encryption support for NSCA module (about half of the algorithms are available, - if someone wants to use one not available let me know, and I will try to add it) - -2008-02-09 MickeM - + New module CheckExternalScripts to handle 1, external script (similar to the old NRPE but in its own module) - - Can Check batch/vbs/programs/* - - Works with NSCA module (if you don't want to have NRPE at the same time) - - Simpler syntax (discarded old and added new section for alias) - - Started to add "sample alias" to ease initial setup and give some nice ideas (please provide me with feedback on them) - -2008-02-08 MickeM - + Added some more default catch handlers (on the "core" side of plugin-calls). - -2008-02-07 MickeM - + Added default catch handlers to all wrapped plug in calls. - -2008-02-05 MickeM - * Fixed issue with checkEventLog (sometimes you got the wrong message back) - -2008-02-04 MickeM - *** Happy Birthday bogi!! :) - * Fixed issues with performance counter rendering (mainly checkDisk) - -2008-02-03 MickeM - + Added encryption subsystem to NSCA module (still no mcrypt support, but at least you have "xor" and passwords) - + Added API for scripts to register commands - + Added command descriptions (for some modules) - * Fixed issue in NRPE that displayed a console window when running commands - * New improved "inject" dialog from the system tray - Lists available commands, and shows command descriptions and a lot of other improvements. - + Added an internal log windows that displays log in real-time. - + Fixed some issues with the dialog procs (should work smoother now, especially Termination) - -2008-02-02 MickeM - * Might have fixed the "missing eventlog messages" problem. - + Added %count% parameter to syntax which (when used with unique) will display the number of hits for each message displayed. - -2008-01-27 MickeM - * Fixed a memory-leak in format_time - * Fixed so time/date is displayed in "local time" (not UTC) for the eventlog check - + Added %message% to eventlog check. Will display the "proper formated eventlog message" as in the eventlog viewer. - For this to work you need to have the descriptions flag set - In short: /nrpe -H 192.168.0.147 -c checkEventLog -a truncate=1024 "syntax=%generated%: %message%" descriptions=true file=System MaxWarn=1 MaxCrit=1 filter+eventType==error filter+generated=\<12h filter=new filter=all filter=in - + Added option "unique" to CheckEventLog If this is present only unique errors will be returned. - The uniqueness is defined by event-log, event-source, event-id and event-category. - -2007-12-16 MickeM - + A lot of new features in the LUA module only "arguments" missing (as well as exposing more of the API) - * Changed some exceptions that were thrown wrong - -2007-12-11 MickeM - + Added support for index-lookups of PDH counters (hopefully *all* locale problems are now fixed (yeah right)) - -2007-12-10 MickeM - + Added initial draft for LUA module - -2007-12-09 MickeM - + Added a check if the service is started when running with /test so you get a warning - + Improved the socket thread with: - * a default-catch - * If the socket fails to start we still wait for it to shut down (no error message) - + Added first version of the NSCA agent (NSCAgent.dll) - (no encryption support as of yet, but will come) - -2007-12-04 MickeM - ! 0.3.0 Released - -2007-12-01 MickeM - * Fixed issue with date formating in FILEAGE - -2007-11-29 MickeM - * Fixed issue with date formating in FILEAGE - -2007-11-28 MickeM - ! 0.3.0 RC-1 - * Fixed some UNICODE issues with process-listings - + Added an error message if the "detected" process enumeration method is not available. - + Fixed some more Unicode issues Password encrypt/decrypt: #107 - * Fixed Unicode issues with "external programs" #109 - * Fixed so default string for check_nt:s FILEAGE command is "delta" is 5 minutes ago (and not absolute ie. 1970...), Issue #39 - + added support for to check_nt:s FILEAGE command, Issue #39 - append: . if you want to use a "custom date" like so: ... -v FILEAGE -l c:\\windows,Date: %Y-%m-%d %H:%M:%S" -w 5 -c 6 ... - Only the above listed % works, and default to 0 so might not be to pretty but works... - -2007-11-26 MickeM - + Fixed a socket issue (erroneously reported "Could not read NSClient packet from socket :(") - * More 2k5 build tweaks - -2007-11-23 MickeM - * Converted to Unicode (damn sometimes I **HATE** C++) - + Added support for escaping " on the /test syntax so now you can do: CheckWMI MaxCrit=3 "MinWarn=1" "Query:load=Select * from win32_Processor" - -2007-11-22 MickeM - * Fixed so the "default path" is correct even when running as a service (issue: #96) - -2007-11-21 MickeM - * Fixed process counter so checkProcState now return the *correct* number (previously it was correct-1) - * Fixed some missing exceptions that were not caught - + Added "AliasCol" option to CheckWMIValue to allow a column to be used as "alias" for a result set: - CheckWMIValue -a "Query=select Caption, ThreadCount from Win32_Process" MaxWarn=50 MaxCrit=100 Check:threads=ThreadCount AliasCol=Caption - will give you: "System threads: 98 > warning, svchost.exe threads: 87 > warning" - - Removed from SVN (as it is old and outdated and no longer used) - -2007-11-20 MickeM - + Added new option to CheckSystem to override detected language (force_language=0x0014) - -2007-11-19 MickeM - * Fixed a minor issue in reading registry keys - + Added -noboot option to startup used for running command line utilities without booting the client - "nsclient++ -noboot RemoteConfigruation ini2reg" for instance - + Added fall back to try and .dll if the module was not loaded (when running command lines) - * Migrated 2008 project files to new name and back ported to 2005 project files. - -2007-11-16 MickeM - * Fixed an NRPE issue I added when I improved the sockets_timeout (now SSL works as well :). - + Added sample VBS script and definitions - -2007-11-15 MickeM - * Improved error message when external NRPE command failles. - -2007-11-14 MickeM - + Added multi-line output support ( issue #91 ) - * Improved error handling for external commands - * Fixed an issue with NRPE/NSClient socket-reading (introduced by the socket_timeout) - + Added an English fall back if "local" language PDH counters fail. - -2007-11-12 MickeM - + Added option to configure socket_timeouts (default is now 30 seconds) should (I hope) fix issue #85 - -2007-11-11 MickeM - + Added option to configure the behavior of CheckService CheckAll (#64) - -2007-11-08 MickeM - + Added CheckWMIValue to check result-values from a WMI Query - * Changed so performance values are "collapsed" i.e. 75362115584 = 70.0G (#89) - If anyone don't want this let me know and I will make an option for it. - -2007-11-06 MickeM - + Added CLI interface to CheckWMI to check queries - -2007-11-04 MickeM - * Rewritten WMI handling as well as checks so things should be more useful now (cf. the wiki page for details) - -2007-10-29 MickeM - * Restructured build and include to work from CLI - + Started to add makefiles to build from CLI - + Added Finnish counters (#98) - * Fixed performance counter issue with check_nt (#99) - -2007-10-06 MickeM - + Added auto-upda-te of versions and dates on build to make versions better updated. - + Fixed x64 build and cleanup a bit. - -2007-09-15 MickeM - + Added better error messages (now return codes are displayed as text). Not implemented all over yet but the infrastructure is there. - -2007-09-11 MickeM - + Added Dutch performance counters to counters.defs - + Added Spanish performance counters to counters.defs - + Added #69 [includes] directive to INI-file to include other files - * Fixed #75 (spelling issue) - -2007-06-23 MickeM - * Might have fixed #53 I was not able to get the problem locally but I have fixed the problem ias at op5 discovered at least... - * Fixed the "check memory" issues for real this time. - * Fixed problem with : in counter names #50 (anything starts with \ is considered a counter so if you use aliases with \ this will break things for you. - -2007-06-20 MickeM - * Fixed #24 crash in NSClient++.exe CheckSystem listpdh | debugpdh - * Fixed #62 Problems with CheckServiceState and services with spaces. - -2007-03-06 MickeM - ! 0.2.7 released - -2007-03-05 MickeM - * Fixed -v FILEAGE check_nt (NSClient) check. - * Added license agreement header to all files - -2007-03-04 MickeM - + Added script_dir option to NRPE section as well as some sample scripts in the scripts/ - subdirectory. The script_dir will use all files in this directory as scripts for NRPE - + Added Japanese counters to counters.defs from patch (thanx!!!) - -2007-02-25 MickeM - + Added possibility to check many memory checks in one go, just stack type options. - type=paged type=physical etc... - * Fixed a performance check bug in the last nightly. - * Fixed a potential crash when a malformed check-file-age command was issued. - + Added support for more then and NSClient command - + Added net mask support to allowed_hosts (try with 192.168.0.1/24 and such) - -2007-02-22 MickeM - + Added debug output to see if the socket is bound and/or has shutdown. - * Fixed a potential bug in the thread manager. - + Added configuration option for suppressing performance data to the NRPE section. - Set performance_data=0 to stop sending performance data to nagios - + New (better?) (simpler?) event log checking - + Added option to most commands (ignore-perf-data) to suppress performance data - + Added option CheckAll for checking all auto-start services to checkServiceState. - Also an exclude= to exclude checking that. - * Fixed return syntax for PROCSTATE nsclient - -2007-02-21 MickeM - * Fixed "broken password check" (again) in NSClient listener (this time it is correct! :) - -2006-12-02 MickeM - + Managed to build so it works on NT 4.0 (SP6a) and W2K3 - * Fixed "broken password check" in NSClient listener - -2006-11-18 MickeM - + Added support for empty NRPE checking (i.e.. chec_nrpe without a -c argument) - * Added error message when detected language is missing from counters.defs - + Added Swedish locale to counters.defs (yes, I switched to Swedish XP on my computer :) - * Fixed : (and possibly other problems) in counters when checking from check_nt (via NSCLient protocol) - + Added CheckAllExcept to CheckDrive to check all except the specified drives. - * Fixed a display error in the various size functions (1000-1024 byte was displayed incorrectly) - -2006-10-05 MickeM - * Yayyy!!! (first fix in a looong while :) - * Fixed a W2k3 "bug" (actually just an incorrect error) but the: - "e .\PDHCollector.cpp(130) Failed to query performance counters..." is no more... - + Added option to NRPE/NSClient section to not-cache host names (for dyndns etc.) - NOTICE this is "not safe" really in so far as someone might hi-jack your DNS and quickly gain - access to your nagios box (probably only a theoretical problem but hey! :) - NOTICE this is "slow" since all hosts in the list are "looked up" each time you get a NRPE/NSClient - request it will be "slow" but I think it is not that much of a problem really. - NOTICE I don't have the possibility to test this so feel free to report if it works and if it doesn't. - Set cache_allowed_hosts=0 to disable host cache - -2006-04-04 MickeM - * Fixed a few more bugs to the INI/REG readers - -2006-04-02 MickeM - * Could all magicians stop trying to kill me? - *Please* i don't like to die! - -2006-03-31 MickeM - * Damn necromancers! stop 0wning my ass all the time! - -2006-03-29 MickeM - + Added API for saving/reading settings - -2006-03-28 MickeM - + Added REG/INI parsers - * *NOTICE* You need to add an option (use_file=1) to your nsc.ini file or new builds wont work. - -2006-03-25 MickeM - * Oblivion f*cking roxx! - -2006-03-02 MickeM - * Fixed bug in INI-file reader (memory leak) - -2006-03-01 MickeM - * Fixed bug in CheckFile (now dates work correctly) - -2006-02-26 MickeM - + Added syntax option to CheckFile (%filename%, %creation%, %access%, %write%, %size%). - -2006-02-25 MickeM - * Fixed Sections problem (now sections can be any size) - + Added bind_to_address option to both NRPE and NSClient section in the INI file. - Allows you to bind the listener to a specific IP address (only dotted number not host name). - This might break things as I had to do some internal rewrite of the Socket classes so be careful :) - * Disabled default-debug logging (as things are fairly stable, you can still enable it by using debug=1 in the NSC:ini file) - * "Fixed" socket backlog to use "max responsible value" as opposed to "10" if no value is specified. - + Added option socket_back_log to both NRPE and NSClient section that allows you to tweak the "back-log" of incoming connections to keep. - This is an advanced setting and should not be used. If you get "connection refused" when running many client this might be something you want to tweak though. - And if you then start getting "Socket timeout" you might wanna tweak the timeout value as well because larger value here means it takes "longer" to process a socket. - - I have looked into the event log problem and dates seem to work here so if anyone still have problems (use the syntax option to debug) let me know. - * Moved listpdh and debugpdh into the CheckSystem module - * Removed PDH dependencies from "core exe" means you can run NSClient++ without PDH (though you cant use the CheckSystem module) - -2006-02-2? MickeM - + Added new Interface for Modules (NSCommandLineExec that allows modules to execute things give from command line. - Syntax is NSClient++ [arguments] and if a module doesn't support this it is simply ignored. - + Added new install/uninstall command to SystemTray module: - NSClient++.exe SystemTray install - NSClient++.exe SystemTray uninstall - That will install/uninstall the system tray module this sets the "Allow Service to Interact with Desktop" flag for the service. - * Removed the "Allow Service to Interact with Desktop" flag from the /install option so that it no longer defaults to on (see commands to set this above). - * Fixed so checkProcess isn't case sensitive. - * Added (not finished) syntax option to event log checker to format the outputted data - -2006-02-12 MickeM - + Added support for host name resolve to allowed_hosts - -2006-02-08 MickeM - ! Fixed filter-eventID in EventLog module (now works for all IDs regardless of severity state) - + Added new filters to EventLog (filter-severity that can filter based on event severity success, error, warning, informational) - -2006-02-07 MickeM - + Added new filter option to eventlog filter-eventID - + Added new operator to all numeric filters in:number,number,... etc. (for instance filter-eventID=in:123,456,789 to check for lists. - -2006-02-05 MickeM - + Added CheckFile check command - This new command (in development) will allow various file checks such as age, size, date, etc on single or multiple files. - + Added FILEAGE support to NSClient - + Started to convert the web page to WIKI - -2006-01-21 MickeM - + Added WMI Check module (early alpha) - This is an extremely early alpha more to see if there is an interest and how to progress with it. - To use the WMI module enable the WMICheck.dll (nsc.ini) and then run the following check: - CheckWMI MaxWarn=10 MaxCrit=15 "Query:load=Select LoadPercentage from win32_Processor" - The Max* are as every other check and sets limits. - The Query works similarly to other check commands i.e.. Query:= - So any other WMI query should work (notice this is experimental and not stable and has virtually - no error handling so it is likely to crash nsclient if you ask anything "non working".) - I would *really* *really* like to get feedback on how to expand this concept to work better so feel free to come with feedback. - * Fixed NT4 /install (should work now!) - -2006-01-02 MickeM - * Fixed ChangeServiceConfig2 on NT4 - + Added support for more then 4GB memory (8GB?) - Since I don't have this much memory this needs to be verified... - * Fixed syntax of performance data - -2005-09-24 MickeM - * Fixed memory size bug (free and used were swapped) - -2005-09-20 MickeM - + Added option to debug all PDH counters /debugpdh - -2005-09-17 MickeM - + Added support for checking service by display name - -2005-09-03 MickeM - * First off, sorry for lack of updates, but was on vacation :) - + Added ShowAll=long to CPULoad - + Added several new types to checkMem (type=paged, type=physical, type=page, type=virtual) - -2005-07-31 MickeM - + /install now sets the service to autostart - * Did some cleanup of minor code sections - * (done before but not reported i think) /listpdh option added to list all PDH counters (nsclient++ /listpdh) - + Added service description - * Event log reworked (again) this time I hope it is better (and even useful, but syntax has changed) - -2005-07-26 MickeM - + Added support for ShowAll=long (to show long and short info, only applies to some areas, but available everywhere) - + Extended Drive and memory check syntax to facilitate both Free and Used space checks: MaxWarnFree / MaxWarnUsed etc) - -2005-07-19 MickeM - * Changed thread API to use _creatthreadex as opposed to _creatthread (works better now!) - * Fixed UNKNOWN return code (was 4 should have been 3) - -2005-07-16 MickeM - * Fixed drive checks from NSClient - -2005-07-11 MickeM - * *ALOT* of bug fixes and enhancements all checking code has been centralized and rewritten also my internal check scripts - have been extended to check a lot more things. - *NOTICE* that EventLog has not been upgraded yet neither has the documentation. - + Added MaxWarnCount / MinWarnCount to checkProcState to check number of processes running - -2005-06-09 MickeM - * Escapes " in NRPE commands in the NSC.ini - -2005-06-05 MickeM - * Created configuration interface (not released yet) - -2005-06-03 MickeM - * Created interactive installer (not released yet) - -2005-06-02 MickeM - * CheckEventLog reworked... - -2005-06-01 MickeM - * CheckSystem auto detects windows version and language. - -2005-05-29 MickeM - * Fixed PROCSTATE and SERVICESTATE return state. - + Added support for individual size in CheckDriveSize and CheckFileSize (size has to be specified before a drive/path) - * Fixed performance data for drives (and possibly other places) - -2005-05-23 MickeM - + Added obfuscated password support - + Added some more debug info on commands (return code, and input args) - + Added some more comments to the NSC.ini - + Added central password "override" - + Added central "host override" - + Fixed bug with external commands always getting WARNING state - -2005-05-22 MickeM - + Added debug output for command - + Added timestamps for log-to-file (date_mask to configure format) - + Added support for "no password" with check_nt - + Added log of bad password on NSClient requests. - * Some threading issues fixed (I hate threading :) - -2005-05-19 MickeM - * Verified NT4 compatibility - -2005-05-18 MickeM - * Fixed bug in NSC.ini (section title for Check System was wrong) - + Added multitasking for plug-ins (now two plug-ins can handle requests simultaneously) - * Fixed some minor issues here and there - -2005-05-15 MickeM - + Added NRPE support for checkCounter - + Updated documentation - * Make check commands ignore case - + Added CheckHelpers module to alter the result of various check and similar things - -2005-05-14 MickeM - + Added support for Volumes (CheckDisk) - + Added support for checking all drives of a certain kind - + Added support for altering filter (makes it possible to check removable drives) - + Created web page and better documentation - -2005-04-20 MickeM - + Added multitasking to socket listener (it can now handle multiple connections) - * Fixed bug in NSClientListener now "seqv" in check_nt shouldn't happen. - + Added COUNTER support to NSClient and CheckSystem - -2005-04-19 MickeM - + Added SSL support - + Added a lot of new options - + Added documentation - * Renamed and restructured NSCLientCompat to CheckSystem - * *ALOT* of fixes all over - : We are now starting to get to something that is "stable" - : This means that soon you might actually be able to use this. - -2005-03-28 MickeM - * Changed the Thread class a bit (mutex -> signal, and CreatThread does not return the instance) - * Moved settings "keys" fro NRPE to config.h - * Changed build options (added Distribution) which builds a zip file under ./dist (requires 7z installed) - * Minor tweaks to error/debug logging and small fixes "here and there" - -2005-03-26 MickeM - + NRPE Support (very basic, no encryption, and nothing fancy) - * Socket classes rewritten - + Added NSCModuleHelper::getSettingsSection to the API - -2005-03-22 MickeM - * Fixed NSClientListener return codes for basic commands - * Extracted arrayBuffer code into new files under /include - * Minor tweaks in the API (fixed minor issues) - + Added some basic "tests" to a few commands (getToken, and arrayBuffer related) - -2005-03-21 MickeM - * Fixed BUG in inject command (now things should "work" again, but far from stable) - + Added NRPE return code - * Fixed some return states to NSClientListener (not verified yet, but soon they will be back in order :) - -2005-03-20 MickeM - * Fundamental API changes (due to NRPE compatibility) - - HandleCommand has changed - - Inject has changed - - Most API calls have new "return codes" (typedef:ed INT to allow for return code compiler checks) - - A lot of the old return codes have changed - + Preliminary NRPE support (can parse and execute incoming requests, cant return data yet, and no encryption) - + New SimpleSocket in include/ will be used as base class for Listeners - * A lot of rewrite to the NSC API - -2005-03-19 MickeM - * Re factored out NSCLient Listener as a separate module - + Added initial NRPE listener module (not yet implemented only a shell) - * Changed Module API (Inject function has new syntax) - + Added some tokenizer function to charEx - + Added new wrapper function to inject Command - * Minor changes in relation to refactor work - -2005-03-01 MickeM - * Improved thread safety in Core - + Added exception handling and logging in PDH code - * Various fixes all over the place - + New module for check size of files/directories - * Changed build to Dynamic link - * Added regular expression support for EventLog checker - -2005-02-22 MickeM - + Added documentation - -2005-02-17 MickeM - * NSClient issues fixed - * System Tray issues fixed - -2005-02-14 MickeM - * Initial SourceForge release \ No newline at end of file diff --git a/nsclient/trunk/check_eva.ini b/nsclient/trunk/check_eva.ini deleted file mode 100644 index 56a8e75..0000000 --- a/nsclient/trunk/check_eva.ini +++ /dev/null @@ -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 diff --git a/nsclient/trunk/counters.defs b/nsclient/trunk/counters.defs deleted file mode 100755 index 6131ac7..0000000 Binary files a/nsclient/trunk/counters.defs and /dev/null differ diff --git a/nsclient/trunk/license.txt b/nsclient/trunk/license.txt deleted file mode 100755 index b860267..0000000 --- a/nsclient/trunk/license.txt +++ /dev/null @@ -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. - - - Copyright (C) - - 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. - - , 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. diff --git a/nsclient/trunk/local.ini b/nsclient/trunk/local.ini deleted file mode 100644 index 0028957..0000000 --- a/nsclient/trunk/local.ini +++ /dev/null @@ -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 - diff --git a/nsclient/trunk/modules/A_DebugLogMetrics.dll b/nsclient/trunk/modules/A_DebugLogMetrics.dll deleted file mode 100755 index a7cd109..0000000 Binary files a/nsclient/trunk/modules/A_DebugLogMetrics.dll and /dev/null differ diff --git a/nsclient/trunk/modules/CheckDisk.dll b/nsclient/trunk/modules/CheckDisk.dll deleted file mode 100755 index 9b1a754..0000000 Binary files a/nsclient/trunk/modules/CheckDisk.dll and /dev/null differ diff --git a/nsclient/trunk/modules/CheckEventLog.dll b/nsclient/trunk/modules/CheckEventLog.dll deleted file mode 100755 index a1a994d..0000000 Binary files a/nsclient/trunk/modules/CheckEventLog.dll and /dev/null differ diff --git a/nsclient/trunk/modules/CheckExternalScripts.dll b/nsclient/trunk/modules/CheckExternalScripts.dll deleted file mode 100755 index 4656c7c..0000000 Binary files a/nsclient/trunk/modules/CheckExternalScripts.dll and /dev/null differ diff --git a/nsclient/trunk/modules/CheckHelpers.dll b/nsclient/trunk/modules/CheckHelpers.dll deleted file mode 100755 index ffde2e3..0000000 Binary files a/nsclient/trunk/modules/CheckHelpers.dll and /dev/null differ diff --git a/nsclient/trunk/modules/CheckSystem.dll b/nsclient/trunk/modules/CheckSystem.dll deleted file mode 100755 index 392ec42..0000000 Binary files a/nsclient/trunk/modules/CheckSystem.dll and /dev/null differ diff --git a/nsclient/trunk/modules/CheckTaskSched.dll b/nsclient/trunk/modules/CheckTaskSched.dll deleted file mode 100755 index c18b3c9..0000000 Binary files a/nsclient/trunk/modules/CheckTaskSched.dll and /dev/null differ diff --git a/nsclient/trunk/modules/CheckWMI.dll b/nsclient/trunk/modules/CheckWMI.dll deleted file mode 100755 index 7a60e41..0000000 Binary files a/nsclient/trunk/modules/CheckWMI.dll and /dev/null differ diff --git a/nsclient/trunk/modules/FileLogger.dll b/nsclient/trunk/modules/FileLogger.dll deleted file mode 100755 index bf6994e..0000000 Binary files a/nsclient/trunk/modules/FileLogger.dll and /dev/null differ diff --git a/nsclient/trunk/modules/LUAScript.dll b/nsclient/trunk/modules/LUAScript.dll deleted file mode 100755 index e7feca8..0000000 Binary files a/nsclient/trunk/modules/LUAScript.dll and /dev/null differ diff --git a/nsclient/trunk/modules/NRPEClient.dll b/nsclient/trunk/modules/NRPEClient.dll deleted file mode 100755 index 89a4aac..0000000 Binary files a/nsclient/trunk/modules/NRPEClient.dll and /dev/null differ diff --git a/nsclient/trunk/modules/NRPEListener.dll b/nsclient/trunk/modules/NRPEListener.dll deleted file mode 100755 index 326422f..0000000 Binary files a/nsclient/trunk/modules/NRPEListener.dll and /dev/null differ diff --git a/nsclient/trunk/modules/NSCAAgent.dll b/nsclient/trunk/modules/NSCAAgent.dll deleted file mode 100755 index f5afcde..0000000 Binary files a/nsclient/trunk/modules/NSCAAgent.dll and /dev/null differ diff --git a/nsclient/trunk/modules/NSClientListener.dll b/nsclient/trunk/modules/NSClientListener.dll deleted file mode 100755 index b88b0ab..0000000 Binary files a/nsclient/trunk/modules/NSClientListener.dll and /dev/null differ diff --git a/nsclient/trunk/modules/RemoteConfiguration.dll b/nsclient/trunk/modules/RemoteConfiguration.dll deleted file mode 100755 index 1a89d68..0000000 Binary files a/nsclient/trunk/modules/RemoteConfiguration.dll and /dev/null differ diff --git a/nsclient/trunk/modules/SysTray.dll b/nsclient/trunk/modules/SysTray.dll deleted file mode 100755 index 5526413..0000000 Binary files a/nsclient/trunk/modules/SysTray.dll and /dev/null differ diff --git a/nsclient/trunk/nsclient++.exe b/nsclient/trunk/nsclient++.exe deleted file mode 100755 index 15571b8..0000000 Binary files a/nsclient/trunk/nsclient++.exe and /dev/null differ diff --git a/nsclient/trunk/nsclient.log b/nsclient/trunk/nsclient.log deleted file mode 100755 index feae8be..0000000 Binary files a/nsclient/trunk/nsclient.log and /dev/null differ diff --git a/nsclient/trunk/nstray.exe b/nsclient/trunk/nstray.exe deleted file mode 100755 index 94d5fca..0000000 Binary files a/nsclient/trunk/nstray.exe and /dev/null differ diff --git a/nsclient/trunk/scripts/check_60s.bat b/nsclient/trunk/scripts/check_60s.bat deleted file mode 100755 index 03f9ea2..0000000 --- a/nsclient/trunk/scripts/check_60s.bat +++ /dev/null @@ -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 diff --git a/nsclient/trunk/scripts/check_ad/check_ad.exe b/nsclient/trunk/scripts/check_ad/check_ad.exe deleted file mode 100644 index 5b5c3c5..0000000 Binary files a/nsclient/trunk/scripts/check_ad/check_ad.exe and /dev/null differ diff --git a/nsclient/trunk/scripts/check_ad/check_ad.html b/nsclient/trunk/scripts/check_ad/check_ad.html deleted file mode 100644 index 1a417dd..0000000 --- a/nsclient/trunk/scripts/check_ad/check_ad.html +++ /dev/null @@ -1,164 +0,0 @@ - - - - -check_ad - Nagios NRPE Plugin for Dell Hardware Check - - - - - - -

- - - - -

-

-

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-4e66-8d18-17f83c5e4e6c1033.mspx - -
NETDIAG documentation http://technet2.microsoft.com/windowsserver/en/library/cf4926db-87ea-4f7a-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.
-
-
- - - - diff --git a/nsclient/trunk/scripts/check_ad/check_ad.pl b/nsclient/trunk/scripts/check_ad/check_ad.pl deleted file mode 100644 index e39d37b..0000000 --- a/nsclient/trunk/scripts/check_ad/check_ad.pl +++ /dev/null @@ -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 () - { - 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 () - { - 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 [B<--dc>] [B<--member>] [B<--noeventlog>] [B<--nokerberos>][B<--help>] - -=head1 DESCRIPTION - -B 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 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 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 - -=head1 SEE ALSO - -=over 4 - -=item Nagios web site L - -=item Nagios NRPE documentation L - -=item DCDIAG documentation L - -=item NETDIAG documentation L - -=back - -=head1 COPYRIGHT - -This program is distributed under the Artistic License. L - -=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 diff --git a/nsclient/trunk/scripts/check_ad/readme.txt b/nsclient/trunk/scripts/check_ad/readme.txt deleted file mode 100644 index 62fd5b1..0000000 --- a/nsclient/trunk/scripts/check_ad/readme.txt +++ /dev/null @@ -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 - -SEE ALSO - Nagios web site - Nagios NRPE documentation - - DCDIAG documentation - - NETDIAG documentation - - -COPYRIGHT - This program is distributed under the Artistic License. - - -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. - diff --git a/nsclient/trunk/scripts/check_battery.vbs b/nsclient/trunk/scripts/check_battery.vbs deleted file mode 100755 index 93cab05..0000000 --- a/nsclient/trunk/scripts/check_battery.vbs +++ /dev/null @@ -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 diff --git a/nsclient/trunk/scripts/check_eva/MSVCR71.dll b/nsclient/trunk/scripts/check_eva/MSVCR71.dll deleted file mode 100644 index 9d9e028..0000000 Binary files a/nsclient/trunk/scripts/check_eva/MSVCR71.dll and /dev/null differ diff --git a/nsclient/trunk/scripts/check_eva/_socket.pyd b/nsclient/trunk/scripts/check_eva/_socket.pyd deleted file mode 100644 index 707853b..0000000 Binary files a/nsclient/trunk/scripts/check_eva/_socket.pyd and /dev/null differ diff --git a/nsclient/trunk/scripts/check_eva/_ssl.pyd b/nsclient/trunk/scripts/check_eva/_ssl.pyd deleted file mode 100644 index 428b51b..0000000 Binary files a/nsclient/trunk/scripts/check_eva/_ssl.pyd and /dev/null differ diff --git a/nsclient/trunk/scripts/check_eva/bz2.pyd b/nsclient/trunk/scripts/check_eva/bz2.pyd deleted file mode 100644 index e0f7e0e..0000000 Binary files a/nsclient/trunk/scripts/check_eva/bz2.pyd and /dev/null differ diff --git a/nsclient/trunk/scripts/check_eva/check_eva.exe b/nsclient/trunk/scripts/check_eva/check_eva.exe deleted file mode 100644 index 68cf053..0000000 Binary files a/nsclient/trunk/scripts/check_eva/check_eva.exe and /dev/null differ diff --git a/nsclient/trunk/scripts/check_eva/check_eva.py b/nsclient/trunk/scripts/check_eva/check_eva.py deleted file mode 100644 index 8c134fd..0000000 --- a/nsclient/trunk/scripts/check_eva/check_eva.py +++ /dev/null @@ -1,690 +0,0 @@ -#!/usr/bin/python -# -# Copyright 2010, Pall Sigurdsson -# -# 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 . - -# 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 ]" - print " [--username ]" - print " [--password ]" - print " [--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) - diff --git a/nsclient/trunk/scripts/check_eva/library.zip b/nsclient/trunk/scripts/check_eva/library.zip deleted file mode 100644 index d838dee..0000000 Binary files a/nsclient/trunk/scripts/check_eva/library.zip and /dev/null differ diff --git a/nsclient/trunk/scripts/check_eva/pyexpat.pyd b/nsclient/trunk/scripts/check_eva/pyexpat.pyd deleted file mode 100644 index 9914173..0000000 Binary files a/nsclient/trunk/scripts/check_eva/pyexpat.pyd and /dev/null differ diff --git a/nsclient/trunk/scripts/check_eva/python25.dll b/nsclient/trunk/scripts/check_eva/python25.dll deleted file mode 100644 index 2058464..0000000 Binary files a/nsclient/trunk/scripts/check_eva/python25.dll and /dev/null differ diff --git a/nsclient/trunk/scripts/check_eva/select.pyd b/nsclient/trunk/scripts/check_eva/select.pyd deleted file mode 100644 index cc70648..0000000 Binary files a/nsclient/trunk/scripts/check_eva/select.pyd and /dev/null differ diff --git a/nsclient/trunk/scripts/check_eva/setup.py b/nsclient/trunk/scripts/check_eva/setup.py deleted file mode 100644 index cd24515..0000000 --- a/nsclient/trunk/scripts/check_eva/setup.py +++ /dev/null @@ -1,4 +0,0 @@ -from distutils.core import setup -import py2exe - -setup(console=['check_eva.py']) \ No newline at end of file diff --git a/nsclient/trunk/scripts/check_eva/unicodedata.pyd b/nsclient/trunk/scripts/check_eva/unicodedata.pyd deleted file mode 100644 index 2436374..0000000 Binary files a/nsclient/trunk/scripts/check_eva/unicodedata.pyd and /dev/null differ diff --git a/nsclient/trunk/scripts/check_eva/w9xpopen.exe b/nsclient/trunk/scripts/check_eva/w9xpopen.exe deleted file mode 100644 index 7eb67c9..0000000 Binary files a/nsclient/trunk/scripts/check_eva/w9xpopen.exe and /dev/null differ diff --git a/nsclient/trunk/scripts/check_exchange/Exchange2010.zip b/nsclient/trunk/scripts/check_exchange/Exchange2010.zip deleted file mode 100644 index 7180588..0000000 Binary files a/nsclient/trunk/scripts/check_exchange/Exchange2010.zip and /dev/null differ diff --git a/nsclient/trunk/scripts/check_exchange/MailboxHealth.ps1 b/nsclient/trunk/scripts/check_exchange/MailboxHealth.ps1 deleted file mode 100644 index cdd5a99..0000000 --- a/nsclient/trunk/scripts/check_exchange/MailboxHealth.ps1 +++ /dev/null @@ -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 - diff --git a/nsclient/trunk/scripts/check_exchange/PublicFoldersMounted.ps1 b/nsclient/trunk/scripts/check_exchange/PublicFoldersMounted.ps1 deleted file mode 100644 index 2a0a2ff..0000000 --- a/nsclient/trunk/scripts/check_exchange/PublicFoldersMounted.ps1 +++ /dev/null @@ -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 diff --git a/nsclient/trunk/scripts/check_exchange/ReplicationHealth.ps1 b/nsclient/trunk/scripts/check_exchange/ReplicationHealth.ps1 deleted file mode 100644 index 50a040f..0000000 --- a/nsclient/trunk/scripts/check_exchange/ReplicationHealth.ps1 +++ /dev/null @@ -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 - - diff --git a/nsclient/trunk/scripts/check_exchange/test.bat b/nsclient/trunk/scripts/check_exchange/test.bat deleted file mode 100644 index 103e93f..0000000 --- a/nsclient/trunk/scripts/check_exchange/test.bat +++ /dev/null @@ -1 +0,0 @@ -start powershell c:\program files\nsclient++\scripts\check_exchange\MailboxHealth.ps1 diff --git a/nsclient/trunk/scripts/check_hpacucli/MSVCR71.dll b/nsclient/trunk/scripts/check_hpacucli/MSVCR71.dll deleted file mode 100644 index 9d9e028..0000000 Binary files a/nsclient/trunk/scripts/check_hpacucli/MSVCR71.dll and /dev/null differ diff --git a/nsclient/trunk/scripts/check_hpacucli/bz2.pyd b/nsclient/trunk/scripts/check_hpacucli/bz2.pyd deleted file mode 100644 index e0f7e0e..0000000 Binary files a/nsclient/trunk/scripts/check_hpacucli/bz2.pyd and /dev/null differ diff --git a/nsclient/trunk/scripts/check_hpacucli/check_hpacucli.exe b/nsclient/trunk/scripts/check_hpacucli/check_hpacucli.exe deleted file mode 100644 index 478b5f6..0000000 Binary files a/nsclient/trunk/scripts/check_hpacucli/check_hpacucli.exe and /dev/null differ diff --git a/nsclient/trunk/scripts/check_hpacucli/check_hpacucli.py b/nsclient/trunk/scripts/check_hpacucli/check_hpacucli.py deleted file mode 100644 index b8dff8e..0000000 --- a/nsclient/trunk/scripts/check_hpacucli/check_hpacucli.py +++ /dev/null @@ -1,319 +0,0 @@ -#!/usr/bin/python -# -# Copyright 2010, Pall Sigurdsson -# -# 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 . - -# 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 ]" % 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() diff --git a/nsclient/trunk/scripts/check_hpacucli/library.zip b/nsclient/trunk/scripts/check_hpacucli/library.zip deleted file mode 100644 index 11bfd0f..0000000 Binary files a/nsclient/trunk/scripts/check_hpacucli/library.zip and /dev/null differ diff --git a/nsclient/trunk/scripts/check_hpacucli/python25.dll b/nsclient/trunk/scripts/check_hpacucli/python25.dll deleted file mode 100644 index 2058464..0000000 Binary files a/nsclient/trunk/scripts/check_hpacucli/python25.dll and /dev/null differ diff --git a/nsclient/trunk/scripts/check_hpacucli/select.pyd b/nsclient/trunk/scripts/check_hpacucli/select.pyd deleted file mode 100644 index cc70648..0000000 Binary files a/nsclient/trunk/scripts/check_hpacucli/select.pyd and /dev/null differ diff --git a/nsclient/trunk/scripts/check_hpacucli/setup.py b/nsclient/trunk/scripts/check_hpacucli/setup.py deleted file mode 100644 index 90a86e9..0000000 --- a/nsclient/trunk/scripts/check_hpacucli/setup.py +++ /dev/null @@ -1,4 +0,0 @@ -from distutils.core import setup -import py2exe - -setup(console=['check_hpacucli.py']) \ No newline at end of file diff --git a/nsclient/trunk/scripts/check_hpacucli/unicodedata.pyd b/nsclient/trunk/scripts/check_hpacucli/unicodedata.pyd deleted file mode 100644 index 2436374..0000000 Binary files a/nsclient/trunk/scripts/check_hpacucli/unicodedata.pyd and /dev/null differ diff --git a/nsclient/trunk/scripts/check_hpacucli/w9xpopen.exe b/nsclient/trunk/scripts/check_hpacucli/w9xpopen.exe deleted file mode 100644 index 7eb67c9..0000000 Binary files a/nsclient/trunk/scripts/check_hpacucli/w9xpopen.exe and /dev/null differ diff --git a/nsclient/trunk/scripts/check_no_rdp.bat b/nsclient/trunk/scripts/check_no_rdp.bat deleted file mode 100755 index 8b14dad..0000000 --- a/nsclient/trunk/scripts/check_no_rdp.bat +++ /dev/null @@ -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 diff --git a/nsclient/trunk/scripts/check_ok.bat b/nsclient/trunk/scripts/check_ok.bat deleted file mode 100755 index 1912abf..0000000 --- a/nsclient/trunk/scripts/check_ok.bat +++ /dev/null @@ -1,2 +0,0 @@ -@echo OK: Everything is going to be fine a -@exit 0 \ No newline at end of file diff --git a/nsclient/trunk/scripts/check_printer.vbs b/nsclient/trunk/scripts/check_printer.vbs deleted file mode 100755 index 2449a9d..0000000 --- a/nsclient/trunk/scripts/check_printer.vbs +++ /dev/null @@ -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 diff --git a/nsclient/trunk/scripts/check_test.bat b/nsclient/trunk/scripts/check_test.bat deleted file mode 100755 index 8c8a92e..0000000 --- a/nsclient/trunk/scripts/check_test.bat +++ /dev/null @@ -1,2 +0,0 @@ -@echo CRITICAL: Everything is not going to be ok! (%1 %2 %3) -@exit 2 \ No newline at end of file diff --git a/nsclient/trunk/scripts/check_test.ps1 b/nsclient/trunk/scripts/check_test.ps1 deleted file mode 100755 index 43dcfe6..0000000 --- a/nsclient/trunk/scripts/check_test.ps1 +++ /dev/null @@ -1,2 +0,0 @@ -write-host "UNKNOWN: Everything is not going to be fine!" -exit 3 diff --git a/nsclient/trunk/scripts/check_test.vbs b/nsclient/trunk/scripts/check_test.vbs deleted file mode 100755 index 6b3b5e3..0000000 --- a/nsclient/trunk/scripts/check_test.vbs +++ /dev/null @@ -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 diff --git a/nsclient/trunk/scripts/date.exe b/nsclient/trunk/scripts/date.exe deleted file mode 100644 index 069bae1..0000000 Binary files a/nsclient/trunk/scripts/date.exe and /dev/null differ diff --git a/nsclient/trunk/scripts/df.exe b/nsclient/trunk/scripts/df.exe deleted file mode 100644 index e7b655f..0000000 Binary files a/nsclient/trunk/scripts/df.exe and /dev/null differ diff --git a/nsclient/trunk/scripts/head.exe b/nsclient/trunk/scripts/head.exe deleted file mode 100755 index 7f5ef87..0000000 Binary files a/nsclient/trunk/scripts/head.exe and /dev/null differ diff --git a/nsclient/trunk/scripts/install.bat b/nsclient/trunk/scripts/install.bat deleted file mode 100755 index f64b75a..0000000 --- a/nsclient/trunk/scripts/install.bat +++ /dev/null @@ -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 diff --git a/nsclient/trunk/scripts/lib/NagiosPlugins.vbs b/nsclient/trunk/scripts/lib/NagiosPlugins.vbs deleted file mode 100755 index a099260..0000000 --- a/nsclient/trunk/scripts/lib/NagiosPlugins.vbs +++ /dev/null @@ -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 = "" - - 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 diff --git a/nsclient/trunk/scripts/lib/wrapper.vbs b/nsclient/trunk/scripts/lib/wrapper.vbs deleted file mode 100755 index 7065d2e..0000000 --- a/nsclient/trunk/scripts/lib/wrapper.vbs +++ /dev/null @@ -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 [...]" & 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 diff --git a/nsclient/trunk/scripts/test.lua b/nsclient/trunk/scripts/test.lua deleted file mode 100755 index 8cfb9cd..0000000 --- a/nsclient/trunk/scripts/test.lua +++ /dev/null @@ -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 diff --git a/nsclient/trunk/scripts/wmi/CHANGELOG.txt b/nsclient/trunk/scripts/wmi/CHANGELOG.txt deleted file mode 100644 index 5b4c39b..0000000 --- a/nsclient/trunk/scripts/wmi/CHANGELOG.txt +++ /dev/null @@ -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'. diff --git a/nsclient/trunk/scripts/wmi/INSTALL.txt b/nsclient/trunk/scripts/wmi/INSTALL.txt deleted file mode 100644 index 4c23a7b..0000000 --- a/nsclient/trunk/scripts/wmi/INSTALL.txt +++ /dev/null @@ -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'. \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/README.txt b/nsclient/trunk/scripts/wmi/README.txt deleted file mode 100644 index ce30a0d..0000000 --- a/nsclient/trunk/scripts/wmi/README.txt +++ /dev/null @@ -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'. \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/WMI agentless plugins.pdf b/nsclient/trunk/scripts/wmi/WMI agentless plugins.pdf deleted file mode 100644 index a52d500..0000000 Binary files a/nsclient/trunk/scripts/wmi/WMI agentless plugins.pdf and /dev/null differ diff --git a/nsclient/trunk/scripts/wmi/check_100nsec_timer.vbs b/nsclient/trunk/scripts/wmi/check_100nsec_timer.vbs deleted file mode 100644 index 66afe17..0000000 --- a/nsclient/trunk/scripts/wmi/check_100nsec_timer.vbs +++ /dev/null @@ -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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/check_counter_bulk_count.vbs b/nsclient/trunk/scripts/wmi/check_counter_bulk_count.vbs deleted file mode 100644 index 6930c71..0000000 --- a/nsclient/trunk/scripts/wmi/check_counter_bulk_count.vbs +++ /dev/null @@ -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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/check_counter_counter.vbs b/nsclient/trunk/scripts/wmi/check_counter_counter.vbs deleted file mode 100644 index eeef3cb..0000000 --- a/nsclient/trunk/scripts/wmi/check_counter_counter.vbs +++ /dev/null @@ -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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/check_counter_large_rawcount.vbs b/nsclient/trunk/scripts/wmi/check_counter_large_rawcount.vbs deleted file mode 100644 index a58b178..0000000 --- a/nsclient/trunk/scripts/wmi/check_counter_large_rawcount.vbs +++ /dev/null @@ -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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/check_counter_rawcount.vbs b/nsclient/trunk/scripts/wmi/check_counter_rawcount.vbs deleted file mode 100644 index 616f749..0000000 --- a/nsclient/trunk/scripts/wmi/check_counter_rawcount.vbs +++ /dev/null @@ -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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/check_cpu_load_percentage.vbs b/nsclient/trunk/scripts/wmi/check_cpu_load_percentage.vbs deleted file mode 100644 index d73372f..0000000 --- a/nsclient/trunk/scripts/wmi/check_cpu_load_percentage.vbs +++ /dev/null @@ -1,1002 +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 CPU Load Percentage. 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_cpu_load_percentage.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 processors 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 processor. Note: each thresold pair separated by a ':', 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_cpu_load_percentage.vbs -h Ser1 -inst ""*"" -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] " &vbCrlF - str=str&"Example: cscript check_cpu_load_percentage.vbs -h Ser1 -inst ""CPU0, _Total"" -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] " &vbCrlF - str=str&"Example: cscript check_cpu_load_percentage.vbs -h Ser1 -inst ""CPU0, _Total"" -t ""70,90:60,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 = "Load Percentage" - intValue = objWMI.Properties_("LoadPercentage") - f_Display() - strResultTemp1 = strResultTemp1 & strResultTemp3 - strResultTemp2 = strResultTemp2 & strResultTemp4 - Next - strName = "_Total" - strPropName = "Load Percentage" -' intValue = Int(totalValue/objectCount) - intValue = Int(intAverageValue) - f_Display() - - strResultTemp1 = strResultTemp1 & strResultTemp3 - strResultTemp2 = strResultTemp2 & strResultTemp4 - intReturnTemp = intReturnTemp1 - Exit Function - else - if (Ucase(instance) = "_TOTAL") then - strName = "_Total" - strPropName = "Load Percentage" - intValue = intAverageValue - f_Display() - - strResultTemp1 = strResultTemp1 & strResultTemp3 - strResultTemp2 = strResultTemp2 & strResultTemp4 - intReturnTemp = intReturnTemp1 - Exit Function - else - For Each objWMI in colWMI - strName = objWMI.Properties_("DeviceID") - strPropName = "Load Percentage" - intValue = objWMI.Properties_("LoadPercentage") - if(Ucase(strName) = Ucase(instance)) then - f_Display() - strResultTemp1 = strResultTemp1 & strResultTemp3 - strResultTemp2 = strResultTemp2 & strResultTemp4 - intReturnTemp = intReturnTemp1 - Exit Function - end if - Next - strResultTemp1 = "Unknown - " & instance &" not exists." - 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 (Not(IsNumeric(intValue))) Then - Wscript.Echo "Unknown - LoadPercentage cannot be determined" - Wscript.Quit(intUnknown) - Exit Function - End If - 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 (Not(IsNumeric(intValue))) Then - Wscript.Echo "Unknown - LoadPercentage cannot be determined" - Wscript.Quit(intUnknown) - Exit Function - End If - 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: Get Prefix. -'Input: No. -'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 = 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_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 "Unknown - No data received from WMI;" - Wscript.Quit(intUnknown) - end if - - intValue = 0 - objectCount = 0 - totalValue = 0 - intAverageValue = 0 - - For Each objWMI in colWMI - intValueTemp = objWMI.Properties_("LoadPercentage") - totalValue = totalValue + intValueTemp - objectCount = objectCount + 1 - Next - intAverageValue = totalValue/objectCount - - 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() - '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_cpu_load_percentage.vbs" - strDescription="Enumerate the needed windows host information." - - '///////////////////// - - strNameSpace = "root\cimv2" - strClass = "Win32_Processor" - strProp = "DeviceID, LoadPercentage" - 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 diff --git a/nsclient/trunk/scripts/wmi/check_disks_io.vbs b/nsclient/trunk/scripts/wmi/check_disks_io.vbs deleted file mode 100644 index b3cb173..0000000 --- a/nsclient/trunk/scripts/wmi/check_disks_io.vbs +++ /dev/null @@ -1,1051 +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 propArray() -Dim propArraySize -Dim counterValueArray() -Dim timerValueTempArray() -Dim strNameArray() -Dim prop -Dim lWarningValue -Dim uWarningValue -Dim lCriticalValue -Dim uCriticalValue -Dim propInstanceArraySize - -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,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 Disks IO. 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_io.vbs -h hostname -prop properties -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&"-prop properties Must be one or multiple of DiskReadBytesPerSec, DiskReadsPerSec, DiskWriteBytesPerSec, and DiskWritesPerSec."&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 disk. Note: each threhsold pair separated by ':' 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_io.vbs -h Ser1 -prop ""DiskReadBytesPerSec, DiskWriteBytesPerSec"" -inst ""C:"" -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] " &vbCrlF - str=str&"Example: cscript check_disks_io.vbs -h Ser1 -prop ""DiskReadBytesPerSec, DiskReadsPerSec"" -inst ""C:, D:"" -t ""700,900:60,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() - - On Error Resume Next - - strResultTemp1 = "" - strResultTemp2 = "" - intResultTemp1 = 0 - strResultTemp = "" - intResultTemp = 0 - - ReDim strNameArray(Int(colWMI.count)) - ReDim counterValueArray(Int(colWMI.count)) - ReDim timerValueArray(Int(colWMI.count)) - strName = "" - strPropName = "" - counterValueTemp = 0 - timerValueTemp = 0 - timeBaseTemp = 0 - i, j = 0 - - For Each objWMITemp in colWMITemp - counterValueArray(i) = objWMITemp.Properties_(prop) - timerValueArray(i) = objWMITemp.Properties_("TimeStamp_PerfTime") - i = i + 1 - Next - - For Each objWMI in colWMI - strName = objWMI.Name - if(Ucase(strName) = Ucase(instance)) then - strPropName = objWMI.Properties_(prop).Name - counterValueTemp = objWMI.Properties_(prop) - timerValueTemp = objWMI.Properties_("TimeStamp_PerfTime") - timeBase = objWMI.Properties_("Frequency_PerfTime") - - if((timerValueTemp - timerValueArray(j)) = 0) then - intValue = 0 - f_Display() - else - intValue = Int((counterValueTemp - counterValueArray(j)) / ((timerValueTemp - timerValueArray(j)) / timeBase)) - f_display() - end if - strResultTemp1 = strResultTemp1 & strResultTemp3 - strResultTemp2 = strResultTemp2 & strResultTemp4 - intReturnTemp = intReturnTemp1 - Exit Function - end if - j = j + 1 - Next - - strResultTemp1 = "Unknown - " & instance & " no row return." - intReturnTemp = intUnknown - Exit Function - - 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: Get Prefix. -'Input: No. -'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 & "-" & strPropName & "'" & "=" & 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 DiskReadBytesPerSec, DiskReadsPerSec, DiskWriteBytesPerSec, DiskWritesPerSec, TimeStamp_PerfTime, Frequency_PerfTime" _ - & " from " & strClass - Set colWMITemp = objWMIService.ExecQuery(strQuery) - Wscript.Sleep(1000) - 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 * propArraySize)) 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 * propArraySize))) then - for i = 0 to instanceArraySize -1 - instance = instanceArray(i) - for j = 0 to propArraySize -1 - prop = propArray(j) - t = ((i*propArraySize) + j) - warningValue = warningArray(t) - criticalValue = criticalArray(t) - f_GetInstance() - strResult1 = strResult1 & strResultTemp1 - strResult2 = strResult2 & strResultTemp2 - if intReturn < intReturnTemp then - intReturn = intReturnTemp - end if - next - Next - Else - If(instanceArraySize > 0 and (warningArraySize > 1 Or criticalArraySize > 1)) Then - for i = 0 to instanceArraySize -1 - instance = instanceArray(i) - for j = 0 to propArraySize -1 - prop = propArray(j) - t = ((i*propArraySize) + j) - warningValue = warningArray(t) - criticalValue = criticalArray(t) - f_GetInstance() - strResult1 = strResult1 & strResultTemp1 - strResult2 = strResult2 & strResultTemp2 - if intReturn < intReturnTemp then - intReturn = intReturnTemp - end if - Next - - Next - Else - for i = 0 to instanceArraySize -1 - instance = instanceArray(i) - for j = 0 to propArraySize -1 - prop = propArray(j) - f_GetInstance() - strResult1 = strResult1 & strResultTemp1 - strResult2 = strResult2 & strResultTemp2 - if intReturn < intReturnTemp then - intReturn = intReturnTemp - end if - next - 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 - propInstanceArraySize = Int(instanceArraySize * propArraySize) - If(Int(warningArraySize) < Int(propInstanceArraySize)) Then - ReDim Preserve warningArray(propInstanceArraySize) - For i = 0 To (propInstanceArraySize - warningArraySize - 1) - warningArray(warningArraySize +i) = warningArray(warningArraySize-1) - Next - warningArraySize = propInstanceArraySize - 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(propInstanceArraySize)) Then - ReDim Preserve criticalArray(propInstanceArraySize) - For i = 0 To (propInstanceArraySize - criticalArraySize - 1) - criticalArray(criticalArraySize +i) = criticalArray(criticalArraySize-1) - Next - criticalArraySize = propInstanceArraySize - End If - - End Function - -'------------------------------------------------------------------------------------------------- -'Function Name: f_GetProps. -'Descripton: Get Prefix. -'Input: No. -'Output: No. -'------------------------------------------------------------------------------------------------- - Function f_GetProps() - - On Error Resume Next - - first = 1 - position = 0 - propArraySize = 0 - - position = InStr(first, strProp, ",") - if (position = 0) then - propTemp = strProp - propArraySize = 1 - ReDim propArray(propArraySize) - propArray(0) = propTemp - - else - do while (position > 0) - propTemp = Mid(strProp,first,position - first) - propArraySize = propArraySize + 1 - ReDim Preserve propArray(propArraySize) - propArray(propArraySize -1) = Trim(propTemp) - first = position + 1 - position = InStr(first, strProp, ",") - loop - propTemp = Mid(strProp,first,len(strProp)) - propArraySize = propArraySize + 1 - ReDim Preserve propArray(propArraySize) - propArray(propArraySize -1) = Trim(propTemp) - end if - - for i = 0 to propArraySize -1 - propTemp = propArray(i) - if ((StrComp(propTemp, "DiskReadBytesPerSec") = -1) and (StrComp(propTemp, "DiskReadsPerSec") = -1) and _ - (StrComp(propTemp, "DiskWriteBytesPerSec") = -1) and (StrComp(propTemp, "DiskWritesPerSec") = -1) ) then - Wscript.Echo "Error! Arguments wrong, " & propTemp & " is not supported." - Wscript.Quit(intError) - end if - Next - - 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() - '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_disks_io.vbs" - strDescription="Enumerate the needed windows host information." - - '///////////////////// - - strNameSpace = "root\cimv2" - strClass = "Win32_PerfRawData_PerfDisk_LogicalDisk" - - 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 (2 < tempCount < 8)) then - strComputer = f_GetOneArg("-h") - strProp = f_GetOneArg("-prop") - f_GetProps() - 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 = "") or (strProp = "")) then - Wscript.Echo "Error! Arguments wrong, require verify -h -prop -inst parameters" - Wscript.Quit(intError) - else - - Select Case tempCount - Case 3: - f_LocalPerfValue() - Case 4: - if(strThresolds <> "") then - f_GetThresolds() - f_LocalPerfValue() - - else - Wscript.Echo "Error! Arguments wrong, please verify -t parameters" - Wscript.Quit(intError) - end if - Case 5: - 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 (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 7: - 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 8: - 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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/check_disks_percentage_space_used.vbs b/nsclient/trunk/scripts/wmi/check_disks_percentage_space_used.vbs deleted file mode 100644 index c23318a..0000000 --- a/nsclient/trunk/scripts/wmi/check_disks_percentage_space_used.vbs +++ /dev/null @@ -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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/check_memory_percentage_space_used.vbs b/nsclient/trunk/scripts/wmi/check_memory_percentage_space_used.vbs deleted file mode 100644 index afaa0fa..0000000 --- a/nsclient/trunk/scripts/wmi/check_memory_percentage_space_used.vbs +++ /dev/null @@ -1,1003 +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 percentPhysical -Dim percentVirtual -Dim percentTotal - -Dim ArgCount -Dim strArgMain(10) -Dim strArgSortDes(10) -Dim strArgDetailDes(10) -Dim strArgExample(10) - -Dim objWMIService, colWMI1, colWMI2, objWMI1, objWMI2,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 Memory 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_memory_percentage_space_used.vbs -h hostname -inst memory [-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 memory Memory categories as RAM, PAGING, _TOTAL."&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 againts with each individual memory categories. Note: each thresold pair is separated by a ':', warning value and critical separate 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_memory_percentage_space_used.vbs -h Ser1 -inst ""*"" -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] " &vbCrlF - str=str&"Example: cscript check_memory_percentage_space_used.vbs -h Ser1 -inst ""RAM, _Total"" -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] " &vbCrlF - str=str&"Example: cscript check_memory_percentage_space_used.vbs -h Ser1 -inst ""RAM, _Total"" -t ""70,90:60,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 - strPropName = "Percentage Space Used" - - if(instance = "*") then - strName = "RAM" - intValue = Int(percentPhysical) - f_Display() - strResultTemp1 = strResultTemp1 & strResultTemp3 - strResultTemp2 = strResultTemp2 & strResultTemp4 - - strName = "PAGING" - intValue = Int(percentVirtual) - f_Display() - strResultTemp1 = strResultTemp1 & strResultTemp3 - strResultTemp2 = strResultTemp2 & strResultTemp4 - - strName = "_Total" - intValue = Int(percentTotal) - f_Display() - - strResultTemp1 = strResultTemp1 & strResultTemp3 - strResultTemp2 = strResultTemp2 & strResultTemp4 - intReturnTemp = intReturnTemp1 - - Exit Function - else - if(UCase(instance) = "RAM") then - strName = instance - intValue = Int(percentPhysical) - f_Display() - strResultTemp1 = strResultTemp3 - strResultTemp2 = strResultTemp4 - intReturnTemp = intReturnTemp1 - Exit Function - else - if(UCase(instance) = "PAGING") then - strName = instance - intValue = Int(percentVirtual) - f_Display() - strResultTemp1 = strResultTemp3 - strResultTemp2 = strResultTemp4 - intReturnTemp = intReturnTemp1 - Exit Function - else - if(UCase(instance) = "_TOTAL") then - strName = instance - intValue = Int(percentTotal) - f_Display() - strResultTemp1 = strResultTemp3 - strResultTemp2 = strResultTemp4 - intReturnTemp = intReturnTemp1 - Exit Function - else - strResultTemp1 = "Unknown - " & instance &" query: No row returned." - intReturnTemp = intUnknown - Exit Function - end if - end if - 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_Display. -'Descripton: Get Prefix. -'Input: No. -'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 = 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_ExecQuery. -'Descripton: Format data the same as output. -'Input: service. -'Output: No. -'------------------------------------------------------------------------------------------------- - Function f_ExecQuery() - - On Error Resume Next - - percentPhysical = 0 - percentVirtual = 0 - percentTotal = 0 - count = -1 - strQuery = "Select " & strProp & " from " & strClass - Set colWMI = objWMIService.ExecQuery(strQuery) - count = colWMI.count - if(count = -1) then - Wscript.Echo "Unknown - No data received from WMI;" - Wscript.Quit(intUnknown) - end if - For Each objWMI in colWMI - intFreePhysical = objWMI.Properties_("FreePhysicalMemory") - intFreeVirtual = objWMI.Properties_("FreeVirtualMemory") - intTotalPhysical = objWMI.Properties_("TotalVisibleMemorySize") - intTotalVirtual = objWMI.Properties_("TotalVirtualMemorySize") - Next - - percentPhysical = ((intTotalPhysical - intFreePhysical)*100)/intTotalPhysical - percentVirtual = ((intTotalVirtual - intFreeVirtual)*100)/intTotalVirtual - percentTotal = (intTotalPhysical * 1 + intTotalVirtual - intFreePhysical - intFreeVirtual)*100/(intTotalPhysical * 1 + intTotalVirtual) - 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() - 'Set colInstances1 = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\" & strNameSpace).InstancesOf(strClass) - 'For Each objInstance1 in colInstances1 - '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 colInstances1 = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass).InstancesOf(strClass) - 'For Each objInstance1 in colInstances1 - 'Next - 'f_Error() - else - Set objWMIService = objSWbemLocator.ConnectServer _ - (strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain ) - f_Error() - - 'Set colInstances1 = objSWbemLocator.ConnectServer(strComputer, strNamespace , strUser, strPass,"MS_409","ntlmdomain:" & strDomain ).InstancesOf(strClass) - 'For Each objInstance1 in colInstances1 - 'Next - 'f_Error() - end if - objWMIService.Security_.ImpersonationLevel = 3 - f_Error() - - f_ExecQuery() - 'f_GetInstances() - f_GetInformation() - - End Function - -'************************************************************************************************* -' Main Function -'************************************************************************************************* - - '///////////////////// - - strCommandName="check_memory_percentage_space_used.vbs" - strDescription="Enumerate the needed windows host information." - - '///////////////////// - - strNameSpace = "root\cimv2" - strClass = "Win32_OperatingSystem" - strProp = "FreePhysicalMemory, FreeVirtualMemory, TotalVirtualMemorySize, TotalVisibleMemorySize" - 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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/check_network_io.vbs b/nsclient/trunk/scripts/wmi/check_network_io.vbs deleted file mode 100644 index ae80787..0000000 --- a/nsclient/trunk/scripts/wmi/check_network_io.vbs +++ /dev/null @@ -1,1049 +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 propArray() -Dim propArraySize -Dim counterValueArray() -Dim timerValueTempArray() -Dim strNameArray() -Dim prop -Dim lWarningValue -Dim uWarningValue -Dim lCriticalValue -Dim uCriticalValue -Dim propInstanceArraySize - -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,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 Network IO. 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_network_io.vbs -h hostname -prop properties -inst Names [-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 name Name of network interface."&vbCrlF - str=str&"-prop properties Must be one or multiple of BytesReceivedPerSec, PacketsReceivedPerSec, BytesSentPerSec, PacketsSentPerSec."&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 network interface. Note: each thresold pair separated by ':', 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_network_io.vbs -h Ser1 -prop ""PacketsReceivedPerSec, PacketsSentPerSec"" -inst ""MS TCP Loopback interface"" -w 30 -c 70 [-user Ser1\Administrator -pass password -domain ITSP] " &vbCrlF - str=str&"Example: cscript check_network_io.vbs -h Ser1 -inst -prop ""BytesReceivedPerSec, PacketsReceivedPerSec"" -inst ""LAN1, WAN1"" -t ""700,900:60,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() - - On Error Resume Next - - strResultTemp1 = "" - strResultTemp2 = "" - intResultTemp1 = 0 - strResultTemp = "" - intResultTemp = 0 - - ReDim strNameArray(Int(colWMI.count)) - ReDim counterValueArray(Int(colWMI.count)) - ReDim timerValueArray(Int(colWMI.count)) - strName = "" - strPropName = "" - counterValueTemp = 0 - timerValueTemp = 0 - timeBaseTemp = 0 - i, j = 0 - - For Each objWMITemp in colWMITemp - counterValueArray(i) = objWMITemp.Properties_(prop) - timerValueArray(i) = objWMITemp.Properties_("TimeStamp_PerfTime") - i = i + 1 - Next - - For Each objWMI in colWMI - strName = objWMI.Name - isValid=InStr(1,Ucase(strName),Ucase(instance),1) - if (isValid > 0) then - strPropName = objWMI.Properties_(prop).Name - counterValueTemp = objWMI.Properties_(prop) - timerValueTemp = objWMI.Properties_("TimeStamp_PerfTime") - timeBase = objWMI.Properties_("Frequency_PerfTime") - - if((timerValueTemp - timerValueArray(j)) = 0) then - intValue = 0 - f_Display() - else - intValue = Int((counterValueTemp - counterValueArray(j)) / ((timerValueTemp - timerValueArray(j)) / timeBase)) - f_display() - end if - strResultTemp1 = strResultTemp3 - strResultTemp2 = strResultTemp4 - intReturnTemp = intReturnTemp1 - Exit Function - end if - j = j + 1 - Next - - strResultTemp1 = "Unknown - " & instance & " no row return." - intReturnTemp = intUnknown - Exit Function - - 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: Get Prefix. -'Input: No. -'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 = 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_ExecQuery. -'Descripton: Format data the same as output. -'Input: service. -'Output: No. -'------------------------------------------------------------------------------------------------- - Function f_ExecQuery() - - On Error Resume Next - - strQuery = "Select BytesReceivedPerSec, PacketsReceivedPerSec, BytesSentPerSec, PacketsSentPerSec, TimeStamp_PerfTime, Frequency_PerfTime" _ - & " from " & strClass - Set colWMITemp = objWMIService.ExecQuery(strQuery) - Wscript.Sleep(1000) - 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 * propArraySize)) 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 * propArraySize))) then - for i = 0 to instanceArraySize -1 - instance = instanceArray(i) - for j = 0 to propArraySize -1 - prop = propArray(j) - t = ((i*propArraySize) + j) - warningValue = warningArray(t) - criticalValue = criticalArray(t) - f_GetInstance() - strResult1 = strResult1 & strResultTemp1 - strResult2 = strResult2 & strResultTemp2 - if intReturn < intReturnTemp then - intReturn = intReturnTemp - end if - next - Next - Else - If(instanceArraySize > 0 and (warningArraySize > 1 Or criticalArraySize > 1)) Then - for i = 0 to instanceArraySize -1 - instance = instanceArray(i) - for j = 0 to propArraySize -1 - prop = propArray(j) - t = ((i*propArraySize) + j) - warningValue = warningArray(t) - criticalValue = criticalArray(t) - f_GetInstance() - strResult1 = strResult1 & strResultTemp1 - strResult2 = strResult2 & strResultTemp2 - if intReturn < intReturnTemp then - intReturn = intReturnTemp - end if - Next - - Next - Else - for i = 0 to instanceArraySize -1 - instance = instanceArray(i) - for j = 0 to propArraySize -1 - prop = propArray(j) - f_GetInstance() - strResult1 = strResult1 & strResultTemp1 - strResult2 = strResult2 & strResultTemp2 - if intReturn < intReturnTemp then - intReturn = intReturnTemp - end if - next - 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 - propInstanceArraySize = Int(instanceArraySize * propArraySize) - If(Int(warningArraySize) < Int(propInstanceArraySize)) Then - ReDim Preserve warningArray(propInstanceArraySize) - For i = 0 To (propInstanceArraySize - warningArraySize - 1) - warningArray(warningArraySize +i) = warningArray(warningArraySize-1) - Next - warningArraySize = propInstanceArraySize - 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(propInstanceArraySize)) Then - ReDim Preserve criticalArray(propInstanceArraySize) - For i = 0 To (propInstanceArraySize - criticalArraySize - 1) - criticalArray(criticalArraySize +i) = criticalArray(criticalArraySize-1) - Next - criticalArraySize = propInstanceArraySize - End If - - End Function - -'------------------------------------------------------------------------------------------------- -'Function Name: f_GetProps. -'Descripton: Get Prefix. -'Input: No. -'Output: No. -'------------------------------------------------------------------------------------------------- - Function f_GetProps() - - On Error Resume Next - - first = 1 - position = 0 - propArraySize = 0 - - position = InStr(first, strProp, ",") - if (position = 0) then - propTemp = strProp - propArraySize = 1 - ReDim propArray(propArraySize) - propArray(0) = propTemp - - else - do while (position > 0) - propTemp = Mid(strProp,first,position - first) - propArraySize = propArraySize + 1 - ReDim Preserve propArray(propArraySize) - propArray(propArraySize -1) = Trim(propTemp) - first = position + 1 - position = InStr(first, strProp, ",") - loop - propTemp = Mid(strProp,first,len(strProp)) - propArraySize = propArraySize + 1 - ReDim Preserve propArray(propArraySize) - propArray(propArraySize -1) = Trim(propTemp) - end if - - for i = 0 to propArraySize -1 - propTemp = propArray(i) - if ((StrComp(propTemp, "BytesReceivedPerSec") = -1) and (StrComp(propTemp, "PacketsReceivedPerSec") = -1) and _ - (StrComp(propTemp, "BytesSentPerSec") = -1) and (StrComp(propTemp, "PacketsSentPerSec") = -1) ) then - Wscript.Echo "Error! Arguments wrong, " & propTemp & " is not supported." - Wscript.Quit(intError) - end if - Next - - 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() - '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_network_io.vbs" - strDescription="Enumerate the needed windows host information." - - '///////////////////// - - strNameSpace = "root\cimv2" - strClass = "Win32_PerfRawData_Tcpip_NetworkInterface" - - 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 (2 < tempCount < 8)) then - strComputer = f_GetOneArg("-h") - strProp = f_GetOneArg("-prop") - f_GetProps() - 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 = "") or (strProp = "")) then - Wscript.Echo "Error! Arguments wrong, require verify -h -prop -inst parameters" - Wscript.Quit(intError) - else - - Select Case tempCount - Case 3: - f_LocalPerfValue() - Case 4: - if(strThresolds <> "") then - f_GetThresolds() - f_LocalPerfValue() - - else - Wscript.Echo "Error! Arguments wrong, please verify -t parameters" - Wscript.Quit(intError) - end if - Case 5: - 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 (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 7: - 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 8: - 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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/check_proc_num.vbs b/nsclient/trunk/scripts/wmi/check_proc_num.vbs deleted file mode 100644 index fb9190f..0000000 --- a/nsclient/trunk/scripts/wmi/check_proc_num.vbs +++ /dev/null @@ -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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/check_raw_fraction.vbs b/nsclient/trunk/scripts/wmi/check_raw_fraction.vbs deleted file mode 100644 index 810cd0d..0000000 --- a/nsclient/trunk/scripts/wmi/check_raw_fraction.vbs +++ /dev/null @@ -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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/check_services_states.vbs b/nsclient/trunk/scripts/wmi/check_services_states.vbs deleted file mode 100644 index 3e03121..0000000 --- a/nsclient/trunk/scripts/wmi/check_services_states.vbs +++ /dev/null @@ -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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/get_computer_info.vbs b/nsclient/trunk/scripts/wmi/get_computer_info.vbs deleted file mode 100644 index 33399a8..0000000 --- a/nsclient/trunk/scripts/wmi/get_computer_info.vbs +++ /dev/null @@ -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 diff --git a/nsclient/trunk/scripts/wmi/get_counter_type.vbs b/nsclient/trunk/scripts/wmi/get_counter_type.vbs deleted file mode 100644 index 311b72c..0000000 --- a/nsclient/trunk/scripts/wmi/get_counter_type.vbs +++ /dev/null @@ -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 [] [ ]" - 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 \ No newline at end of file diff --git a/nsclient/trunk/scripts/wmi/get_diskio.vbs b/nsclient/trunk/scripts/wmi/get_diskio.vbs deleted file mode 100644 index 6768326..0000000 --- a/nsclient/trunk/scripts/wmi/get_diskio.vbs +++ /dev/null @@ -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 - -'************************************************************************************************* -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 - - diff --git a/nsclient/trunk/scripts/wmi/get_netio.vbs b/nsclient/trunk/scripts/wmi/get_netio.vbs deleted file mode 100644 index 442a1df..0000000 --- a/nsclient/trunk/scripts/wmi/get_netio.vbs +++ /dev/null @@ -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 - -'************************************************************************************************* -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 - - diff --git a/nsclient/trunk/scripts/wmi/get_perfdata.vbs b/nsclient/trunk/scripts/wmi/get_perfdata.vbs deleted file mode 100644 index 82e7be4..0000000 --- a/nsclient/trunk/scripts/wmi/get_perfdata.vbs +++ /dev/null @@ -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 diff --git a/nsclient/trunk/scripts/wmi/verify_wmi_status.vbs b/nsclient/trunk/scripts/wmi/verify_wmi_status.vbs deleted file mode 100644 index 3c886e1..0000000 --- a/nsclient/trunk/scripts/wmi/verify_wmi_status.vbs +++ /dev/null @@ -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 \ No newline at end of file diff --git a/nsclient/trunk/sssu.exe b/nsclient/trunk/sssu.exe deleted file mode 100644 index 4d1f782..0000000 Binary files a/nsclient/trunk/sssu.exe and /dev/null differ diff --git a/nsclient/trunk/wmi.ini b/nsclient/trunk/wmi.ini deleted file mode 100644 index 2946431..0000000 --- a/nsclient/trunk/wmi.ini +++ /dev/null @@ -1,182 +0,0 @@ - - -[External Scripts] -# ================================= -# Enumeration checks -# ================================= -show_net=cscript.exe //nologo //T:60 scripts\wmi\get_computer_info.vbs -h "$ARG1$" -i network_interfaces -show_net_auth=cscript.exe //nologo //T:60 scripts\wmi\get_computer_info.vbs -h "$ARG1$" -i network_interfaces -user "$ARG2$" -pass "$ARG3$" -show_disks=cscript.exe //nologo //T:60 scripts\wmi\get_computer_info.vbs -h "$ARG1$" -i logical_disks -show_disks_auth=cscript.exe //nologo //T:60 scripts\wmi\get_computer_info.vbs -h "$ARG1$" -i logical_disks -user "$ARG2$" -pass "$ARG3$" -show_procs=cscript.exe //nologo //T:60 scripts\wmi\get_computer_info.vbs -h "$ARG1$" -i running_processes -show_procs_auth=cscript.exe //nologo //T:60 scripts\wmi\get_computer_info.vbs -h "$ARG1$" -i running_processes -user "$ARG2$" -pass "$ARG3$" -show_cpus=cscript.exe //nologo //T:60 scripts\wmi\get_computer_info.vbs -h "$ARG1$" -i all_processors -show_cpus_auth=cscript.exe //nologo //T:60 scripts\wmi\get_computer_info.vbs -h "$ARG1$" -i all_processors -user "$ARG2$" -pass "$ARG3$" -show_properties=cscript.exe //nologo //T:60 scripts\wmi\get_counter_type.vbs "$ARG1$" "$ARG2$" -show_properties_auth=cscript.exe //nologo //T:60 scripts\wmi\get_counter_type.vbs "$ARG1$" "$ARG2$" "$ARG3$" "$ARG4$" -show_property_type=cscript.exe //nologo //T:60 scripts\wmi\get_counter_type.vbs "$ARG1$" "$ARG2$" "$ARG3$" -show_property_type_auth=cscript.exe //nologo //T:60 scripts\wmi\get_counter_type.vbs "$ARG1$" "$ARG2$" "$ARG3$" "$ARG4$" "$ARG5$" -show_os=cscript.exe //nologo //T:60 scripts\wmi\verify_wmi_status.vbs -h "$ARG1$" -show_os_auth=cscript.exe //nologo //T:60 scripts\wmi\verify_wmi_status.vbs -h "$ARG1$" -user "$ARG2$" -pass "$ARG3$" - -# Example calls from check_nrpe: -# ./check_nrpe -H -c show_properties -a Win32_PerfRawData_PerfOS_Memory -# ./check_nrpe -H -c show_property_type -a Win32_PerfRawData_PerfOS_Memory WriteCopiesPersec - -# ================================= -# Disk percentage used checks -# ================================= -get_disk=cscript.exe //nologo //T:60 scripts\wmi\check_disks_percentage_space_used.vbs -h "$ARG1$" -inst "$ARG2$" -t "$ARG3$" -get_disk_auth=cscript.exe //nologo //T:60 scripts\wmi\check_disks_percentage_space_used.vbs -h "$ARG1$" -inst "$ARG2$" -t "$ARG3$" -user "$ARG4$" -pass "$ARG5$" - -# Example call from check_nrpe: -# ./check_nrpe -H -c get_disk -a C:,D: 80,90:70,60 - -# ================================= -# Memory percentage used checks -# ================================= -get_mem=cscript.exe //nologo //T:60 scripts\wmi\check_memory_percentage_space_used.vbs -h "$ARG1$" -inst "$ARG2$" -t "$ARG3$" -get_mem_auth=cscript.exe //nologo //T:60 scripts\wmi\check_memory_percentage_space_used.vbs -h "$ARG1$" -inst "$ARG2$" -t "$ARG3$" -user "$ARG4$" -pass "$ARG5$" - -# Example call from check_nrpe: -# ./check_nrpe -H -c get_mem -a RAM,_TOTAL 80,90:80,90 - -# ================================= -# CPU Load checks -# ================================= -get_cpu=cscript.exe //nologo //T:60 scripts\wmi\check_cpu_load_percentage.vbs -h "$ARG1$" -inst "$ARG2$" -t "$ARG3$" -get_cpu_auth=cscript.exe //nologo //T:60 scripts\wmi\check_cpu_load_percentage.vbs -h "$ARG1$" -inst "$ARG2$" -t "$ARG3$" -user "$ARG4$" -pass "$ARG5$" - -# Example call from check_nrpe: -# ./check_nrpe -H -c get_cpu -a CPU0 80,90 - -# ================================= -# Network IO checks -# ================================= -get_netio=cscript.exe //nologo //T:60 scripts\wmi\check_network_io.vbs -h "$ARG1$" -inst "$ARG2$" -prop "$ARG3$" -t "$ARG4$" -get_netio_auth=cscript.exe //nologo //T:60 scripts\wmi\check_network_io.vbs -h "$ARG1$" -inst "$ARG2$" -prop "$ARG3$" -t "$ARG4$" -user "$ARG5$" -pass "$ARG6$" - -# Example call from check_nrpe: -# ./check_nrpe -H -c get_netio -a "MS TCP Loopback Interface" "BytesReceivedPerSec" 300,1000 - -# ================================= -# Disk IO checks -# ================================= -get_diskio=cscript.exe //nologo //T:60 scripts\wmi\check_disks_io.vbs -h "$ARG1$" -inst "$ARG2$" -prop "$ARG3$" -t "$ARG4$" -get_diskio_auth=cscript.exe //nologo //T:60 scripts\wmi\check_disks_io.vbs -h "$ARG1$" -inst "$ARG2$" -prop "$ARG3$" -t "$ARG4$" -user "$ARG5$" -pass "$ARG6$" - -# Example call from check_nrpe: -# ./check_nrpe -H -c get_diskio -a C: "DiskReadBytesPerSec,DiskWriteBytesPerSec" 300,1000:500,2000 - -# ================================= -# Service checks -# ================================= -get_service=cscript.exe //nologo //T:60 scripts\wmi\check_services_states.vbs -h "$ARG1$" -inst "$ARG2$" -get_service_auth=cscript.exe //nologo //T:60 scripts\wmi\check_services_states.vbs -h "$ARG1$" -inst "$ARG2$" -user "$ARG3$" -pass "$ARG4$" - -# Example call from check_nrpe: -# ./check_nrpe -H -c get_service -a winmgmt,msdtc - -# ================================= -# Process checks -# ================================= -get_process=cscript.exe //nologo //T:60 scripts\wmi\check_proc_num.vbs -h "$ARG1$" -inst "$ARG2$" -w "$ARG3$" -c "$ARG4$" -get_process_auth=cscript.exe //nologo //T:60 scripts\wmi\check_proc_num.vbs -h "$ARG1$" -inst "$ARG2$" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" - -# Example call from check_nrpe: -# ./check_nrpe -H -c get_process -a Name=svchost.exe,Name=cmd.exe 15 20 -# (at present this plug-in does not support thresholds as minimums) - -# ================================= -# Counter checks -# ================================= -get_100nsec_timer=cscript.exe //nologo //T:60 scripts\wmi\check_100nsec_timer.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -get_100nsec_timer_auth=cscript.exe //nologo //T:60 scripts\wmi\check_100nsec_timer.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -user "$ARG7$" -pass "$ARG8$" -get_counter_bulk_count=cscript.exe //nologo //T:60 scripts\wmi\check_counter_bulk_count.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -get_counter_bulk_count_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_bulk_count.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -user "$ARG7$" -pass "$ARG8$" -get_counter_counter=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -get_counter_counter_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -user "$ARG7$" -pass "$ARG8$" -get_counter_large_rawcount=cscript.exe //nologo //T:60 scripts\wmi\check_counter_large_rawcount.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -get_counter_large_rawcount_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_large_rawcount.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -user "$ARG7$" -pass "$ARG8$" -get_counter_rawcount=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -get_counter_rawcount_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -user "$ARG7$" -pass "$ARG8$" -get_raw_fraction=cscript.exe //nologo //T:60 scripts\wmi\check_raw_fraction.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -get_raw_fraction_auth=cscript.exe //nologo //T:60 scripts\wmi\check_raw_fraction.vbs -h "$ARG1$" -class "$ARG2$" -inst "$ARG3$" -prop "$ARG4$" -w "$ARG5$" -c "$ARG6$" -user "$ARG7$" -pass "$ARG8$" - -# Example calls from check_nrpe: -# ./check_nrpe -H -c get_100nsec_timer -a Win32_PerfRawData_PerfOS_Processor Name=_Total PercentUserTime 80 90 -# ./check_nrpe -H -c get_counter_bulk_count -a Win32_PerfRawData_PerfOS_System '*' FileControlBytesPerSec 50000 100000 -# ./check_nrpe -H -c get_counter_counter -a Win32_PerfRawData_PerfOS_Processor Name=0,Name=1 InterruptsPerSec 20000 30000 -# ./check_nrpe -H -c get_counter_large_rawcount -a Win32_PerfRawData_PerfProc_Process Name=spoolsv WorkingSet 10000000 20000000 -# ./check_nrpe -H -c get_counter_rawcount -a Win32_PerfRawData_PerfProc_Process Name=spoolsv HandleCount 200 400 -# ./check_nrpe -H -c get_raw_fraction -a Win32_PerfRawData_PerfDisk_LogicalDisk Name=C: PercentFreeSpace 40 60 - -# Note: The above counter plug-ins are also used further below for obtaining information about specific Windows applications. At present the -# plug-ins don't supprt thresholds as minimums. Refer to http://windowssdk.msdn.microsoft.com/en-us/library/ms758298.aspx -# for documentation on performance counter types. - -# ================================= -# Updated checks from V1 -# ================================= -get_swapping=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_PerfOS_Memory" -inst "*" -prop "PagesPerSec" -w "$ARG2$" -c "$ARG3$" -get_swapping_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_PerfOS_Memory" -inst "*" -prop "PagesPerSec" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$" -get_disktransfers=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_PerfDisk_PhysicalDisk" -inst "$ARG2$" -prop "DiskTransfersPersec" -w "$ARG3$" -c "$ARG4$" -get_disktransfers_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_PerfDisk_PhysicalDisk" -inst "$ARG2$" -prop "DiskTransfersPersec" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_printqueue=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_Spooler_PrintQueue" -inst "$ARG2$" -prop "Jobs" -w "$ARG3$" -c "$ARG4$" -get_printqueue_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_Spooler_PrintQueue" -inst "$ARG2$" -prop "Jobs" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" - -get_exchange_mbox_recvq=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSExchangeIS_MSExchangeISMailbox" -inst "Name=_Total" -prop "ReceiveQueueSize" -w "$ARG2$" -c "$ARG3$" -get_exchange_mbox_recvq_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSExchangeIS_MSExchangeISMailbox" -inst "Name=_Total" -prop "ReceiveQueueSize" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$" -get_exchange_mbox_sendq=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSExchangeIS_MSExchangeISMailbox" -inst "Name=_Total" -prop "SendQueueSize" -w "$ARG2$" -c "$ARG3$" -get_exchange_mbox_sendq_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSExchangeIS_MSExchangeISMailbox" -inst "Name=_Total" -prop "SendQueueSize" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$" -get_exchange_pub_recvq=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSExchangeIS_MSExchangeISPublic" -inst "Name=_Total" -prop "ReceiveQueueSize" -w "$ARG2$" -c "$ARG3$" -get_exchange_pub_recvq_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSExchangeIS_MSExchangeISPublic" -inst "Name=_Total" -prop "ReceiveQueueSize" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$" -get_exchange_pub_sendq=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSExchangeIS_MSExchangeISPublic" -inst "Name=_Total" -prop "SendQueueSize" -w "$ARG2$" -c "$ARG3$" -get_exchange_pub_sendq_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSExchangeIS_MSExchangeISPublic" -inst "Name=_Total" -prop "SendQueueSize" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$" -get_exchange_mta_workq=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSExchangeMTA_MSExchangeMTA" -inst "*" -prop "WorkQueueLength" -w "$ARG2$" -c "$ARG3$" -get_exchange_mta_workq_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSExchangeMTA_MSExchangeMTA" -inst "*" -prop "WorkQueueLength" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$" - -get_iis_bytes_received=cscript.exe //nologo //T:60 scripts\wmi\check_counter_bulk_count.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "BytesReceivedPersec" -w "$ARG3$" -c "$ARG4$" -get_iis_bytes_received_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_bulk_count.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "BytesReceivedPersec" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_iis_bytes_sent=cscript.exe //nologo //T:60 scripts\wmi\check_counter_bulk_count.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "BytesSentPersec" -w "$ARG3$" -c "$ARG4$" -get_iis_bytes_sent_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_bulk_count.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "BytesSentPersec" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_iis_bytes_total=cscript.exe //nologo //T:60 scripts\wmi\check_counter_bulk_count.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "BytesTotalPersec" -w "$ARG3$" -c "$ARG4$" -get_iis_bytes_total_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_bulk_count.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "BytesTotalPersec" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_iis_currentconnections=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "CurrentConnections" -w "$ARG3$" -c "$ARG4$" -get_iis_currentconnections_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "CurrentConnections" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_iis_curnonanonusers=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "CurrentNonAnonymousUsers" -w "$ARG3$" -c "$ARG4$" -get_iis_curnonanonusers_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "CurrentNonAnonymousUsers" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_iis_get_requests=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "GetRequestsPersec" -w "$ARG3$" -c "$ARG4$" -get_iis_get_requests_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "GetRequestsPersec" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_iis_maximumconnections=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "MaximumConnections" -w "$ARG3$" -c "$ARG4$" -get_iis_maximumconnections_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "MaximumConnections" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_iis_post_requests=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "PostRequestsPersec" -w "$ARG3$" -c "$ARG4$" -get_iis_post_requests_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "PostRequestsPersec" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_iis_privatebytes=cscript.exe //nologo //T:60 scripts\wmi\check_counter_large_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_PerfProc_Process" -inst "Name=inetinfo" -prop "PrivateBytes" -w "$ARG2$" -c "$ARG3$" -get_iis_privatebytes_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_large_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_PerfProc_Process" -inst "Name=inetinfo" -prop "PrivateBytes" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$" -get_iis_totalnotfounderrors=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "TotalNotFoundErrors" -w "$ARG3$" -c "$ARG4$" -get_iis_totalnotfounderrors_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_W3SVC_WebService" -inst "$ARG2$" -prop "TotalNotFoundErrors" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" - -get_mssql_buf_cache_hit=cscript.exe //nologo //T:60 scripts\wmi\check_raw_fraction.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerBufferManager" -inst "*" -prop "Buffercachehitratio" -w "$ARG2$" -c "$ARG3$" -get_mssql_buf_cache_hit_auth=cscript.exe //nologo //T:60 scripts\wmi\check_raw_fraction.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerBufferManager" -inst "*" -prop "Buffercachehitratio" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$" -get_mssql_deadlocks=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerLocks" -inst "$ARG2$" -prop "NumberofDeadlocksPersec" -w "$ARG3$" -c "$ARG4$" -get_mssql_deadlocks_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerLocks" -inst "$ARG2$" -prop "NumberofDeadlocksPersec" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_mssql_fullscans=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerAccessMethods" -inst "*" -prop "FullScansPersec" -w "$ARG2$" -c "$ARG3$" -get_mssql_fullscans_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerAccessMethods" -inst "*" -prop "FullScansPersec" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$" - -get_mssql_latch_waits=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerLatches" -inst "*" -prop "Latchwaitspersec" -w "$ARG2$" -c "$ARG3$" -get_mssql_latch_waits_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerLatches" -inst "*" -prop "Latchwaitspersec" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$" -get_mssql_lock_wait_time=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerLocks" -inst "$ARG2$" -prop "LockWaitTimems" -w "$ARG3$" -c "$ARG4$" -get_mssql_lock_wait_time_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerLocks" -inst "$ARG2$" -prop "LockWaitTimems" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_mssql_lock_waits=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerLocks" -inst "$ARG2$" -prop "LockWaitsPersec" -w "$ARG3$" -c "$ARG4$" -get_mssql_lock_waits_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerLocks" -inst "$ARG2$" -prop "LockWaitsPersec" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_mssql_log_growth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerDatabases" -inst "$ARG2$" -prop "LogGrowths" -w "$ARG3$" -c "$ARG4$" -get_mssql_log_growth_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerDatabases" -inst "$ARG2$" -prop "LogGrowths" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_mssql_log_used=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerDatabases" -inst "$ARG2$" -prop "PercentLogUsed" -w "$ARG3$" -c "$ARG4$" -get_mssql_log_used_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerDatabases" -inst "$ARG2$" -prop "PercentLogUsed" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_mssql_memgrantspending=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerMemoryManager" -inst "*" -prop "MemoryGrantsPending" -w "$ARG2$" -c "$ARG3$" -get_mssql_memgrantspending_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerMemoryManager" -inst "*" -prop "MemoryGrantsPending" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$" -get_mssql_transactions=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerDatabases" -inst "$ARG2$" -prop "TransactionsPersec" -w "$ARG3$" -c "$ARG4$" -get_mssql_transactions_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_counter.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerDatabases" -inst "$ARG2$" -prop "TransactionsPersec" -w "$ARG3$" -c "$ARG4$" -user "$ARG5$" -pass "$ARG6$" -get_mssql_users=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerGeneralStatistics" -inst "*" -prop "UserConnections" -w "$ARG2$" -c "$ARG3$" -get_mssql_users_auth=cscript.exe //nologo //T:60 scripts\wmi\check_counter_rawcount.vbs -h "$ARG1$" -class "Win32_PerfRawData_MSSQLSERVER_SQLServerGeneralStatistics" -inst "*" -prop "UserConnections" -w "$ARG2$" -c "$ARG3$" -user "$ARG4$" -pass "$ARG5$"