Write to Internet Explorer
By nater

Set objExplorer = WScript.CreateObject _
("InternetExplorer.Application", "IE_")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 400
objExplorer.Height = 250
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1
Set objDocument = objExplorer.Document
objDocument.Open
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer& "\root\cimv2")
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service")
For Each objService in colServices
objDocument.Writeln objService.DisplayName & "<BR>"
Wscript.Sleep 2000
Next
Sub IE_onQuit()
Wscript.Quit
End Sub

Rating:


0/5 based on 0 votes. The median rating is 0.

Submitted: 11/19/10 (Edited 11/19/10)

Description: This VB script will open Internet Explorer and then right text to the window. Good for reporting or error logging.

Tags:

Views: 117 views. Averaging 0 views per day.
In the most recent 30 day period, there've been 0 views.

Similar Articles:
Want to Write for Broadband Reports? - We're Still
Want to Write for Broadband Reports? - We're Still
How to Write a Meaningful FCC Comment on Net Neutr
Want To Write For Broadband Reports? - We're Looki
Want To Write For Broadband Reports? - We're Looki

Previous Article | Next Article