ie4helper.tobtools

[Patryn]

Couple of years back I wrote a script to simplify the configuration of Cisco switches.
Works fine on win2000 and older, as long as you install something called tobtools (I believe it was a German proggie)
But now on XP it refuses to install, dunno why, probably just too old.
But without it the script doesn't run, now beeing out of scripting for awhile I wondered if someone knows a solution on how to get this working again.

The problem is in < Set tools = WScript.CreateObject(&quot;ie4helper.tobtools&quot;, &quot;event_&quot >
Actually just opens a webpage to select a certain switch type and direct to the script typical for that switch type.

*script start*
' SwitchConfigHTML



' Is there input?
ok = False

mijnpad = WScript.ScriptFullName
mijnpadmap = Left(mijnpad, InStrRev(mijnpad, &quot;\&quot)
menu = mijnpadmap + &quot;menu.htm&quot;

Set WshShell = CreateObject(&quot;WScript.Shell&quot

Set bestandssysteem = CreateObject(&quot;Scripting.FileSystemObject&quot
If Not bestandssysteem.FileExists(menu) Then
MsgBox &quot;De sjabloon &quot; & menu & &quot; &quot; & &quot;ontbreekt. &quot; _
& &quot;Script will be closed.&quot;, vbCritical
WScript.Quit
End If
Set bestandssysteem = Nothing


Set tools = WScript.CreateObject(&quot;ie4helper.tobtools&quot;, &quot;event_&quot
Set iexplore = tools.OpenIEWindowFromTemplate (menu, 900, 600, False)

' On click call procedure &quot;Switch type&quot;:
iexplore.document.all.Switch7.OnClick = GetRef(&quot;Switch7&quot
iexplore.document.all.Switch8.OnClick = GetRef(&quot;Switch8&quot
iexplore.document.all.Switch13.OnClick = GetRef(&quot;Switch13&quot
iexplore.document.all.Switch14.OnClick = GetRef(&quot;Switch14&quot






' Show Window:
iexplore.Visible = True

' Wait until window is closed:
tools.WaitForQuit (iexplore)

Sub event_OnQuit
' Close window
' All input recieved
If Not ok Then
' No send message:
MsgBox &quot;Window closed&quot;, vbCritical
WScript.Quit
End If
End Sub

' Connect config script



Sub Switch7


WshShell.Run mijnpadmap & &quot;3524-2FiberNew\SwCfg3524-2N.vbs&quot;

' Delete Message from Message &quot;OnQuit&quot;
ok = True
' Close window:
iexplore.Quit
End Sub

**** etc ***

Thanx in advance,

Pat

 

[tsuji]

Hello Patryn,

You said
>But now on XP it refuses to install...
Do you mean XP refuses to install the tool?, (those essentially regsvr32 ... thing), or installed but cannot make it to work.

A minimum signature of enabled progid ie4helper.tobtools is to make a search in the registry. If it's absence all together, the tool is not installed.

regards - tsuji

 

[Patryn]

Hello tsuji,

No, the tobtools thingy doesn't install at all.
Installation just suddenly breaks of before it even started.
Might have to do with it beeing created for wscript 5.5 while XP runs 5.6 as I believe.
But I don't have a real must in using it when there is anouther way of getting the script to work.

Regards,

Pat