Projects Log

projects, diy


Archive for 'perl' Category

Microsoft Scripting Guys failed at Perl… big time

2 February 2008

So don't get me wrong, I'm still a great MS fan and everything… but come on… they could have tested their script before publishing it!
the failure: (source

click here for full page

Patching Smokeping for Windows so you don't have to.

14 October 2007

I'm releasing this today, but it's still in beta (Everything that used to work with my old 2.0.8 patch works with that version, but not all new features have been tested yet)
What you'll need:
-Perl (latest version if you can)
-A web server (wamp is good, but others should work fine as well)

What the script will do [...]

Useless Dichotomic Morse to Human converter

17 August 2007

I'm using the binary decision tree approach to convert Morse Code to "Human"

Here's a part of the tree (not complete)

Lets decipher "— · —":
First mark is a dash -> next level and right node
Second mark is a dot -> next level and left node
Third mark is a dash -> next level and right node
"— · [...]

How to get the MAC address of a remote computer with its IP address with perl

1 August 2006

Windows >= 2000 only (or maybe NT4.0 SP6)
This is the cool solution, or you could parse the result of `ping -n 1 $ip > nul & arp -a` searching for $ip in the list (very slow and unpretty solution btw)
We will use two Windows dll ( iphlpapi.dll and wsock32.dll ) to import two functions ( [...]

How to delete file older than X days with Perl and WMI

9 July 2006

Original idea: Microsoft Scripting Guys (link)
Ok, that's not that hard, some VBScript to Perl translation, a little modification and that's all!
I think it should work works remotely too (untested yet) by changing $strComputer with the targeted computer (you need some specific credentials).

Find your printers with Active Directory and Perl

6 July 2006

Small perl script to find every printer in the active directory with perl

List locked accounts in a container or an OU using Perl

26 June 2006

Again, perl is a great language which could help you to save a lot of time (administration scripts, …)
Here's a perl script to list every locked accounts in a container or an OU!