Tilføjelse af events til log

Hej

Jeg ønsker at tilføje events til de forskellige logs i Windows:
Application
Security
System

Jeg har fundet frem til følgende:

Dim oShell
Set oShell = CreateObject("Wscript.Shell")
oShell.LogEvent 16, "TEST af WSH script"

Problemet med denne lille kode er at den kun tilføjer i applicationloggen - jeg vil tilføje i alle de 3 angivet ovenfor.

How?

Thanks!