in reply to Re: Keyboard Lights
in thread Keyboard Lights

True enough, this script works on Win2k / AS Perl 628 and so does the one-liner

#! perl -w
use strict;
use Win32::OLE;
my $wshShell = Win32::OLE->new('WScript.shell');
$wshShell->sendkeys("{NUMLOCK}");

__END__

perl -MWin32::OLE -e "Win32::OLE->new('WScript.shell')->sendkeys('{NUM
+LOCK}')"

[download]
Rudif

Replies are listed 'Best First'.
Re: Re: Re: Keyboard Lights
by Foggy Bottoms (Monk) on Jun 19, 2003 at 10:01 UTC
    It works fine on NT4 as well and it's kinda cool too. But how d'ya know whether the lines turned off ?
    Heureux qui, comme Ulysse, a fait un beau voyage Ou comme celui-là qui conquit la Toison, Et puis est retourné plein d'usage et raison, Vivre entre ses parents le reste de son âge!

    J. du Bellay, poëte angevin

[reply]

In Section Seekers of Perl Wisdom