Erreur lancement Script VBS

Version imprimable

16/03/2018, 11h26
Maxime91

3 pièce(s) jointe(s)

Erreur lancement Script VBS

Bonjour,

Je suis alternance et je fais de la supervision avec Nagios. Mon tuteur m'a demandé de superviser la DFS de Windows, je me suis renseigné et c'est finalement possible : https://exchange.nagios.org/director...ackLog/details

Sur le site de Nagios Exchange, j'ai trouvé un script VBS, impossible de lancer sous Windows server 2016, j'ai un message d'erreur qui apparaît :

Pièce jointe 361157

De plus, quand j'essaye de l'éxécuter par mon serveur Centos 7 avec NRPE, le message d'erreur est :

Pièce jointe 361168

Je vous partage le script utilisé :

Pièce jointe 361164

je vous souhaite une bonne journée ! :)

Cordialement,
Maxime
16/03/2018, 12h15
ProgElecT

Salut Maxime91, bienvenue sur DVP

Un copier/coller du code serait plus pratique qu'une captrue d'écrcran, cela nous permettrai à nous aussi de faire du copier/coller plutôt que de retaper ton code :(

Essais une conversion plus grande, Clng ou Cdbl devrait être bon.

Script copié/collé

Bonjour ProgElect,

Merci de ta réponse, j'ai essayer d'utiliser tes deux solutions mais toujours le même problème.

Voici le script :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
strComputer = "." 
statecount = 0
mbcount = 0
counter = 0
BadGroupName = ""
Allgood = ""
Dim state(5)
state(0) = "Uninitialized"
state(1) = "Initialized"
state(2) = "Initial Sync"
state(3) = "Auto Recovery"
state(4) = "Normal"
state(5) = "In Error"
const intOK = 0
const intWarning = 1	
const intCritical = 2
const intUnknown = 3	
 
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDfs") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM DfsrReplicatedFolderInfo",,48) 
For Each objItem in colItems 
'Check State
If objItem.State = 4 then
'State Good, Check Conflict Size
If CInt(objItem.CurrentConflictSizeInMb) < CInt(WScript.Arguments.Item(0)) then
'Conflict Size Good, Check if first variable addition
 
If Allgood = "" then
Allgood = "State - " & state(objItem.State) & "  " & objItem.ReplicatedFolderName & " - " & objItem.CurrentConflictSizeInMb & "MB out of synch" & Chr(10)
else
Allgood = Allgood & "State - " & state(objItem.State) & "  " & objItem.ReplicatedFolderName & " - " & objItem.CurrentConflictSizeInMb & "MB out of synch" & Chr(10)
end if
 
else
'Conflict Size Bad, Check if first variable addition
mbcount = mbcount + 1
If BadGroupName = "" then
BadGroupName = objItem.ReplicatedFolderName & " - " & objItem.CurrentConflictSizeInMb & "MB out of synch"
else
BadGroupName = BadGroupName & " / " & objItem.ReplicatedFolderName & " - " & objItem.CurrentConflictSizeInMb & "MB out of synch; -"
end if
 
end if
 
 
else
'State Bad, Check if first variable addition
statecount = statecount + 1
If BadGroupName = "" then
BadGroupName = objItem.ReplicatedFolderName & " - " & state(objItem.State) & Chr(10)
else
BadGroupName = BadGroupName & " , " & objItem.ReplicatedFolderName & " - " & state(objItem.State) & Chr(10)
end if
 
end if
counter = counter + 1
Next
 
  if statecount > 0 then
    wscript.echo "CRITICAL - " & statecount & " Replication Group(s) Not in Normal state.  - " & BadGroupName
	wscript.echo BadGroupName
    wscript.quit(intCritical)
  else
    if mbcount > 0 then
    wscript.echo "Warning - " & mbcount & " Outside of conflict size in MB specified." & BadGroupName
	wscript.echo BadGroupName
    wscript.quit(intWarning)
  else
    wscript.echo counter & " Replication groups passed, all under " & CInt(WScript.Arguments.Item(0)) & "MB synch difference."
	wscript.echo Allgood
    wscript.quit(intOK)
	end if
  end if

16/03/2018, 14h07
ProgElecT

Re

Sachant que:
CurrentConflictSizeInMb en Type uint32 = plage 0 à 4 294 967 295

Alors que Cint renvoie un entier dans la plage -32 768 à 32 767 <---- trop petit
Clng converti en entier plage de -2 147 483 648 à 2 147 483 647 <---- trop petit
Ccur converti en décimale plage comprise entre -922 337 203 685 477,5808 et 922 337 203 685 477,5807 <--- suffisamment grand

Essais

Code:

If Ccur(objItem.CurrentConflictSizeInMb) < Ccur(WScript.Arguments.Item(0)) then

Reste encor un doute, quelle valeur peut prendre l'une et l'autre des valeurs: CurrentConflictSizeInMb et Item(0).
Peut être à vérifier avec cette ligne pour debuguer, juste avant la ligne If .... Then

Code:

MsgBox "objItem.CurrentConflictSizeInMb = " & objItem.CurrentConflictSizeInMb & vbNewline & "WScript.Arguments.Item(0) = " & WScript.Arguments.Item(0)
20/03/2018, 23h03
El_Titof

Bonjour,
WScript.Arguments.Item(0) permet de récupérer des paramètres en entrée du fichier vbscript

test.vbs argument
20/03/2018, 23h21
ProgElecT

Salut

objItem.CurrentConflictSizeInMb est de type numérique
Es tu sûr que Arguments.Item(0) est lui aussi de type numérique ?

Citation:

Envoyé par ProgElecT

Reste encor un doute, quelle valeur peut prendre l'une et l'autre des valeurs: CurrentConflictSizeInMb et Item(0).
Peut être à vérifier avec cette ligne pour debuguer, juste avant la ligne If .... Then

Code:

MsgBox "objItem.CurrentConflictSizeInMb = " & objItem.CurrentConflictSizeInMb & vbNewline & "WScript.Arguments.Item(0) = " & WScript.Arguments.Item(0)

Salut

Pour vérifier, en debug, les arguments passés au lancement du programme, ajoutes ces quelque lignes en tout début de ton code

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim RecupArguments
If wscript.Arguments.length >= 2 then
	RecupArguments = wscript.FullName & vbNewLine & "Le/les argument(s) sont:"
 
	For T = 0 to wscript.Arguments.length-1
		RecupArguments = RecupArguments & vbnewline & "Arg. N°" & T+1 & " " & wscript.arguments(T)
	Next
	MsgBox RecupArguments, vbinformation, T & " argument(s)"
	Else
	MsgBox "Le programme ""Argument.vbs"" a été lancé sans aucun argument.", vbinformation
End If