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!