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.
43 lines
1.0 KiB
43 lines
1.0 KiB
|
|
<HTML>
|
|
|
|
<HEAD>
|
|
|
|
<TITLE>SCE-XML Analysis Export with VBScript</TITLE>
|
|
|
|
<SCRIPT LANGUAGE="VBScript">
|
|
|
|
sub cmdDemo_OnClick
|
|
|
|
dim SecDB
|
|
set SecDB = CreateObject("SecMan.SecurityDatabase")
|
|
|
|
SecDB.FileName=document.demoForm.sdbFile.value
|
|
SecDB.ImportTemplateFile document.demoForm.infFile.value
|
|
SecDB.Analyze ()
|
|
SecDB.ExportAnalysisToXML document.demoForm.xmlFile.value, ""
|
|
MsgBox "Done!"
|
|
|
|
end sub
|
|
|
|
</SCRIPT>
|
|
|
|
</HEAD>
|
|
|
|
<BODY>
|
|
|
|
<HR><H2>Single-step demo:</H2>
|
|
<FORM NAME="demoForm">
|
|
INF Template to import:<BR>
|
|
<INPUT TYPE="File" NAME="infFile" SIZE="100""><BR>
|
|
Security Database:<BR>
|
|
<INPUT TYPE="File" NAME="sdbFile" SIZE="100""> <BR>
|
|
XML output file:<BR>
|
|
<INPUT TYPE="File" NAME="xmlFile" SIZE="100""> <BR>
|
|
<INPUT TYPE="Button" NAME="cmdDemo" VALUE="Go!">
|
|
<INPUT TYPE="Button" NAME="cmdViewXML" VALUE="ViewXML"
|
|
onclick="javascript:window.open(document.demoForm.xmlFile.value);">
|
|
</FORM>
|
|
|
|
|
|
</BODY>
|