Here's how to update your mesage center, but now you need figure out how to change the tbox colors to "blend" in with your schema !
code:
break on
$false = 0
$true = -1
$WindowTop = 100
$WindowLeft = 100
$WindowWidth = 600
$WindowHeight = 460
$BackGround = "http://www.free-clip-art.net/backgrounds/background44_S.gif"
$NoHServerMsg = "Your group setup is incorrect. Please call the Help Desk"
$NoHServerTitle = "Logon Error!"
$Company = "Acme Corp."
$Welcome = "Welcome to the $Company Network"
$UserName = @USERID
$FullName = @FullName
$Priv = @Priv
$Wksta = @Wksta
$Domain = @Domain
$LServer = @LServer
$HServer = $LServer
GOSUB GetHServer
$StatusMessage = "Running Logon Script"
$ie = olecreateobject("internetexplorer.application")
if $ie = 0 exit endif
; Set properties and display form ...
$nul = oleputproperty($ie, "addressbar","s","$false")
$nul = oleputproperty($ie, "menubar", "s", "$false")
$nul = oleputproperty($ie, "toolbar", "s", "$false")
$nul = oleputproperty($ie, "statusbar", "s", "$false")
$nul = oleputproperty($ie, "resizable", "s", "$false")
$nul = oleputproperty($ie, "top", "s", "$WindowTop")
$nul = oleputproperty($ie, "left", "s", "$WindowLeft")
$nul = oleputproperty($ie, "height", "s", "$WindowHeight")
$nul = oleputproperty($ie, "width", "s", "$WindowWidth")
$nul = olecallfunc($ie, "navigate", "s", "about:blank")
while olegetproperty($ie, "busy") <> "0" and @error = 0 loop
; Get a handle to the open document ...
$doc = val("&" + olegetproperty($ie, "document"))
gosub htmllogon
$nul = olecallfunc($doc, "write", "s", "$html")
$nul = oleputproperty($ie, "visible", "s", "$true")
;ENTER YOUR NETWORK COMMANDS HERE
$frmMessage = val ( "&" + olecallfunc ( $doc, "getElementById", "s", "frmMessage" ))
$percent = 25
while $percent < 100
$percent = $percent + 1
if ($percent & rnd () ) = 0 ; simulate activiity
sleep 1
endif
$nul = oleputproperty ( $frmMessage, "value", "s", "Message Center ($percent%) complete" )
loop
?"pause..." gets $k
;Object cleanup
$nul = olecallfunc ( $doc, "close" )
$nul = olereleaseobject ( $doc )
$nul = olecallfunc ( $ie, "quit" )
$nul = olereleaseobject ( $ie )
EXIT
; --------------------------------------------------------------------
; Logon Script Subroutines
; Do not modify any lines below this!!!
;----------
:htmllogon
;----------
$html = '
<html>
<head>
<title>$Welcome</title>
</head>
<body background="$BackGround" bgcolor="#0000FF">
<div align="center"><center>
<table border="5" width="400" bgcolor="#000000"
bordercolor="#008000" bordercolordark="#008080"
bordercolorlight="#00FF00">
<tr>
<td><p align="center"><font color="#FFFFFF" size="4"><strong>$Welcome
</strong></font></p>
</td>
</tr>
</table>
</center></div>
<p> </p>
<div align="center"><center>
<table border="5" width="400" bgcolor="#000000"
bordercolor="#008000" bordercolordark="#008080"
bordercolorlight="#00FF00">
<tr>
<td><p align="left"><font color="#FFFFFF">User ID:</font></p>
</td>
<td><p align="left"><font color="#FFFF00"><strong>$UserName</strong></font></p>
</td>
</tr>
<tr>
<td><p align="left"><font color="#FFFFFF">Full Name:</font></p>
</td>
<td><font color="#FFFF00"><strong>$FullName</strong></font></td>
</tr>
<tr>
<td><font color="#FFFFFF">Privilege:</font></td>
<td><font color="#FFFF00"><strong>$Priv</strong></font></td>
</tr>
<tr>
<td><font color="#FFFFFF">Workstation:</font></td>
<td><font color="#FFFF00"><strong>$Wksta</strong></font></td>
</tr>
<tr>
<td><font color="#FFFFFF">Domain:</font></td>
<td><font color="#FFFF00"><strong>$Domain</strong></font></td>
</tr>
<tr>
<td><font color="#FFFFFF">Logon Server:</font></td>
<td><font color="#FFFF00"><strong>$LServer</strong></font></td>
</tr>
<tr>
<td><font color="#FFFFFF">Home Server:</font></td>
<td><font color="#FFFF00"><strong>$HServer</strong></font></td>
</tr>
</table>
</center></div>
<p> </p>
<div align="center"><center>
<table border="5" width="400" bgcolor="#000000"
bordercolor="#008000" bordercolordark="#008080"
bordercolorlight="#00FF00">
<tr>
<td><strong><input type=tbox id=frmMessage size=80></strong></td>
</tr>
<tr>
<td><font color="#FFFF00">$StatusMessage</font></td>
</tr>
</table>
</center></div>
</body>
</html>
'
return
;----------
:GetHServer
;----------
$s = instr(@COMMENT,"(")
$e = instr(@COMMENT,")")
$l = ($e - $s) - 1
if $s = 0
$HServer = $LServer
$Nul = MessageBox("$NoHServerMsg","$NoHServerTitle",16)
else
if $e > 0
$HSERVER = substr(@COMMENT,$s+1,$l)
else
goto nohome
endif
endif
return
Shawn.
