vbscript question

Hi, i'm pretty unexperienced with vbscript, but i've been working on a script to add documents to a certain workspace in interwoven.
I started out from some of the C# code i found on this forum, but i can't get the Add method. I have this:

Set wps = dms.CreateFolderSearchParameters
wps.Add imFolderAttributeID.imFolderName, FolderName
wps.Add imFolderAttributeID.imFolderOwner, "kvanlondersele"

when the script reaches the Add function, i get this error:
Microsoft VBScript runtime error: Object required: 'imFolderAttributeID'

I also tried with Add(), but then it says i can't use parenthesis in a sub.

Anyone familiar with this?

below is my code up until now, maybe there's something else that's causing the error:

Call MoveToDMS()

public function MoveToDMS()

 Dim ServerName, DatabaseName, FolderName, SourceFile

 ServerName   = "SERVERSERVER"
 DatabaseName = "DMS-PROD"
 FolderName   = "Personal Workspace"
 SourceFile   = "C:\test\myfile.txt"

 Dim dms, sess, db, wps, dblist, results, fldr

 Set dms = CreateObject("Imanage.ManDMS")
 Set sess = dms.Sessions.Add(ServerName)

 sess.Login "JOHNSON", "johnson" 'admin
 Set db = sess.Databases.ItemByName(DatabaseName)

    Set wps = dms.CreateFolderSearchParameters
    wps.Add imFolderAttributeID.imFolderName, FolderName
    wps.Add imFolderAttributeID.imFolderOwner, "kvanlondersele"

    Set dblist = CreateObject("Imanage.ManStrings")
    dblist.Add db.Name

    Set results = sess.WorkArea.SearchFolders(dblist, wps)
    if results.Empty = true then
        MsgBox "No results returned based on the search criteria."
        sess.Logout
    End if

 Set fldr = null
    if results.Empty = false then
        'Assuming there is only one workspace returned from the results.
        Set fldr = CreateObject("IManDocumentFolder")
        results.ItemByIndex(1)
    end if


    if fldr is not null then

        ContextItems context = new ContextItemsClass
        ImportCmd impCmd = new ImportCmdClass
        context.Add IManDestinationObject, fldr
        context.Add IManExt.Import.FileName, SourceFile
        context.Add IManExt.Import.DocAuthor, sess.UserID
        context.Add IManExt.Import.DocClass, "DOC"

  impCmd.Initialize(context)
        impCmd.Update()
        if impCmd.Status = cint(CommandStatus.nrActiveCommand) then
            impCmd.Execute()
            Set brefresh = cbool(context.Item("IManExt.Refresh"))

            if brefresh = true then
                'Succeeded in importing a document to WorkSite
                Set doc = IManDocument(context.Item("ImportedDocument"))
                'Succeeded in filing the new folder under the folder.
                MessageBox.Show("New document number, " + doc.Number + ", is successfully filed to " + fldr.Name + " folder.")
            end if
        end if
        me.Close()
    end if

End function

Find more posts tagged with

Comments

guido1

VBScript is not a strongly-typed language, therefore it won't understand things like enumerations. You'll need to swap out the enum values with their numeric equivalents

In your example, imFolderName has a numeric value of 3, and imFolderOwner a value of 4, so your code would look like this:

Set wps = dms.CreateFolderSearchParameters
wps.Add 3, FolderName
wps.Add 4, "kvanlondersele"

Some people prefer to declare constants in VBScript that have the same name as the enums, so as to make it more readable, e.g.

Const imFolderName = 3 
Const imFolderOwner = 4
...

Set wps = dms.CreateFolderSearchParameters
wps.Add imFolderName, FolderName
wps.Add imFolderOwner, "kvanlondersele"

kvanlondersele

super, thanks. Smiley Happy

error doesn't show anymore.
But how do i know what the numeric value is for an enumeration?
I also need to add things to context.

guido1

To get the numeric values you need to examine (in this case) the IManage COM type library definition. The Windows SDK has a tool for this (the OLE/COM Object Viewer).

Alternatively if you're developing in any other language some of the IDEs (e.g. Visual Studio) allow you to browse type libraries. They may show you the numeric value. Or you could write a one-liner piece of code to convert the enum value to an integer.

In any case, below is the type library definition for the imFolderAttributeID enum

 typedef enum {
  imFolderID = 0,
  imFolderParentID = 1,
  imFolderDefaultSecurity = 2,
  imFolderName = 3,
  imFolderOwner = 4,
  imFolderDescription = 5,
  imFolderLocation = 6,
  imFolderType = 7,
  imFolderSubtype = 8,
  imFolderInherits = 9,
  imFolderProfileID = 10,
  imFolderVersion = 11,
  imFolderCustom1 = 12,
  imFolderCustom2 = 13,
  imFolderCustom3 = 14,
  imFolderRootFolderID = 15,
  imFolderRootFolderType = 16,
  imFolderIsContentSearch = 17,
  imFolderIsFolderSearch = 18,
  imFolderEmail = 19,
  imFolderHiddenOnDesktop = 20,
  imFolderEditDate = 21,
  imFolderReferenceType = 22
 } imFolderAttributeID;

As for your context question, not sure what you mean. Looking at your code snippet is the problem that you haven't passed the context keys as a string? i.e. instead of this

context.Add IManDestinationObject, fldr

you need this:

context.Add "IManDestinationObject", fldr

kvanlondersele

thx m8. i'll be trying this later.
as for the context i just meant i would also need numerical values for those.
I'll check the com object viewer, hopefully with success ^^

kvanlondersele

Ok so i have the script working, but not for a specific folder.

for some reason, casting to IManDocumentfolders doesn't work

Set ws = results.ItemByIndex(1) 'assuming there's only 1 workspace
Set fldres = ws.DocumentFolders
Set folders = IManDocumentFolders(fldres)
For Each fld In folders
If fld.Name = fldDest Then
Set target = fld
MsgBox target.Name
Else
MsgBox "Folder not found in workspace ..."
End If
Next

I also need to cast to IManDocument3, but i assume it's the same thing i'm doing wrong

Set doc = db.CreateDocument
Set doc3 = IManDocument3(doc)

Anyone any ideas? :-)

public Sub MoveToDMS()

 '** ENUMERATIONS **
 Const imFolderName = 3 
 Const imFolderOwner = 4

 Const imProfileAuthor = 5
 Const imProfileOperator = 6
 Const imProfileType = 7
 Const imProfileClass = 8
 Const imProfileDescription = 3
 Const imProfileName = 4
 Const imProfileComment = 24
 Const imProfileCustom1 = 25
 Const imProfileCustom3 = 27
 Const imProfileCustom7 = 31


 'Destination info vars
 Dim ServerName, DatabaseName

 ServerName   = "BEBRUAPP30"          'Destination Server
 DatabaseName = "DMS-PROD"            'Database Name

 'iwov sdk objects
 Dim dms, sess, db, doc, doc3, wps, fld, target

 Set dms = WScript.CreateObject("Imanage.ManDMS")

 Set sess = dms.Sessions.Add(ServerName)
 'sess.Login "username", "password"
 sess.TrustedLogin

 Set db = sess.Databases.ItemByName(DatabaseName)
 Set wps = dms.CreateFolderSearchParameters
 wps.Add imFolderName, fldName
 wps.Add imFolderOwner, sess.UserId

 Set dblist = WScript.CreateObject("Imanage.ManStrings")
    dblist.Add db.Name

    Set results = sess.WorkArea.SearchFolders(dblist, wps)

    if results.Empty = true then
        MsgBox "No results returned based on the search criteria."
        sess.Logout
 Else
  Set ws = results.ItemByIndex(1) 'assuming there's only 1 workspace
  Set fldres = ws.DocumentFolders
  Set folders = IManDocumentFolders(fldres)
  For Each fld In folders
   If fld.Name = fldDest Then
    Set target = fld
    MsgBox target.Name
   Else
    MsgBox "Folder not found in workspace ..."
   End If
  Next
    End if

 Set doc = db.CreateDocument
 Set doc3 = IManDocument3(doc)
 'set properties for document to be added
 doc.SetAttributeByID imProfileAuthor, sess.UserId 'author
 doc.SetAttributeByID imProfileOperator, sess.UserId 'operator
 doc.SetAttributeByID imProfileType, attAppl   'application
 doc.SetAttributeByID imProfileClass, attType  'content type
 doc.SetAttributeByID imProfileDescription, attDesc 'description
 doc.SetAttributeByID imProfileName, attName   'filename
 doc.SetAttributeByID imProfileComment, attCmmt  'comment
 doc.SetAttributeByID imProfileCustom1, attClnt  'client
 doc.SetAttributeByID imProfileCustom3, attUlpt  'ultimate parent
 doc.SetAttributeByID imProfileCustom7, attPtnr  'partner


 'check in document
 'Set checkin = doc.CheckInWithResults(SourceFile, imCheckinNewDocument, imDontKeepCheckedOut)
 Set checkin = doc3.CheckInExToFolderAsNewDocumentWithResults(srcFile, imCheckinOptions.imDontKeepCheckedOut, target, IManage.imHistEvent.imHistoryCheckin, "1", "2", "3")

 If checkin.Succeeded = True Then
  MsgBox "Your document is in " & db & VbCr & "Number # " & doc.Number & VbCr & "Object ID is " & doc.ObjectID
 Else
  For intLoop = 1 To checkin.ErrorList.Count
  Call MsgBox("Error with AttribID: " & checkin.ErrorList.ItemByIndex(intLoop).AttribID)
  Next
 End If

End Sub