June 2018 Update

Task/Write-to-Windows-event-log/C/write-to-windows-event-log.c

@@ -0,0 +1,18 @@
+/*Abhishek Ghosh, 6th October 2017*/
+
+#include<stdlib.h>
+#include<stdio.h>
+
+int main(int argC,char* argV[])
+{
+	char str[1000];
+	
+	if(argC!=5)
+		printf("Usage : %s < Followed by level, id, source string and description>",argV[0]);
+	else{
+		sprintf(str,"EventCreate /t %s /id %s /l APPLICATION /so %s /d \"%s\"",argV[1],argV[2],argV[3],argV[4]);
+		system(str);
+	}
+	
+	return 0;
+}

Task/Write-to-Windows-event-log/D/write-to-windows-event-log.d

@@ -0,0 +1,12 @@
+import std.process;
+import std.stdio;
+
+void main() {
+    auto cmd = executeShell(`EventCreate /t INFORMATION /id 123 /l APPLICATION /so Dlang /d "Rosetta Code Example"`);
+
+    if (cmd.status == 0) {
+        writeln("Output: ", cmd.output);
+    } else {
+        writeln("Failed to execute command, status=", cmd.status);
+    }
+}

Task/Write-to-Windows-event-log/Lingo/write-to-windows-event-log.lingo

@@ -0,0 +1,5 @@
+shell = xtra("Shell").new()
+props = [:]
+props["operation"] = "runas"
+props["parameters"] = "/t INFORMATION /id 123 /l APPLICATION /so Lingo /d "&QUOTE&"Rosetta Code Example"&QUOTE
+shell.shell_exec("EventCreate", props)

Task/Write-to-Windows-event-log/Perl/write-to-windows-event-log.pl

@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+
+use Win32::EventLog;
+my $handle = Win32::EventLog->new("Application");
+
+my $event = {
+	Computer 	=>	$ENV{COMPUTERNAME},
+	Source		=> 	'Rosettacode',
+	EventType 	=> 	EVENTLOG_INFORMATION_TYPE,
+	Category  	=> 	'test',
+	EventID 	=> 	0,
+	Data 		=> 	'a test for rosettacode',
+	Strings 	=> 	'a string test for rosettacode',
+};
+$handle->Report($event);

Task/Write-to-Windows-event-log/PowerShell/write-to-windows-event-log-2.psh

@@ -0,0 +1,5 @@
+   $MessageFreeLula = 'Global unions and union leaders from more than 50 countries came together ' +
+      'in Geneva today to stand in solidarity with former Brazilian President Lula, calling for ' +
+      'his immediate release from jail and that he be allowed to run in the upcoming elections.'
+   Write-EventLog -LogName 'System' -Source 'Eventlog' -Message $MessageFreeLula -EventId 13 -EntryType 'Information'
+   'SUCCESS: The Lula Livre message (#FreeLula) has been recorded in the system log event.'

Task/Write-to-Windows-event-log/PowerShell/write-to-windows-event-log-3.psh

@@ -0,0 +1,7 @@
+   $MessageFreeLula = 'Global unions and union leaders from more than 50 countries came together ' +
+      'in Geneva today to stand in solidarity with former Brazilian President Lula, calling for ' +
+      'his immediate release from jail and that he be allowed to run in the upcoming elections.'
+   New-EventLog -LogName 'Free Lula!' -Source '#FreeLula'
+   Limit-EventLog -OverflowAction 'OverWriteAsNeeded' -MaximumSize (64KB*13) -LogName 'Free Lula!'
+   Write-EventLog -LogName 'Free Lula!' -Source '#FreeLula' -Message $MessageFreeLula -EventId 13 -EntryType 'Information'
+   'SUCCESS: The Lula Livre message (#FreeLula) has been recorded in the "Free Lula!" log event.'

Task/Write-to-Windows-event-log/Scala/write-to-windows-event-log.scala

@@ -0,0 +1,11 @@
+object RegisterWinLogEvent extends App {
+
+  import sys.process._
+
+  def eventCreate= Seq("EVENTCREATE", "/T", "SUCCESS", "/id", "123", "/l", "APPLICATION", "/so", "Scala RegisterWinLogEvent", "/d", "Rosetta Code Example"  ).!!
+
+  println(eventCreate)
+
+  println(s"\nSuccessfully completed without errors. [total ${scala.compat.Platform.currentTime - executionStart} ms]")
+
+}