You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
105 lines
2.6 KiB
105 lines
2.6 KiB
|
|
<HTML>
|
|
|
|
<HEAD>
|
|
|
|
<TITLE>SCE-XML Analysis Export with VBScript</TITLE>
|
|
|
|
<SCRIPT LANGUAGE="VBScript">
|
|
|
|
dim SecDB
|
|
set SecDB = CreateObject("SecMan.SecurityDatabase")
|
|
|
|
sub cmdImport_OnClick
|
|
SecDB.FileName=document.importForm.sdbFile.value
|
|
MsgBox SecDB.FileName
|
|
SecDB.ImportTemplateFile document.importForm.infFile.value
|
|
MsgBox "Done!"
|
|
end sub
|
|
|
|
sub cmdAnalyze_OnClick
|
|
SecDB.FileName=document.analyzeForm.sdbFile.value
|
|
SecDB.Analyze ()
|
|
MsgBox "Done!"
|
|
end sub
|
|
|
|
sub cmdExport_OnClick
|
|
SecDB.FileName=document.exportForm.inFile.value
|
|
SecDB.ExportAnalysisToXML document.exportForm.outFile.value, ""
|
|
MsgBox "Done!"
|
|
end sub
|
|
|
|
sub cmdViewXML_OnClick
|
|
window.open (document.exportForm.outFile.value)
|
|
end sub
|
|
|
|
sub cmdTransform_OnClick
|
|
dim fso, file1
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
Set sourceFile = fso.OpenTextFile(document.transForm.xmlFile.value)
|
|
contents = sourceFile.ReadAll
|
|
sourceFile.Close
|
|
|
|
Set file1 = fso.CreateTextFile(document.transForm.xmlFile.value)
|
|
file1.WriteLine("<?xml-stylesheet type='text/xsl' href='c:\public\scexml.xslt'?>")
|
|
file1.WriteLine(contents)
|
|
file1.Close
|
|
MsgBox "Done!"
|
|
end sub
|
|
|
|
sub cmdViewXML2_OnClick
|
|
window.open (document.transForm.xmlFile.value)
|
|
end sub
|
|
|
|
|
|
|
|
</SCRIPT>
|
|
|
|
</HEAD>
|
|
|
|
<BODY>
|
|
|
|
<HR><H2>1. Import an INF template:</H2>
|
|
<FORM NAME="importForm">
|
|
INF Template to import:<BR>
|
|
<INPUT TYPE="File" NAME="infFile" SIZE="100""><BR>
|
|
|
|
Security Database to import to:<BR>
|
|
<INPUT TYPE="File" NAME="sdbFile" SIZE="100""> <BR>
|
|
|
|
<INPUT TYPE="Button" NAME="cmdImport" VALUE="Import">
|
|
</FORM>
|
|
|
|
|
|
<HR><H2>2. Perform Analysis</H2>
|
|
<FORM NAME="analyzeForm">
|
|
Security Database to analyze:<BR>
|
|
<INPUT TYPE="File" NAME="sdbFile" SIZE="100""> <BR>
|
|
<INPUT TYPE="Button" NAME="cmdAnalyze" VALUE="Analyze System">
|
|
</FORM>
|
|
|
|
|
|
<HR><H2>3. Export Analysis Results to XML</H2>
|
|
<FORM NAME="exportForm">
|
|
Security Database to export:<BR>
|
|
<INPUT TYPE="File" NAME="inFile" SIZE="100""><BR>
|
|
|
|
XML output file:<BR>
|
|
<INPUT TYPE="File" NAME="outFile" SIZE="100""> <BR>
|
|
|
|
<INPUT TYPE="Button" NAME="cmdExport" VALUE="Export">
|
|
<INPUT TYPE="Button" NAME="cmdViewXML" VALUE="ViewXML">
|
|
</FORM>
|
|
|
|
|
|
<HR><H2>4. Apply XSLT to XML</H2>
|
|
<FORM NAME="transForm">
|
|
XML file:<BR>
|
|
<INPUT TYPE="File" NAME="xmlFile" SIZE="100""><BR>
|
|
<INPUT TYPE="Button" NAME="cmdTransform" VALUE="Transform">
|
|
<INPUT TYPE="Button" NAME="cmdViewXML2" VALUE="ViewXML">
|
|
</FORM>
|
|
|
|
|
|
</BODY>
|