home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / WindowsServerTrial / server.iso / sources / install.wim / 2 / Windows / System32 / ComplianceExtensions.dll / FILE / 151 < prev    next >
Extensible Markup Language  |  2008-01-19  |  4KB  |  93 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.             
  16.     Function RegTypeAndData(TypeNodeList, DataNodeList)
  17.     
  18.         Set TypeNode = TypeNodeList.nextNode()
  19.         Set DataNode = DataNodeList.nextNode()
  20.                 
  21.         RegType = "4"
  22.         
  23.         DataLen = Len(DataNode.text) 
  24.         
  25.         If (TypeNode.text = "REG_NONE") Then
  26.             RegType = "0"
  27.         ElseIf (TypeNode.text = "REG_SZ") Then
  28.             RegType = "1"
  29.         ElseIf (TypeNode.text = "REG_EXPAND_SZ") Then
  30.             RegType = "2"
  31.         ElseIf (TypeNode.text = "REG_BINARY") Then
  32.             RegType = "3"
  33.         ElseIf (TypeNode.text = "REG_DWORD") Then
  34.             RegType = "4"
  35.         ElseIf (TypeNode.text = "REG_MULTI_SZ") Then
  36.             RegType = "7"
  37.         End If
  38.         
  39.         if  ( DataLen = 0 ) and ( RegType = "0") then
  40.             RegTypeAndData = "-1," + vbCrLf
  41.         else         
  42.             RegTypeAndData = "" + RegType + "," + DataNode.text + vbCrLf
  43.         End if 
  44.         
  45.     End Function
  47.     Function Hive (NodeList)
  48.     
  49.         Set Node = NodeList.nextNode()
  51.         Hive = ""
  52.         
  53.         If (Node.text = "HKEY_LOCAL_MACHINE") Then
  54.             Hive = "MACHINE"
  55.         ElseIf (Node.text = "HKEY_CLASSES_ROOT") Then
  56.             Hive = "CLASSES_ROOT"
  57.         ElseIf (Node.text = "HKEY_USERS") Then
  58.             Hive = "USERS"
  59.         End If
  60.         
  61.     End Function
  63. </msxsl:script>
  66. <xsl:output method="text" indent="no"/>
  69. <xsl:template match="Rule/Parameters/Parameter">
  72. [Unicode]
  73. Unicode=yes
  74. [Version]
  75. signature="$CHICAGO$"
  76. Revision=1
  78. [Registry Values]
  79. <xsl:for-each select="Value">
  80. <xsl:variable name="Type" select="Type"/>
  81. <xsl:variable name="Data" select="Data"/>
  82. <xsl:variable name="Hive" select="Hive"/>
  83. <xsl:value-of select="ssr:Hive($Hive)"/>\<xsl:value-of select="Key"/>\<xsl:value-of select="Name"/>=<xsl:value-of select="ssr:RegTypeAndData($Type,$Data)"/>
  84. </xsl:for-each>
  88. </xsl:template>
  91. </xsl:stylesheet>