1049 lines
35 KiB
Plaintext
1049 lines
35 KiB
Plaintext
|
' 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
|