Laboratoire Microsoft |  CertifExpress 
 Le Forum de Réfèrence sur les Technologies Microsoft - http://www.forum-microsoft.org

Test VBScript retourne UNKNOWN:-- TOPIC_SOLVED

Modérateurs : Modérateurs, Modérateurs_Divers

Test VBScript retourne UNKNOWN:--

Message par P.Perejot » Jeu 13 Avr 2017, 10:37

salut

J'ai un nagios 4.1 installé sous centos 6.8 et sur la machine distante j'ai nsclient 0.5 d'installé
je dois mettre en place une vérification de taille d'un dossier sur une machine
windows 7, je veux utilisé le script vbs suivant https://exchange.nagios.org/directory/Plugins/Operating-Systems/Windows-NRPE/check_folder_size-2Evbs/details
Du coup j'ai le télécharger et je le copier sur la machine windows où est installé le nsclient (C:\Program Files\NSClient++\scripts)
J'ai tester d'abord le script en local depuis l'invite de commandes
c:\Programm Files\NSClient++>scripts\check_folder_size.vbs

j'ai le résultat suivant : https://drive.google.com/file/d/0B3rPpOA9V6hldUhkc0VUc1VTOFk/view?usp=sharing
et le
echo %ERRORLEVEL%
me retourne 0

Doit-je modifier le script pour ajouter l'emplacement du dossier à supervisé ? si oui comment ?
Je tient à préciser que je n'y connais pas grand chose en VBScript

Merci de votre aide
P.Perejot
N00b
N00b
 
Message(s) : 5
Inscription : Jeu 13 Avr 2017, 10:28

Re: Test VBScript retourne UNKNOWN:--

Message par marcww » Jeu 13 Avr 2017, 12:15

Salut
Il est bien sûr important de vérifier si le nom du dossier à tester passe bien comme argument
strfolder = Wscript.Arguments(0)

En général il est souvent utile de vérifier (en les affichant) certaines valeurs
wscript.echo strfolder, intwarning, intcritic
(ligne à rajouter juste après la ligne intcritic = Wscript.Arguments(2) )

Marc
Avatar de l’utilisateur
marcww
Keyboard Master
Keyboard Master
 
Message(s) : 5401
Inscription : Sam 14 Juin 2003, 10:18
Localisation : Alsace

Re: Test VBScript retourne UNKNOWN:--

Message par P.Perejot » Jeu 13 Avr 2017, 12:24

Merci Marc

J'ai rajouter la ligne que tu m'a donner mais j'ai toujours le même message d'erreur
je vue sur d'autres forums que je dois déclarer l'emplacement du dossier à surveiller en dur dans le code comme ci-dessous mais ça me donne toujours le même message
Code : Tout sélectionner
strfolder = "C:\Test\WinNT"
intwarning = 60
intcritic = 40
P.Perejot
N00b
N00b
 
Message(s) : 5
Inscription : Jeu 13 Avr 2017, 10:28

Re: Test VBScript retourne UNKNOWN:--

Message par marcww » Jeu 13 Avr 2017, 12:59

Donc c'est avant que ça se passe
Il n'y a pas de numéro de ligne pour l'erreur ?
Essaie de mettre une ligne wscript.echo avant tes variables
Avatar de l’utilisateur
marcww
Keyboard Master
Keyboard Master
 
Message(s) : 5401
Inscription : Sam 14 Juin 2003, 10:18
Localisation : Alsace

Re: Test VBScript retourne UNKNOWN:--

Message par P.Perejot » Jeu 13 Avr 2017, 15:04

Merci de ta suggestion mais le script fonctionne maintenant et il me retourne la taille du dossier renseigner.
Le Voici :
Code : Tout sélectionner
Dim strfolder
Dim intwarning
Dim intcritic
Dim wsh
Dim intvelkost
Dim intjednotka
Dim Perf_Data
'##########################################################'
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set wsh = CreateObject("WScript.Shell")
'##########################################################'
strfolder = "C:\Test\WinNT"
intwarning = 60
intcritic = 40

Set objFolder = objFSO.GetFolder(strfolder)
intjednotka = 1048576 '1MB->bytes'
intvelkost = objFolder.Size/intjednotka
Perf_Data = "|'FolderSize'=" & round (objFolder.Size / 1048576,1) & "MB;"


if (objFolder.Size/1024000) > Cint(intcritic) then
    Wscript.Echo "CRITICAL:" & round (objFolder.Size / 1048576,1) & " MB" & Perf_Data
     Wscript.Quit(2)
