Ed
Tue Jul 15 13:21:37 CDT 2003
I fixed it, it now works on my win2k box. Syntax error. :-(
' Author: Tony Hinkle
' tonyhinkle@yahoo.com
' The only original part I came up with is make the DIV element an
' object and change its innerHTML property. I'm sure someone else
' has done it, but I couldn't find an example anywhere.
' This capability makes IE an excellent output device for WSH.
' Output can be sent to IE, and it is not necessary to refresh or reload.
' I know it's sloppy--it's a sample that runs for 10 seconds...
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set IE = CreateObject("InternetExplorer.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a path and filename to a file in My Documents
strMyDocPath = WshShell.SpecialFolders("MyDocuments")
strTempFile = strMyDocPath & "\DIVExample.html"
'Create a file
fso.CreateTextFile (strTempFile)
Set f1 = fso.GetFile(strTempFile)
Set ts = f1.OpenAsTextStream(2, True)
'Write a blank HTML page to the file with an empty DIV element, and then
close the file
ts.WriteLine("<HTML><HEAD><TITLE>Changing DIV's innerHTML from
VBScript</TITLE></HEAD>")
ts.WriteLine("<BODY SCROLL='NO'><CENTER><FONT FACE='arial black'> <HR
COLOR='BLACK'>")
ts.WriteLine("<DIV id='MakeMeAnObject'></DIV>")
ts.WriteLine("<HR COLOR='BLACK'></FONT></CENTER></BODY></HTML>")
ts.Close
'Run IE and load the file we just created
SetupIE(strTempFile)
'Set the DIV element as an object
Set objDIV = IE.Document.All("MakeMeAnObject")
'Change the innerHTML of the DIV object
ServiceStatus "\\VRC40ADP2", "PolicyAgent", STPolicyAgent
objDiv.InnerHTML = "Policy Agent is : " & STPolicyAgent
WScript.Sleep 4000
'Close IE and delete the file
IE.Quit
f1.Delete
Sub SetupIE(File2Load)
IE.Navigate File2Load
IE.ToolBar = False
IE.StatusBar = False
IE.Resizable = False
Do
Loop While IE.Busy
IE.Width = 500
IE.Height = 110
IE.Left = 0
IE.Top = 0
IE.Visible = True
WshShell.AppActivate("Microsoft Internet Explorer")
End Sub
function ServiceStatus(strComputer, strService, Result)
strOutput = Exec_Cmd("PSSERVICE " & strComputer & " query " & strService)
wscript.echo strOutput
if instr(strOutput,"STATE") = 0 then
Result = "NOTFOUND"
' elseif instr(strOutput,"STATE : 4 RUNNING")>0 then
elseif instr(strOutput,"4 RUNNING") <> 0 then
Result = "Running"
else
Result = "Stopped"
end if
end function
Function Exec_Cmd(cmdline)
' thanks to Alex K. Angeloupoulos
Set objShell = CreateObject("WScript.Shell")
Set objExCmd = objShell.Exec("%COMSPEC% /C " & cmdline)
Set objExCmdStdOut = objExCmd.StdOut
Set objExCmdStdErr = objExCmd.StdErr
Do: WScript.Sleep 10
Do Until objExCmdStdOut.AtEndOfStream
Exec_Cmd = Exec_Cmd & objExCmdStdOut.ReadAll
CmdErr = CmdErr & objExCmdStdErr.ReadAll
Loop
Loop Until objExCmd.Status <> 0
' and objExCmdStdOut.AtEndOfStream
end function
"Ed" <glass walker theurge AT juno DOT com> wrote in message
news:%23vYS$3vSDHA.2280@TK2MSFTNGP12.phx.gbl...
> The below script generates an html page that is displayed in IE. But it
> only writes the page. The actual workhorse is VB, so it is not restricted
> by HTML limitations. And since I can not stand up a web server to do this
> this is perfect (accept that I don't understand how it works so well). I
> have come up with somthing that partially works. It just gives wrong
info.
> It says "not found", due to some coding error, that I cant find. It may
be
> logic based.
>
> ' Author: Tony Hinkle
> ' tonyhinkle@yahoo.com
>
> ' The only original part I came up with is make the DIV element an
> ' object and change its innerHTML property. I'm sure someone else
> ' has done it, but I couldn't find an example anywhere.
>
> ' This capability makes IE an excellent output device for WSH.
> ' Output can be sent to IE, and it is not necessary to refresh or reload.
>
> ' I know it's sloppy--it's a sample that runs for 10 seconds...
>
> Set WSHShell = WScript.CreateObject("WScript.Shell")
> Set IE = CreateObject("InternetExplorer.Application")
> Set fso = CreateObject("Scripting.FileSystemObject")
>
> 'Create a path and filename to a file in My Documents
> strMyDocPath = WshShell.SpecialFolders("MyDocuments")
> strTempFile = strMyDocPath & "\DIVExample.html"
>
> 'Create a file
> fso.CreateTextFile (strTempFile)
> Set f1 = fso.GetFile(strTempFile)
> Set ts = f1.OpenAsTextStream(2, True)
>
> 'Write a blank HTML page to the file with an empty DIV element, and then
> close the file
> ts.WriteLine("<HTML><HEAD><TITLE>Changing DIV's innerHTML from
> VBScript</TITLE></HEAD>")
> ts.WriteLine("<BODY SCROLL='NO'><CENTER><FONT FACE='arial black'> <HR
> COLOR='BLACK'>")
> ts.WriteLine("<DIV id='MakeMeAnObject'></DIV>")
> ts.WriteLine("<HR COLOR='BLACK'></FONT></CENTER></BODY></HTML>")
> ts.Close
>
> 'Run IE and load the file we just created
> SetupIE(strTempFile)
>
> 'Set the DIV element as an object
> Set objDIV = IE.Document.All("MakeMeAnObject")
>
> 'Change the innerHTML of the DIV object
> ServiceStatus "\\VRC40ADP2", "PolicyAgent", STPolicyAgent
> objDiv.InnerHTML = "Policy Agent is : " & STPolicyAgent
> WScript.Sleep 4000
>
> 'Close IE and delete the file
> IE.Quit
> f1.Delete
>
> Sub SetupIE(File2Load)
> IE.Navigate File2Load
> IE.ToolBar = False
> IE.StatusBar = False
> IE.Resizable = False
>
> Do
> Loop While IE.Busy
>
> IE.Width = 500
> IE.Height = 110
> IE.Left = 0
> IE.Top = 0
> IE.Visible = True
> WshShell.AppActivate("Microsoft Internet Explorer")
> End Sub
>
> function ServiceStatus(strComputer, strService, Result)
> strOutput=Exec_Cmd( _
> "PSSERVICE \\" & strComputer & " query " & strService)
> if instr(strOutput,"STATE")=0 then
> Result = "NOTFOUND"
> elseif instr(strOutput,"STATE : 4 RUNNING")>0 then
> Result = "Running"
> else
> Result = "Stopped"
> end if
> end function
>
> Function Exec_Cmd(cmdline)
> ' thanks to Alex K. Angeloupoulos
> Set objShell = CreateObject("WScript.Shell")
> Set objExCmd = objShell.Exec("%COMSPEC% /C " & cmdline)
> Set objExCmdStdOut = objExCmd.StdOut
> Set objExCmdStdErr = objExCmd.StdErr
> Do: WScript.Sleep 10
> Do Until objExCmdStdOut.AtEndOfStream
> Exec_Cmd = Exec_Cmd & objExCmdStdOut.ReadAll
> CmdErr = CmdErr & objExCmdStdErr.ReadAll
> Loop
> Loop Until objExCmd.Status <> 0
> ' and objExCmdStdOut.AtEndOfStream
> end function
>
> "Ross Presser" <rpresser@NOSPAM.imtek.com.invalid> wrote in message
> news:Xns93B980A22EF73pt101594@129.250.170.91...
> > "Ed" <glass walker theurge AT juno DOT com> wrote in
> > news:OgVB2XrSDHA.1552@TK2MSFTNGP12.phx.gbl:
> >
> > > Will the below script work in HTA, what are the differances? Do I
> > > need a server, or can I just run the .hta? Thanks in advance for your
> > > help. I am googling as I write this.
> >
> > Well, the script is no longer "below" ... but the point is this:
> basically,
> > any HTML page whatsoever, saved as a local file, will run as an HTA. It
> > gets the benefit of looser security restrictions. Think of HTA.EXE as
> > another browser, like IE or Netscape, but one that is very unsafe. :)
> >
> > --
> > Ross Presser -- rpresser AT imtek DOT com
> > "... VB is essentially the modern equivalent of vulgar Latin in 13th
> > Centurary Europe. Understand it, and you can travel to places you never
> > heard of and still understand some people." -- Alex K. Angelopoulos
>
>