Discover XP SP2 clients

Microsoft.SystemCenter.Essentials.WSUSRedirectDiscovery (Discovery)

This rule discovers XPSP2 machines.

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

<Discovery ID="Microsoft.SystemCenter.Essentials.WSUSRedirectDiscovery" Target="Windows!Microsoft.Windows.Client.Computer" Remotable="false" Enabled="true">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Microsoft.SystemCenter.Essentials.WSUSRedirect">

      <Property PropertyID="Name"/>

    </DiscoveryClass>

  </DiscoveryTypes>

  <DataSource ID="DS" TypeID="Windows!Microsoft.Windows.TimedScript.DiscoveryProvider">

    <IntervalSeconds>3600</IntervalSeconds>

    <SyncTime/>

    <ScriptName>RedirectWSUS.vbs</ScriptName>

    <Arguments>0 $MPElement$ $Target/Id$ $Target/Property[Type="Windows!Microsoft.Windows.Computer"]/PrincipalName$</Arguments>

    <ScriptBody><Script>

                        SetLocale("en-us")

                        Dim oArgs

                        Set oArgs = WScript.Arguments

                        if oArgs.Count &lt; 4 Then

                           Wscript.Quit -1

                        End If



                        Set WshShell = WScript.CreateObject("WScript.Shell") 

                        Dim SourceType, SourceID, ManagedEntityId, TargetComputer



                        SourceType = oArgs(0)

                        SourceId = oArgs(1)

                        ManagedEntityId = oArgs(2)

                        TargetComputer = oArgs(3)

                        

                        Dim oAPI, oDiscoveryData, oInst

                        Set oAPI = CreateObject("MOM.ScriptAPI")

                        Set oDiscoveryData = oAPI.CreateDiscoveryData(SourceType, SourceId, ManagedEntityId)

                        

                        Dim filever, oFso, sysfolder 



                        set oFso = CreateObject ("Scripting.FileSystemObject")

                        sysfolder = oFso.GetSpecialFolder(1)

                        filever = oFso.GetFileVersion(sysfolder + "\WUAUENG.dll")

                                    

                        if (filever = "5.4.3790.2180") then

                         

                            ' Create the Application instance

                            set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.SystemCenter.Essentials.WSUSRedirect']$")



                            call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)



                            call oInst.AddProperty("$MPElement[Name='Microsoft.SystemCenter.Essentials.WSUSRedirect']/Name$", TargetComputer)



                            call oDiscoveryData.AddInstance(oInst)

                                                        

                        end if

                        

                        Call oAPI.Return(oDiscoveryData)

                        

                        </Script></ScriptBody>

    <TimeoutSeconds>300</TimeoutSeconds>

  </DataSource>

</Discovery>