Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Perl: How to create a chart in MS Excel

#!/usr/bin/perl -w
use Win32::OLE;
use Win32::OLE::Const 
use strict;
my $xls_app = Win32::OLE->new( 'Excel.Application' )
	or die "Unable to access

Perl: How to create and configure user accounts in Windows

#!/usr/bin/perl -w
use Win32::NetAdmin;
$host = '';                         # host
$username = "test_user";               # userame
$password = "****

Perl: Execute a formula in Excel

#!/usr/bin/perl -w
use Win32::OLE;
$operand1 = '10';
$operand2 = '20';
$xls_app = Win32::OLE->new('Excel.Application');
# Launch Micosoft Excel.
$xls

Perl: Get the OS file system

#!/usr/bin/perl -w
use Win32;
$fstype = Win32::FsType();
print "$fstype";

Perl: List all Users and Groups

#!/usr/bin/perl -w
use Win32::NetAdmin;
$myStat = Win32::NetAdmin::GetUsers('', FILTER_NORMAL_ACCOUNT, %users);
if ($myStat) {
   print_hash( %users

Perl: How to get data from Windows Clipboard

#!/usr/bin/perl
use Win32::Clipboard;
my $clip_b = Win32::Clipboard->new();
$val = $clip_b->Get();
print "Clipboard contains: [ $val ]";