DS do WMI do Microsoft Windows Server DNS
Microsoft.Windows.Server.DNS.WMI.DS (DataSourceModuleType)
Fonte de dados que testa o provedor de WMI do DNS
Element properties:
Member Modules:
Overrideable Parameters:
Source Code:
<DataSourceModuleType ID="Microsoft.Windows.Server.DNS.WMI.DS" Accessibility="Public" Batching="false">
<Configuration>
<xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" minOccurs="1" name="IntervalSeconds" type="xsd:integer"/>
<xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" minOccurs="1" name="SyncTime" type="xsd:string"/>
</Configuration>
<OverrideableParameters>
<OverrideableParameter ID="IntervalSeconds" Selector="$Config/IntervalSeconds$" ParameterType="int"/>
<OverrideableParameter ID="SyncTime" Selector="$Config/SyncTime$" ParameterType="string"/>
</OverrideableParameters>
<ModuleImplementation Isolation="Any">
<Composite>
<MemberModules>
<DataSource ID="RunScript" TypeID="Windows!Microsoft.Windows.TimedScript.PropertyBagProvider">
<IntervalSeconds>$Config/IntervalSeconds$</IntervalSeconds>
<SyncTime>$Config/SyncTime$</SyncTime>
<ScriptName>Microsoft.Windows.Server.DNS.WMI.DS.vbs</ScriptName>
<Arguments/>
<ScriptBody><Script>'Copyright (c) Microsoft Corporation. All rights reserved.
'*************************************************************************
' ScriptName: Microsoft.Windows.Server.DNS.WMI.DS
'
' Purpose: DNS Server DNS WMI DataSource
'
' File: Microsoft.Windows.Server.DNS.WMI.DS.vbs
'*************************************************************************
Option Explicit
SetLocale("en-us")
Dim wmiNamespaceString, wmiQueryString, ErrorMessage, ErrorNumber, junkVar
Dim objWMIService, colitems, objItem
wmiNamespaceString = "winmgmts://./root/MicrosoftDNS"
wmiQueryString = "SELECT EventLogLevel FROM MicrosoftDNS_Server"
ErrorMessage = "No Errors"
ErrorNumber = 0
ON ERROR RESUME NEXT
set objWMIService = GetObject(wmiNamespaceString)
If Err.Number <> 0 Then
ErrorNumber = Err.Number
ErrorMessage = Err.Description
Call ReturnPropertyBag
End If
set colitems = objWMIService.ExecQuery(wmiQueryString)
junkVar = colitems.count
If Err.Number <> 0 Then
ErrorNumber = Err.Number
ErrorMessage = Err.Description
Call ReturnPropertyBag
End If
If ( colitems.count = 0 ) Then
ErrorNumber = 1
ErrorMessage = "Zero items in record set"
Call ReturnPropertyBag
End If
For Each objItem In colitems
If IsNull(objItem.EventLogLevel) Then
ErrorNumber = 2
ErrorMessage = "EventLogLevel is null"
Call ReturnPropertyBag
End If
If Not IsNumeric(objItem.EventLogLevel) Then
ErrorNumber = 3
ErrorMessage = "EventLogLevel is not numeric"
Call ReturnPropertyBag
End If
Next
Call ReturnPropertyBag
Sub ReturnPropertyBag
Dim oAPI, oBag
Dim HexErrorNumber
HexErrorNumber = "0x" & Hex(ErrorNumber)
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()
Call oBag.AddValue("WMINamespace", wmiNamespaceString)
Call oBag.AddValue("WMIQuery", wmiQueryString)
Call oBag.AddValue("ErrorMessage", ErrorMessage)
Call oBag.AddValue("ErrorNumber", HexErrorNumber)
Call oAPI.Return(oBag)
WScript.Quit
End Sub</Script></ScriptBody>
<TimeoutSeconds>300</TimeoutSeconds>
</DataSource>
</MemberModules>
<Composition>
<Node ID="RunScript"/>
</Composition>
</Composite>
</ModuleImplementation>
<OutputType>System!System.PropertyBagData</OutputType>
</DataSourceModuleType>