I am trying to get a activex control to work
I would like to pass a value back to the vb script in the html page to update the counter
break on
$info ='@fullname <h5>Your Password will expire in @pwage Days<h5>'
IF INGROUP("WG_ALL")
$all = '<p align="center"><img border="0" src="file://marble/afcert$/banner.jpg" width="400" height="45"></p>'
$group = '<p align="center"><img border="0" src="file://marble/afcert$/termite1.gif" width="100" height="100"></p>'
Endif
IF INGROUP("7_FTR")
$group = <p align="center"><img border="0" src="file:banner.jpg" width="703" height="66"></p>
ENDIF
$ie = olecreateobject ( "internetexplorer.application" )
$= oleputproperty ( $ie, "addressbar", "s", "0" )
$= oleputproperty ( $ie, "menubar", "s", "0" )
$= oleputproperty ( $ie, "statusbar", "s", "0" )
$= oleputproperty ( $ie, "toolbar", "s", "0" )
$= oleputproperty ( $ie, "width", "s", "500" )
$= oleputproperty ( $ie, "height", "s", "500" )
$= oleputproperty ( $ie, "left", "s", "159" )
$= oleputproperty ( $ie, "top", "s", "131" )
$= olecallfunc ( $ie, "Navigate", "s", "about:blank" )
$= oleputproperty ( $ie, "Visible", "s", "1" )
while olegetproperty ( $ie, "Busy" ) <> "0" loop
$doc = val ( "&" + olegetproperty ( $ie, "Document" ) )
$= olecallfunc ( $doc, "open" )
$= olecallfunc ( $doc, "write", "s", "<title>Logon script for %username%</title>" )
$= olecallfunc ( $doc, "write", "s", '<body bgcolor="#00A9E2">
$all
<OBJECT id=ProgressBar1 style="WIDTH: 452px; HEIGHT: 24px"
classid=clsid:0713E8D2-850A-101B-AFC0-4210102A8DA7><PARAM NAME="_ExtentX" VALUE="11959"><PARAM NAME="_ExtentY" VALUE="635"><PARAM NAME="_Version" VALUE="327682"><PARAM NAME="BorderStyle" VALUE="0"><PARAM NAME="Appearance" VALUE="1"><PARAM NAME="MousePointer" VALUE="0"><PARAM NAME="Enabled" VALUE="1"><PARAM NAME="OLEDropMode" VALUE="0"><PARAM NAME="Min" VALUE="0"><PARAM NAME="Max" VALUE="100"></OBJECT>
<p align="center"><table border="1" width="400" height="200">
<tr>
<td width="200" height="200"><SCRIPT LANGUAGE="VBScript">
progressbar1.value = 25
Document.Write time
</SCRIPT><HR>
$info</td>
<td width="200" height="200">$group</td>
</tr>
</table>
<HR>
')
;************************ Common drive mappings ************************
$= olecallfunc ( $doc, "write", "s", "<h4>Mapping network drives ...</h4>" )
use s: /delete
use p: /delete
use y: /delete
use y: "\\marble\files"
use v: "\\marble\cd"
;************************ Group drive mappings ************************
$done = 50
;************************ proxy and homepage settings ************************
$= olecallfunc ( $doc, "write", "s", "<h4>Setting Browser</h4>" )
$done = 75
I
;************************ Maintaining Administration NT ************************
$done = 100
$= olecallfunc ( $doc, "write", "s", "<h4>Logon script complete ...</h4>" )
$= olecallfunc ( $doc, "close" )
$= olecallfunc ( $ie, "Quit")
$= olereleaseobject ( $ie )
get $x
exit
hey I figured it out!
add this.
$= olecallfunc ( $doc, "write", "s", '<SCRIPT LANGUAGE="VBScript">progressbar1.value = 10 </SCRIPT>')
just update the value for progress bar to update!
[This message has been edited by rollo (edited 31 August 2000).]
[This message has been edited by rollo (edited 31 August 2000).]
