ramiroencinas

my $path_logs     = '/var/log/gifts/';
my $main_log      = 'deliveries.log';
my $path_main_log = $path_logs ~ $main_log;
my $max_size_log  = 20000000;
my $max_logs      = 5;

exit unless $path_main_log.IO.e;
exit if $path_main_log.IO.s < $max_size_log;

my @log_files = $path_logs.IO.dir.grep(/$main_log$ | $main_log\d+$/).sort;

ramiroencinas

# Get Office 365 License Names from GUID

function Get-LicenseNamesByGUID {

    param( [string] $GUID )

    [Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12
    $wc = New-Object System.Net.WebClient
    $wc.Encoding = [System.Text.Encoding]::UTF8
    $src = $wc.downloadstring('https://docs.microsoft.com/en-us/azure/active-directory/enterprise-users/licensing-service-plan-reference')

ramiroencinas

$delay_seconds = 1

while (1) {

	$timestamp = Get-Date -Format "dd-MM-yyyy HH:mm:ss"

	Try {

		$connections = Get-NetTCPConnection -State Established -AppliedSetting Internet -ErrorAction Stop | select OwningProcess, RemoteAddress, RemotePort 

ramiroencinas

use POSIX qw(strftime);

my $date, $remote_ip, $remote_port, $user, $group, $cmdpath;

while (1) {

  foreach (`ss -tupn`) {

    $date = strftime "%d-%m-%Y %H:%M:%S", localtime;

ramiroencinas

Getting Windows Memory Usage with NativeCall

Raku NativeCalls provide a way to interact with dynamic libraries that follow the C calling convention and are very useful for obtaining information from the operating system, such as memory usage.

In this article we will see how to get the memory usage from a Windows system.

The MEMORYSTATUSEX C++ structure

Win32 API provides the MEMORYSTATUSEX structure: