problema con imacro e vbs

[serbring]

Ciao a tutti,

sto cercando di imparare ad usare imacro al fine di poter fare del webscraping. Tuttavia, tutti gli esempi che ho trovato nella pagina online non funzionano, perchè ottengo un errore alla seguente linea:

Set iim1 = CreateObject("iMacros")

ed otengo l'errore 800A01AD

Lo script che sto cercando di far girare è il seguente, preso direttamente dal sito del produttore.


Option Explicit
Dim iim1,iret
Set iim1 = CreateObject("iMacros")
iret = iim1.iimOpen("", False) 'connect to open iMacros browser window

Dim macro
macro = macro & "VERSION BUILD=6110122 " & vbNewLine
macro = macro & "TAB T=1" & vbNewLine
macro = macro & "TAB CLOSEALLOTHERS" & vbNewLine
macro = macro & "SET !TIMEOUT 6" & vbNewLine
macro = macro & "TAG POS={{counter}} TYPE=TD ATTR=TXT:*Date<SP>Posted:*days" & vbNewLine
macro = macro & "TAG POS=R1 TYPE=TD ATTR=TXT:* EXTRACT=TXT" & vbNewLine
macro = macro & "TAG POS=R1 TYPE=TD ATTR=TXT:*Bath* EXTRACT=TXT" & vbNewLine
macro = macro & "TAG POS=R2 TYPE=TD ATTR=TXT:* EXTRACT=TXT " & vbNewLine
macro = macro & "TAG POS=R1 TYPE=TD ATTR=TXT:$* EXTRACT=TXT"

Dim counter
counter = 1

Do While Not (iret < 0)
iim1.iimSet "counter", counter
iret = iim1.iimPlayCode(macro)
msgbox (iim1.iimGetExtract())
counter = counter + 3
If (iret < 0) Then
'end of list reached -> next page
iret = iim1.iimPlayCode("TAG POS=1 TYPE=A ATTR=TXT:Next")
counter = 1
End If
Loop


Come posso risolvere questo problema? grazie

[serbring]

up!