<div>
Here is a link to code snippets and examples for writing to the event log with Visual Basic. Watch out for the pop-ups. <br />
<br />
<br />
<a href="http://kandkconsulting.tripod.com/VB/VBCode.htm" rel="ugc">http://kandkconsulting.tripod.com/VB/VBCode.htm</a>
</div>


Here is a link to code snippets and examples for writing to the event log with Visual Basic. Watch out for the pop-ups.


http://kandkconsulting.tripod.com/VB/VBCode.htm [http://kandkconsulting.tripod.com/VB/VBCode.htm]

<div>
I do not have visual basic on my machine, but I search around on the web page to find the code you referenced, thinking it might provide a clue. &nbsp;I did not find it. &nbsp;For completeness, here is an example vbs script which I want to write to the application event log file.<br />
<br />
set WshShell = CreateObject(&quot;WScript.Shel<wbr />l&quot;)<br />
WshShell.Run &quot;%SystemRoot%\System32\cle<wbr />anmgr.exe&quot;<wbr /><br />
WScript.Sleep 2000<br />
<br />
WshShell.SendKeys &quot;{ENTER}&quot;<br />
wscript.sleep 1000<br />
<br />
While WshShell.AppActivate(&quot;Disk<wbr /> Cleanup for&quot;)= FALSE<br />
&nbsp; wscript.sleep 5000<br />
Wend<br />
<br />
wscript.sleep 1000<br />
WshShell.SendKeys &quot;{ENTER}&quot;<br />
<br />
wscript.sleep 1000<br />
WshShell.SendKeys &quot;{ENTER}&quot;<br />
<br />
While WshShell.AppActivate(&quot;Disk<wbr /> Cleanup for&quot;)= FALSE<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;wscript.sleep 5000<br />
Wend
</div>


I do not have visual basic on my machine, but I search around on the web page to find the code you referenced, thinking it might provide a clue.  I did not find it.  For completeness, here is an example vbs script which I want to write to the application event log file.

set WshShell = CreateObject("WScript.Shell")
WshShell.Run "%SystemRoot%\System32\cleanmgr.exe"
WScript.Sleep 2000

WshShell.SendKeys "{ENTER}"
wscript.sleep 1000

While WshShell.AppActivate("Disk Cleanup for")= FALSE
  wscript.sleep 5000
Wend

wscript.sleep 1000
WshShell.SendKeys "{ENTER}"

wscript.sleep 1000
WshShell.SendKeys "{ENTER}"

While WshShell.AppActivate("Disk Cleanup for")= FALSE
      wscript.sleep 5000
Wend

<div>
<div class="content wysiwyg-content">
I have some vbs scripts, actually windows script host stuff. &nbsp;I ask for a vbs script that writes a message to the applicaton log file, that is, that which is viewed by the event viewer. &nbsp;I will then integrate that into my existing vbs scripts.
</div>
</div>


I have some vbs scripts, actually windows script host stuff.  I ask for a vbs script that writes a message to the applicaton log file, that is, that which is viewed by the event viewer.  I will then integrate that into my existing vbs scripts.

vbs script to write to application log file

Windows 2000 is an operating system for use on both client and server computers. It is the successor to Windows NT 4.0, and is the last version of Microsoft Windows to display the "Windows NT" designation. Four editions of Windows 2000 were released (Professional, Server, Advanced Server, and Datacenter Server) that shared a core set of features, including many system utilities such as the Microsoft Management Console. All versions of the operating system support NTFS 3.0, Encrypting File System, as well as basic and dynamic disk storage. The Windows 2000 Server family includes support for Active Directory services, Distributed File System and fault-redundant storage volumes.