Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1512 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Test VBScript retourne UNKNOWN:--

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Test VBScript retourne UNKNOWN:--

n°2299192
mbout
Posté le 13-04-2017 à 10:55:36  profilanswer
 

Bonjour,  
 
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/directo [...] bs/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/0B3 [...] sp=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

mood
Publicité
Posté le 13-04-2017 à 10:55:36  profilanswer
 

n°2299254
aldo13000
Posté le 16-04-2017 à 20:34:11  profilanswer
 

Salut,
 
Oui il faut 3 arguments à ce script, en 1 le répertoire en 2 le seul de warning et en 3 le seuil critique, si tu as pas besoin des 2 derniers arguments tu changes comme ça:
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" )
'##########################################################'
If Wscript.Arguments.Count = 1 Then
strfolder = Wscript.Arguments(0)
Set objFolder = objFSO.GetFolder(strfolder)
intjednotka = 1048576 '1MB->bytes'
intvelkost = objFolder.Size/intjednotka
Perf_Data = "|'FolderSize'=" & round (objFolder.Size / 1048576,1) & "MB;"
Wscript.Echo "OK:" & round (objFolder.Size /1048576,1) & " MB" & Perf_Data
Wscript.Quit(0)
end if


---------------

n°2299300
mbout
Posté le 18-04-2017 à 11:59:22  profilanswer
 

Merci de ta réponse aldo13000 mais finalement j'ai trouver la solution à mon problème


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Test VBScript retourne UNKNOWN:--

 

Sujets relatifs
! UP ! VBScript Changer une imprimante par défaut grâce à son IPTest WS fonctionnalité?
VBScript : Conversion Encodage ISO vers UTF-8[VHDL] Test module
[RESOLU] l'exploration d'une base Openldap en vbscript[Résolu] VBScript Aspiration guillemet
test si un fichier est déja ouvert ou non , HELP !!![VBScript] Connexion oracle en sysdba
Test sur les couleurs des cellulesTest unitaire QUnit sans X11
Plus de sujets relatifs à : Test VBScript retourne UNKNOWN:--


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR