home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / WindowsServerTrial / server.iso / sources / install.wim / 2 / Windows / System32 / ScwServiceExt.dll / FILE / 103
Extensible Markup Language  |  2008-01-19  |  10KB  |  175 lines
  1.  ■<?xml version="1.0" encoding="UTF-16"?>
  3. <xsl:stylesheet 
  4.     version="1.0" 
  5.     xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  6.     xmlns:msxsl="urn:schemas-microsoft-com:xslt"
  7.     xmlns:ssr="http://microsoft.com/sce/ssr"
  8.     >
  11. <msxsl:script xmlns:msxsl="urn:schemas-microsoft-com:xslt"
  12.             language="VBScript"
  13.             implements-prefix="ssr">
  14.     
  15.     Function AttribValue(NodeList, AttriName)
  16.         Set Node = NodeList.nextNode()
  17.         AttribValue = Node.attributes.getNamedItem(AttriName).text
  18.     End Function
  19.     
  20.     Function GetAllSubNodeAttribute(NodeList, SubNodeName, AttribName, DelimiterChar, DelimitFront)
  21.         Set node = NodeList.nextNode()
  22.         Set SubNodeColl = node.selectNodes(SubNodeName)
  23.         
  24.         If (DelimitFront) Then
  25.             GetAllSubNodeAttribute = DelimiterChar
  26.         Else
  27.             GetAllSubNodeAttribute = ""
  28.         End If
  29.         
  30.         For each n in SubNodeColl
  31.             GetAllSubNodeAttribute = GetAllSubNodeAttribute + n.attributes.getNamedItem(AttribName).text + DelimiterChar
  32.         Next
  33.         
  34.         GetAllSubNodeAttribute = UCase(GetAllSubNodeAttribute)
  35.     End Function
  36.     
  38.     Function SecurityDescriptor(Service)
  39.       
  40.       SecurityDescriptor = ""
  42.     End Function
  45.     Function StartupMode (NodeList)
  46.     
  47.         Set Node = NodeList.nextNode()
  48.         
  49.         DIM sm
  50.         sm = "StartupMode"
  51.         
  52.         DIM Attribute
  53.         Attribute = Node.attributes.getNamedItem(sm).text
  54.         
  55.         StartupMode = 5
  56.         
  57.         If (Attribute = "Automatic") Then
  58.             StartupMode = 2
  59.         ElseIf (Attribute = "Manual") Then
  60.             StartupMode = 3
  61.         ElseIf (Attribute = "Disabled") Then
  62.             StartupMode = 4
  63.         ElseIf (Attribute = "Ignored") Then
  64.             StartupMode = 5
  65.         End If
  66.         
  67.     End Function
  69.     
  70.     Function AllServices(Delimiter, DelimitFront)
  71.     
  72.         Set Wbem = CreateObject("wbemscripting.swbemlocator")
  73.         
  74.         Set ns = Wbem.connectserver(".", "root\cimv2")
  75.         
  76.          'GetObject("winmgmts:{impersonationLevel=impersonate}").
  77.          
  78.         Set ServiceSet = ns.InstancesOf("Win32_Service")
  80.         If (DelimitFront) Then
  81.             AllServices = Delimiter
  82.         Else
  83.             AllServices = ""
  84.         End If
  86.         For each Service in ServiceSet
  87.             AllServices = AllServices + Service.Name + Delimiter
  88.         Next
  89.         AllServices = UCase(AllServices)
  90.     End Function
  92. </msxsl:script>
  95. <xsl:output method="text" indent="no"/>
  98. <xsl:template match="Rule/Parameters/Parameter">
  101. [Unicode]
  102. Unicode=yes
  103. [Version]
  104. signature="$CHICAGO$"
  105. Revision=1
  107. [Service General Setting]
  108.     <xsl:variable name="Services"            select="."/>
  109.     <xsl:variable name="ExplicitServices"    select="ssr:GetAllSubNodeAttribute($Services, 'Service', 'Name', ';', 'True')"/>
  111.     <xsl:for-each select="Service">
  112.         <xsl:variable name="Sv"             select="."/>
  113.         <xsl:variable name="WildcardServiceName" select="ssr:AttribValue($Sv, 'Name')"/>
  114.         <xsl:variable name="WildcardStartup" select="ssr:StartupMode($Sv)"/>
  115.         <xsl:if test="$WildcardStartup != '5' ">
  116.             <xsl:if test="$WildcardServiceName = '*' ">
  117.                     <xsl:variable name="AllServices" select="ssr:AllServices(';', 'False')"/>
  119.                     <xsl:call-template name="UnpackList">
  120.                         <xsl:with-param name="MyList"       select="$ExplicitServices"/>
  121.                         <xsl:with-param name="List"         select="$AllServices"/>
  122.                         <xsl:with-param name="Del"          select="';'"/>
  123.                         <xsl:with-param name="Startup"          select="$WildcardStartup"/>
  124.                     </xsl:call-template>
  125.             </xsl:if>
  126.             <xsl:if test="$WildcardServiceName != '*' ">
  127.                 <xsl:variable name="SecurityDescriptor" select="ssr:SecurityDescriptor($Sv)"/>
  128. <xsl:if test="not($SecurityDescriptor = 'Bogus' )">
  129. <xsl:value-of select="ssr:AttribValue($Sv, 'Name')"/>,<xsl:value-of select="ssr:StartupMode($Sv)"/>,"<xsl:value-of select="$SecurityDescriptor"/>"
  130. </xsl:if>
  131.             </xsl:if>
  132.         </xsl:if>
  133.     </xsl:for-each>
  137. </xsl:template>
  139. <xsl:template name="UnpackList">
  140.     <xsl:param name="MyList"/>
  141.     <xsl:param name="List" />
  142.     <xsl:param name="Del"  />
  143.     <xsl:param name="Startup"/>
  144.     
  145.     <xsl:choose>
  146.         <xsl:when test="contains(normalize-space($List), $Del)">
  147.             <xsl:variable name="ThisOne" select="substring-before($List, $Del)" />
  148.             <xsl:variable name="NextList"  select="substring-after($List, $Del)"/>
  149.             
  150.             <!-- the extracted one needs to be delimited to make sure that we are not matching a partial string-->
  151.             <xsl:variable name="DelimitedOne" select="concat($Del, $ThisOne, $Del)"/>
  152.             
  153.             <xsl:choose>
  154.                 <xsl:when test="contains(normalize-space($MyList), $DelimitedOne)">
  155.                 </xsl:when>
  156.                 <xsl:otherwise>
  157.                     <xsl:value-of select="$ThisOne"/>,<xsl:value-of select="$Startup"/>,""
  158.                 </xsl:otherwise>
  159.             </xsl:choose>
  160.             
  161.             <xsl:call-template name="UnpackList">
  162.                 <xsl:with-param name="MyList"        select="$MyList"/>
  163.                 <xsl:with-param name="List"        select="$NextList"/>
  164.                 <xsl:with-param name="Del"        select="$Del"/>
  165.                 <xsl:with-param name="Startup"        select="$Startup"/>
  166.             </xsl:call-template>
  167.         
  168.         </xsl:when>
  169.     </xsl:choose>    
  170. </xsl:template>
  173. </xsl:stylesheet>