elseif (objFolder.Size/1048576) > Cint(intwarning) then
    Wscript.Echo "WARNING:" & round (objFolder.Size / 1048576,1) & " MB" & Perf_Data
    Wscript.Quit(1)
else
    Wscript.Echo "OK:" & round (objFolder.Size /1048576,1) & " MB" & Perf_Data
    Wscript.Quit(0)
end if


Si je veux supervisé plusieurs dossiers qui se situe sur la même machine et dans le même répertoire, pense-tu que ce possible d'utiliser un seul script ou il en faut un par dossier ?
Comment pourrai-je changer l'unité de stockage de MB en Mo ou en Go ?

Merci encore
P.Perejot
N00b
N00b
 
Message(s) : 5
Inscription : Jeu 13 Avr 2017, 10:28

Re: Test VBScript retourne UNKNOWN:--

Message par marcww » Jeu 13 Avr 2017, 19:37

Ca avance :)
Beaucoup de choses sont possibles en vbs ;)
Tu peux par ex mettre la liste de tes dossiers dans un fichier .txt et analyser chaque ligne (dossier)
Pour les tailles en MO GO il faut juste appliquer la bonne division à partir de la taille donnée par objFolder.Size
La taille étant donnée en octets, il suffit de diviser :
1 ko = 1024 octets
1 mo = 1024 ko ou 1048576 octets (ce qui est la valeur stockée dans la variable intjednotka et qui sert de diviseur pour donner la valeur en MB=MO)
1 go = 1024 mo ou 1073741824 octets

Marc
Avatar de l’utilisateur
marcww
Keyboard Master
Keyboard Master
 
Message(s) : 5401
Inscription : Sam 14 Juin 2003, 10:18
Localisation : Alsace

Re: Test VBScript retourne UNKNOWN:--

Message par P.Perejot » Ven 14 Avr 2017, 11:30

bonjour Marc

Voici le code que je mis dans un fichier .txt avec la liste des dossiers à checker
Code : Tout sélectionner
Dim objShell
Set objShell = Wscript.CreateObject("WScript.Shell")

objShell.Run "check_folder_size.vbs C:\Nom\Dossier1 50 60 "
objShell.Run "check_folder_size.vbs C:\Nom\Dossier2 10 250 "


Je le placer dans le répertoire où se situe le script check_folder_size.vbs mais c'est un peu flou pour moi, je ne vois pas comment tester tous ça
P.Perejot
N00b
N00b
 
Message(s) : 5
Inscription : Jeu 13 Avr 2017, 10:28

Re: Test VBScript retourne UNKNOWN:--

Message par marcww » Sam 15 Avr 2017, 12:19

Je ne pensais pas à ça mais à une liste des dossiers
La question qui se pose c'est ce que tu cherches comme résultat (écran, fichier) ?
Tu as besoin des valeurs limites ?
Marc
Avatar de l’utilisateur
marcww
Keyboard Master
Keyboard Master
 
Message(s) : 5401
Inscription : Sam 14 Juin 2003, 10:18
Localisation : Alsace

Re: Test VBScript retourne UNKNOWN:--

Message par P.Perejot » Mar 18 Avr 2017, 11:01

Je veux afficher sur nagios la taille des dossiers supervisés par exemple
https://drive.google.com/file/d/0B3rPpOA9V6hlUTBrUHVVall2TnM/view?usp=sharing

Pour les valeurs limite oui j'en ai besoin car j'aimerais avoir une alerte quand ces dossiers dépassent une certaine taille.
P.Perejot
N00b
N00b
 
Message(s) : 5
Inscription : Jeu 13 Avr 2017, 10:28

Re: Test VBScript retourne UNKNOWN:--  TOPIC_SOLVED

Message par marcww » Mar 18 Avr 2017, 13:31

Je ne connais pas nagios, ....
Comme c'est un outil de surveillance système et réseau n'intègre-t-il pas déjà ce que tu veux faire ?

Pourrais-tu juste dire précisément ce que tu veux comme résultat et sous quelle forme
Marc
Avatar de l’utilisateur
marcww
Keyboard Master
Keyboard Master
 
Message(s) : 5401
Inscription : Sam 14 Juin 2003, 10:18
Localisation : Alsace


Retour vers Programmation

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 8 invité(s)



Accueil | News | Articles | Tips | Outils | Certification | Easters Eggs
Essentiels | Glossaire | Vidos | Whitepapers | Essentiels | Bote Scripts
Conditions d'utilisation & Copyright | Respect de la vie prive