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 / 152 < prev   
Extensible Markup Language  |  2008-01-19  |  5KB  |  91 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 TranslateType (Node)
  16.     
  17.             AttribValue = Node.nextNode().attributes.getNamedItem("Type").text
  19.         TranslateType = "Error"
  20.  
  21.          If (AttribValue = "System") Then
  22.             TranslateType = "AuditSystemEvents"
  23.         ElseIf (AttribValue = "Logon") Then
  24.             TranslateType = "AuditLogonEvents"
  25.         ElseIf (AttribValue = "ObjectAccess") Then
  26.             TranslateType = "AuditObjectAccess"
  27.         ElseIf (AttribValue = "PrivilegeUse") Then
  28.             TranslateType = "AuditPrivilegeUse"
  29.         ElseIf (AttribValue = "PolicyChange") Then
  30.             TranslateType = "AuditPolicyChange"
  31.         ElseIf (AttribValue = "AccountManagement") Then
  32.             TranslateType = "AuditAccountManage"
  33.         ElseIf (AttribValue = "DetailedTracking") Then
  34.             TranslateType = "AuditProcessTracking"
  35.         ElseIf (AttribValue = "DirectoryServiceAccess") Then
  36.             TranslateType = "AuditDSAccess"
  37.         ElseIf (AttribValue = "AccountLogon") Then
  38.             TranslateType = "AuditAccountLogon"
  39.         End If
  40.         
  41.     End Function
  43.     Function TranslateValue (Node)
  44.     
  45.         Set NodeReal = Node.nextNode()
  46.             AttribValueSuccess = NodeReal.attributes.getNamedItem("Success").text
  47.             AttribValueFailure = NodeReal.attributes.getNamedItem("Failure").text
  49.             TranslateValue = "0"
  50.         
  51.         If (AttribValueSuccess = "True") And (AttribValueFailure = "True") Then
  52.             TranslateValue = "3"
  53.         ElseIf (AttribValueSuccess = "True") And (AttribValueFailure = "False") Then
  54.             TranslateValue = "1"
  55.         ElseIf (AttribValueSuccess = "False") And (AttribValueFailure = "False") Then
  56.             TranslateValue = "0"
  57.         ElseIf (AttribValueSuccess = "False") And (AttribValueFailure = "True") Then
  58.             TranslateValue = "2"
  59.         End If
  60.         
  61.     End Function
  64. </msxsl:script>
  67. <xsl:output method="text" indent="no"/>
  70. <xsl:template match="Rule/Parameters/Parameter">
  72. [Unicode]
  73. Unicode=yes
  74. [Version]
  75. signature="$CHICAGO$"
  76. Revision=1
  78. [Event Audit]
  79. <xsl:for-each select="Event">
  80. <xsl:variable name="Event" select="."/>
  81. <xsl:value-of select="ssr:TranslateType($Event)"/> = <xsl:value-of select="ssr:TranslateValue($Event)"/>,
  82. </xsl:for-each>
  86. </xsl:template>
  89. </xsl:stylesheet>