cancel
Showing results for 
Search instead for 
Did you mean: 

Extract Item - ECM

Wayne_Humphrey
Level 6
Partner Accredited Certified

To combibe all the SISParts and stuff you can use the following hta script to use the ECM APT to do :

Save it as get_item.hta

<html>
<title>Extract Item</title>
<head>
 <HTA:APPLICATION 
    ID="objMyApp" 
    APPLICATIONNAME="Extract Item" 
    BORDER="thin"
    BORDERSTYLE="normal"
    CAPTION="yes"
    CONTEXTMENU="no"
    INNERBORDER="no"
    MAXAMIZEBUTTON="yes"
    MINIMIZEBUTTON="yes"
    NAVIGABLE="yes"
    SCROLL="no" 
    SELECTION="yes"
    SHOWINTASKBAR="yes"
    SINGLEINSTANCE="no"
    SYSMENU="yes"
    VERSION="1.0"
    WINDOWSTATE="normal">
</head>
 
<script language="VBScript">
On Error Resume Next
Dim ContentManagementAPI
Set ContentManagementAPI = CreateObject("EnterpriseVault.ContentManagementAPI")
 
'load routine
Sub window_onload
   window.resizeTo 555,250
End Sub
 
Sub Submit
  Dim item 
  set item = ContentManagementAPI.Item
 
  On Error Resume Next
  dim CurAction
 
  CurAction = "Recombining saveset into MSG"
  item.ArchiveId = ArchiveId.value
  item.Id = Id.value
  item.Content.Data = Content.value
  item.Get(3)
  Message.innerHTML = "<font color=""green"">&nbsp;&nbsp;Complete</font>"
 
  if (err.number <> 0) then
   Message.innerHTML = "<font color=""red""><b>Faild!&nbsp;</b>-&nbsp;</font>" & hex(Err.number)
    msgbox "Description: " & Err.Description & Err.Description, vbOkOnly + vbcritical, CurAction
   'msgbox "Reason: " & hex(Err.number) & vbcrlf & "Description: " & Err.Description, vbOkOnly + vbcritical, CurAction
    err.clear
  end if
End Sub
</script>
 
<STYLE TYPE="text/css">
BODY	        { font-family: Verdana, Arial, Helvetica, sans-serif; font:menu; background-color:Menu; color:MenuText; font-size: 8pt; cursor:default; //auto, text, pointer 	}
  .filtout      { filter:progid:DXImageTransform.Microsoft.Alpha(opacity=20); } 
  .filtnorm     { filter:progid:DXImageTransform.Microsoft.Alpha(opacity=100); } 
  .fileListTb   { Font-Family:Verdana;Font-Size:8pt; }
</STYLE>
</HEAD>
<BODY TOPMARGIN=0>
<center><b>Combine SaveSet</b></center><br>
<b>&nbsp;Archive ID:</b><br>
<input type="text" name="ArchiveId" value="100A35039C274FB4196F8E0740B9A00191110000GPKENTVLT1.domain.com" size="85" /><br>
<b>&nbsp;Transaction ID:</b><br>
<input type="text" name="Id" value="5CA3C95B8654437AAC0DFFEC3CEAE356" size="50" /><br>
<b>&nbsp;Save Item As:</b><br>
<input type="text" name="Content" value="C:\message_name.msg" size="30" />
<center>&nbsp;<input class="button" TYPE=BUTTON value="Save" name="btnSubmit" onClick="Submit"></center>
<b>Status: </b><br><span id="message"></span>
</body>
</html>