<?xml version="1.0" encoding="iso-8859-1" standalone="yes"?>
<package>
<job>
<meta http-equiv="Content-Type" content="text/xml; charset=iso-8859-1"/>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"/>
<script type="text/vbscript" language="vbscript">
<![CDATA[
option explicit
 
'Initialization
const test = false
 
'Variables
'Object MSIE(Microsoft Internet Explorer)
dim oIE
 
'Object Shell
dim oSh
 
'Button objects
dim oBut
 
'Flag to the WEB IHM control
'used to know when start the backup
dim startBackup
 
'Object RegExp (Regular Expression)
dim regExp
 
'Object shell
'dim oSh
 
'String
dim sScriptPath
 
'Variables used by the timer
dim startTime, timeOut
 
'Initialization  
'Get script current directory
set regExp = new RegExp
regExp.pattern = wScript.ScriptName
sScriptPath = regExp.replace(wScript.ScriptFullName, "" )
 
'Instanciate an object shell
set oSh = CreateObject("wscript.shell" )
 
'Instanciate the object I.E.
set oIE = createObject("InternetExplorer.Application" )
 
oIE.Navigate ""& sScriptPath & "svgAuto.htm" &""
oIE.Width = 400
oIE.Height = 380
oIE.ToolBar = 0
oIE.MenuBar = 0
oIE.StatusBar = 0
 
'Wait till MSIE is ready
Do  
  WScript.Sleep 100
Loop While oIE.Busy = 1
 
'Connect to the event handler  
set oBut = oIE.document.getElementById("bouton1" )
set oBut.onclick = getRef("get_OK_button_click" )
 
initTimer(30)
err.clear
on error resume next
oSh.appActivate "BrightStor Arcverse v.9"
oIE.Visible = true
 
'Wait until the user click on the button "OK"
Do until myTimer()
  WScript.Sleep 100
Loop
 
if test then wscript.echo "Démarrage de la sauvegarde"
 
'Close MSIE and the WEB IHM
oIE.quit
'Reset objects variables
set oIE = nothing
set regExp = nothing
 
'Init Timer in second
sub initTimer(timeOutToSet)
  startTime = timer
  timeOut = timeOutToSet
end sub
 
'Timer
function myTimer
  dim currentTime
  currentTime = timer
  if currentTime - startTime >= timeOut then
    myTimer = true
  end if
end function  
 
'Event Handler
'Click the button OK result in hidding the IHM    
sub get_OK_button_click
oIE.Visible = 0
end sub  
]]>
</script>
</job>
</package>