Recently, I’ve been doing a bit of scripting for use inside a Windows environment and as such became somewhat interested in some of the functionality that is offered up by PowerShell. As a result I began experimenting with calling PowerShell commands from within a Perl script. Below is a simple example, that when run with appropriate privileges can take a list of PC names and clear the security log on each PC.
use strict;
use warnings;
open(my $hosts, "<", "hosts.txt")
or die "cannot open < hosts.txt: $!";
while(<$hosts>){
my $host=$_;
system("powershell -Command \"& {Clear-EventLog -Logname Security -ComputerName $host;}\"");
}
close $hosts;
use warnings;
open(my $hosts, "<", "hosts.txt")
or die "cannot open < hosts.txt: $!";
while(<$hosts>){
my $host=$_;
system("powershell -Command \"& {Clear-EventLog -Logname Security -ComputerName $host;}\"");
}
close $hosts;