Soglia che deve essere superata per l'attivazione di un avviso di errore.
WarnThreshold
int
$Config/WarnThreshold$
Soglia che deve essere superata per l'attivazione di un messaggio di avviso.
Source Code:
<DataSourceModuleType ID="Microsoft.Windows.Server.2012.AD.Configuration.NetworkAdapters.DNS.DataSource" Accessibility="Internal" Batching="false">
<Configuration>
<xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" name="IntervalSeconds" type="xsd:int"/>
<xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" name="TimeoutSeconds" type="xsd:int"/>
<xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" name="ErrorThreshold" type="xsd:int"/>
<xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" name="WarnThreshold" type="xsd:int"/>
</Configuration>
<OverrideableParameters>
<OverrideableParameter ID="IntervalSeconds" Selector="$Config/IntervalSeconds$" ParameterType="int"/>
<OverrideableParameter ID="TimeoutSeconds" Selector="$Config/TimeoutSeconds$" ParameterType="int"/>
<OverrideableParameter ID="ErrorThreshold" Selector="$Config/ErrorThreshold$" ParameterType="int"/>
<OverrideableParameter ID="WarnThreshold" Selector="$Config/WarnThreshold$" ParameterType="int"/>
</OverrideableParameters>
<ModuleImplementation Isolation="Any">
<Composite>
<MemberModules>
<DataSource ID="DS" TypeID="System!System.CommandExecuterPropertyBagSource">
<IntervalSeconds>$Config/IntervalSeconds$</IntervalSeconds>
<ApplicationName>%windir%\system32\cscript.exe</ApplicationName>
<WorkingDirectory/>
<CommandLine>//nologo $file/NetworkAdapterDnsCheck.vbs$ $Config/ErrorThreshold$ $Config/WarnThreshold$</CommandLine>
<TimeoutSeconds>$Config/TimeoutSeconds$</TimeoutSeconds>
<RequireOutput>true</RequireOutput>
<Files>
<File>
<Name>NetworkAdapterDnsCheck.vbs</Name>
<Contents><Script>'*************************************************************************
' Script Name - Network Adapter DNS Check
'
' Purpose - Monitors the DNS servers on the network adapters
'
' (c) Copyright 2014, Microsoft Corporation, All Rights Reserved
' Proprietary and confidential to Microsoft Corporation
'*************************************************************************
Option Explicit
On Error Resume Next
SetLocale("en-us")
Sub Main()
Dim oParams, oAPI, oBag, oWMI, oAdapters, oAdapter, oPing, oStatus, sError, sGoodList, sErrorList
Dim iTotalAdapters, iWarnAdapters, iBadAdapters, iErrorThreshold, iWarnThreshold, i, sAdapterError, iGoodTotal
Set oParams = WScript.Arguments
Set oAPI = CreateObject("Mom.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()
if oParams.Count <> 2 then
sError = "The number of command line arguments is incorrect: " & vbCrLf & _
"Expected: 2" & vbCrLf & _
"Actual: " & oParams.Count
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set oAdapters = oWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each oAdapter in oAdapters
sAdapterError = ""
sGoodList = ""
sErrorList = ""
iTotalAdapters = iTotalAdapters + 1
If Not IsNull(oAdapter.DNSServerSearchOrder) Then
iGoodTotal = 0
For i = 0 To UBound(oAdapter.DNSServerSearchOrder)
Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & oAdapter.DNSServerSearchOrder(i) & "'")
For Each oStatus in oPing
If not IsNull(oStatus.StatusCode) and oStatus.StatusCode = 0 Then
iGoodTotal = iGoodTotal + 1
sGoodList = sGoodList + oAdapter.DNSServerSearchOrder(i) + vbCrLf
Else
sErrorList = sErrorList + oAdapter.DNSServerSearchOrder(i) + vbCrLf
End If
Next
Next
sAdapterError = "-----------------------------------------" & vbCrLf & _
oAdapter.Description & vbCrLf & vbCrLf & _
"Responding to pings:" & vbCrLf & _
sGoodList & vbCrLf & _
"Not responding to pings:" & vbCrLf & _
sErrorList & vbCrLf & vbCrLf
if (iGoodTotal < iErrorThreshold) Then
iBadAdapters = iBadAdapters + 1
sError = sError & sAdapterError
Elseif (iGoodTotal < iWarnThreshold) Then
iWarnAdapters = iWarnAdapters + 1
sError = sError & sAdapterError
End If
End If
Next
if (iBadAdapters > 0) Then
sError = "The number of DNS servers on the network adapaters that are responding to ping requests is below the configured error threshold:" & vbCrLf & _
"Number of adapters: " & iTotalAdapters & vbCrLf & _
"Available DNS servers threshold: " & iErrorThreshold & vbCrLf & vbCrLf & sError
oBag.AddValue "State", "BAD"
oBag.AddValue "ErrorString", sError
Elseif (iWarnAdapters > 0) Then
sError = "The number of DNS servers on the network adapaters that are responding to ping requests is below the configured warning threshold:" & vbCrLf & _
"Number of adapters: " & iTotalAdapters & vbCrLf & _
"Available DNS servers threshold: " & iWarnThreshold & vbCrLf & vbCrLf & sError
oBag.AddValue "State", "WARN"
oBag.AddValue "ErrorString", sError
Else
oBag.AddValue "State", "GOOD"
End If