MsgBox ("This example script uses NO macros, but sends the macro code directly.")

set iim1= CreateObject ("InternetMacros.iim")
iret = iim1.iimInit

Dim MyMacroCode

MyMacroCode = "CODE:"
MyMacroCode = MyMacroCode+"VERSION BUILD=5001027" + vbNewLine
MyMacroCode = MyMacroCode+"TAB T=1" + vbNewLine
MyMacroCode = MyMacroCode+"TAB CLOSEALLOTHERS" + vbNewLine
MyMacroCode = MyMacroCode+"URL GOTO=http://www.iopus.com" + vbNewLine
MyMacroCode = MyMacroCode+"URL GOTO=http://forum.iopus.com"

iret = iim1.iimDisplay("Start demo")

'Run the first macro
iret = iim1.iimPlay(MyMacroCode)
if iret < 0 Then
MsgBox "Error in Macro#1: "+ iim1.iimGetLastError()
End If

'Run the second macro (one line only)
iret = iim1.iimPlay("CODE:URL GOTO=http://www.iopus.com/imacros/irp")
If iret < 0 Then
MsgBox "Error in Macro#2: "+iim1.iimGetLastError()
End If

iret = iim1.iimDisplay("Script completed.")

MsgBox "Close IIM browser"

iret = iim1.iimExit
WScript.Quit(0)