Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Thu, 17 Jul 2025 07:40:08 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080402120905 location: https://web.archive.org/web/20080402120905/https://techtasks.com/code/viewbookcode/316 server-timing: captures_list;dur=0.632377, exclusion.robots;dur=0.023989, exclusion.robots.policy;dur=0.011550, esindex;dur=0.011981, cdx.remote;dur=20.130217, LoadShardBlock;dur=1344.057910, PetaboxLoader3.resolve;dur=457.140464, PetaboxLoader3.datanode;dur=260.170858 x-app-server: wwwb-app213 x-ts: 302 x-tr: 1394 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: SERVER=wwwb-app213; path=/ x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() HTTP/2 200 server: nginx date: Thu, 17 Jul 2025 07:40:08 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Wed, 02 Apr 2008 12:09:06 GMT x-archive-orig-server: Apache/2.0.61 (Unix) PHP/4.4.7 mod_ssl/2.0.61 OpenSSL/0.9.7e mod_fastcgi/2.4.2 DAV/2 SVN/1.4.2 x-archive-orig-set-cookie: _session_id=d3ca6f210f6a4c84879f32fc2e5bcaa8; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10783 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Wed, 02 Apr 2008 12:09:05 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Fri, 12 Oct 2007 09:46:12 GMT", ; rel="prev memento"; datetime="Sat, 02 Feb 2008 01:14:49 GMT", ; rel="memento"; datetime="Wed, 02 Apr 2008 12:09:05 GMT", ; rel="next memento"; datetime="Sun, 01 Jun 2008 19:03:55 GMT", ; rel="last memento"; datetime="Fri, 10 Oct 2008 17:10:40 GMT" content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org x-archive-src: 52_2_20080402105608_crawl103-c/52_2_20080402120651_crawl102.arc.gz server-timing: captures_list;dur=0.519095, exclusion.robots;dur=0.020660, exclusion.robots.policy;dur=0.010526, esindex;dur=0.010941, cdx.remote;dur=16.674062, LoadShardBlock;dur=126.455929, PetaboxLoader3.datanode;dur=268.057959, PetaboxLoader3.resolve;dur=203.044835, load_resource;dur=361.807309 x-app-server: wwwb-app213 x-ts: 200 x-tr: 549 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=1 x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() content-encoding: gzip Search an Event Log (VBScript) - Windows XP Cookbook

Search an Event Log (VBScript)

This code can be found in Chapter 16 of Windows XP Cookbook

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the VBScript code from this site.

' From the book "Windows XP Cookbook"
' ISBN: 0596007256
' ------ SCRIPT CONFIGURATION ------
intEventCode = <EventID> ' Event ID to match; e.g. 105
strLog = "<EventLogName>" ' Event log name; e.g. Application
intMaxNum = <MaxNumberOfEvents> ' Max events to return (0 for all)
strComputer = "<ComputerName>" ' Use "." for local system
' ------ END CONFIGURATION ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colEvents = objWMI.ExecQuery("Select * from Win32_NTLogEvent " & _
 " Where Logfile = '" & strLog & "'" & _
 " and EventCode = " & intEventCode)
count = 0
for each objEvent in colEvents
 Wscript.Echo "Date: " & objEvent.TimeWritten
 Wscript.Echo "Source: " & objEvent.SourceName
 Wscript.Echo "Category: " & objEvent.Category
 Wscript.Echo "Type: " & objEvent.Type
 Wscript.Echo "Event Code: " & objEvent.EventCode
 Wscript.Echo "User: " & objEvent.User
 Wscript.Echo "Computer: " & objEvent.ComputerName
 Wscript.Echo "Message: " & objEvent.Message
 WScript.Echo "------"
 WScript.Echo
 count = count + 1
 if intMaxNum > 0 and count >= intMaxNum then
 WScript.Echo "Reached maximum threshold...exiting"
 exit for
 end if
next

This code has been viewed 1593 times.

New from the creators of TechTasks.com: StatSheet.com

Original Source | Taken Source