PC World Komputer 2010 April/PCWorld0410.iso/WindowsServerTrial/server.iso/sources/install.wim/2/Windows/System32/ComplianceExtensions.dll/FILE/150

Extensible Markup Language | 2008-01-19 | 10KB | 175 lines

 ■<?xml version="1.0" encoding="UTF-16"?>

<xsl:stylesheet
    version="1.0"
    xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
    xmlns:msxsl="urn:schemas-microsoft-com:xslt"
    xmlns:ssr="http://microsoft.com/sce/ssr"
    >


<msxsl:script xmlns:msxsl="urn:schemas-microsoft-com:xslt"
            language="VBScript"
            implements-prefix="ssr">

    Function AttribValue(NodeList, AttriName)
        Set Node = NodeList.nextNode()
        AttribValue = Node.attributes.getNamedItem(AttriName).text
    End Function

    Function GetAllSubNodeAttribute(NodeList, SubNodeName, AttribName, DelimiterChar, DelimitFront)
        Set node = NodeList.nextNode()
        Set SubNodeColl = node.selectNodes(SubNodeName)

        If (DelimitFront) Then
            GetAllSubNodeAttribute = DelimiterChar
        Else
            GetAllSubNodeAttribute = ""
        End If

        For each n in SubNodeColl
            GetAllSubNodeAttribute = GetAllSubNodeAttribute + n.attributes.getNamedItem(AttribName).text + DelimiterChar
        Next

        GetAllSubNodeAttribute = UCase(GetAllSubNodeAttribute)
    End Function


    Function SecurityDescriptor(Service)

      SecurityDescriptor = ""

    End Function


    Function StartupMode (NodeList)

        Set Node = NodeList.nextNode()

        DIM sm
        sm = "StartupMode"

        DIM Attribute
        Attribute = Node.attributes.getNamedItem(sm).text

        StartupMode = 5

        If (Attribute = "Automatic") Then
            StartupMode = 2
        ElseIf (Attribute = "Manual") Then
            StartupMode = 3
        ElseIf (Attribute = "Disabled") Then
            StartupMode = 4
        ElseIf (Attribute = "Ignored") Then
            StartupMode = 5
        End If

    End Function


    Function AllServices(Delimiter, DelimitFront)

        Set Wbem = CreateObject("wbemscripting.swbemlocator")

        Set ns = Wbem.connectserver(".", "root\cimv2")

         'GetObject("winmgmts:{impersonationLevel=impersonate}").

        Set ServiceSet = ns.InstancesOf("Win32_Service")

        If (DelimitFront) Then
            AllServices = Delimiter
        Else
            AllServices = ""
        End If

        For each Service in ServiceSet
            AllServices = AllServices + Service.Name + Delimiter
        Next
        AllServices = UCase(AllServices)
    End Function

</msxsl:script>


<xsl:output method="text" indent="no"/>


<xsl:template match="Rule/Parameters/Parameter">


[Unicode]
Unicode=yes
[Version]
signature="$CHICAGO$"
Revision=1

[Service General Setting]
    <xsl:variable name="Services"            select="."/>
    <xsl:variable name="ExplicitServices"    select="ssr:GetAllSubNodeAttribute($Services, 'Service', 'Name', ';', 'True')"/>

    <xsl:for-each select="Service">
        <xsl:variable name="Sv"             select="."/>
        <xsl:variable name="WildcardServiceName" select="ssr:AttribValue($Sv, 'Name')"/>
        <xsl:variable name="WildcardStartup" select="ssr:StartupMode($Sv)"/>
        <xsl:if test="$WildcardStartup != '5' ">
            <xsl:if test="$WildcardServiceName = '*' ">
                    <xsl:variable name="AllServices" select="ssr:AllServices(';', 'False')"/>

                    <xsl:call-template name="UnpackList">
                        <xsl:with-param name="MyList"       select="$ExplicitServices"/>
                        <xsl:with-param name="List"         select="$AllServices"/>
                        <xsl:with-param name="Del"          select="';'"/>
                        <xsl:with-param name="Startup"          select="$WildcardStartup"/>
                    </xsl:call-template>
            </xsl:if>
            <xsl:if test="$WildcardServiceName != '*' ">
                <xsl:variable name="SecurityDescriptor" select="ssr:SecurityDescriptor($Sv)"/>
<xsl:if test="not($SecurityDescriptor = 'Bogus' )">
<xsl:value-of select="ssr:AttribValue($Sv, 'Name')"/>,<xsl:value-of select="ssr:StartupMode($Sv)"/>,"<xsl:value-of select="$SecurityDescriptor"/>"
</xsl:if>
            </xsl:if>
        </xsl:if>
    </xsl:for-each>



</xsl:template>

<xsl:template name="UnpackList">
    <xsl:param name="MyList"/>
    <xsl:param name="List" />
    <xsl:param name="Del"  />
    <xsl:param name="Startup"/>

    <xsl:choose>
        <xsl:when test="contains(normalize-space($List), $Del)">
            <xsl:variable name="ThisOne" select="substring-before($List, $Del)" />
            <xsl:variable name="NextList"  select="substring-after($List, $Del)"/>

            <!-- the extracted one needs to be delimited to make sure that we are not matching a partial string-->
            <xsl:variable name="DelimitedOne" select="concat($Del, $ThisOne, $Del)"/>

            <xsl:choose>
                <xsl:when test="contains(normalize-space($MyList), $DelimitedOne)">
                </xsl:when>
                <xsl:otherwise>
                    <xsl:value-of select="$ThisOne"/>,<xsl:value-of select="$Startup"/>,""
                </xsl:otherwise>
            </xsl:choose>

            <xsl:call-template name="UnpackList">
                <xsl:with-param name="MyList"        select="$MyList"/>
                <xsl:with-param name="List"        select="$NextList"/>
                <xsl:with-param name="Del"        select="$Del"/>
                <xsl:with-param name="Startup"        select="$Startup"/>
            </xsl:call-template>

        </xsl:when>
    </xsl:choose>
</xsl:template>


</xsl:stylesheet>