'
' Script to add data to the audit log via the use of WScript - the
' root object of the Windows Script Host object model hierarchy.
' The Admin Service must be started on the current computer.
'
' Run this script by typing the following:
' WScript.exe Audit.vbs
' CScript.exe Audit.vbs
'
Dim AuditIt
' Echo a line to the console stating that we are about to add an
' entry to the audit log.
WScript.Echo "About to add an entry to the audit log"
' Create an instance of the Audit COM object that is served by the
' Admin Service. The id of the object is AdminService.EVAdminAudit.
Set AuditIt = WScript.CreateObject("AdminService.EVAdminAudit")
' Audit the following values to the audit log.
' Parameter one is the category of the operation.
' Parameter two is the sub category
' Parameter three is the identifier of the object being audited.
' Parameter four is the status of the operation.
' Parameter five is the field to add any information required.
'
AuditIt.Audit "Test Category", "Test Sub Category", "ObjectId", 
"SUCCESS", "Info"
WScript.Echo "Finished the audit."