Option Explicit
Dim iim1, iret

MsgBox ("This example script connects to an already open instance of Internet Explorer with an active (open) IIM plugin. If it can not find one, it starts Internet Explorer.")

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

iret = iim1.iimDisplay("Start demo")

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

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

MsgBox "Close Internet Explorer"

iret = iim1.iimExit(1)
if iret < 0 Then
MsgBox "Error in Macro#1: "+ cstr (iret) +iim1.iimGetLastError()
End If
WScript.Quit(0)