Dim objFileSystem, objOutputFile
Dim strOutputFile

Const OPEN_FILE_FOR_APPENDING = 8
'Logfile name
strOutputFile = "./oracle-macro-log.xml" 
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
'OpenMonitor xml begin tags
objOutputFile.WriteLine(" <ncopenmon>" & vbCrLf & "  <counters>")

If WScript.Arguments.Count = 1 Then
  Macro1 = WScript.Arguments.Item(0)
 Else
  Wscript.Echo "Usage: start-ie.vbs Macro1"
  Wscript.Quit
 End If
   
set iim1= CreateObject ("imacros")

'Start browers
iret = iim1.iimInit ("-tray")
'Browers start log 
objOutputFile.WriteLine("   <counter path=""imacros/BROWSER"">"+cstr(iret)+"</counter>")

'Run the macro
iret = iim1.iimPlay(macro1)
'Macro log
objOutputFile.WriteLine("   <counter path=""imacros/MACRO"">"+cstr(iret)+"</counter>")

'Close browers
iret = iim1.iimExit(1)
'Exit log
objOutputFile.WriteLine("   <counter path=""imacros/EXIT"">"+cstr(iret)+"</counter>")
'OpenMonitor xml end tags
objOutputFile.WriteLine("   </counters>" & vbCrLf & "  </ncopenmon> ")

objOutputFile.Close
Set objFileSystem = Nothing
WScript.Quit(0)