This works on my own domain from a Win2k or NT box:
use Win32::OLE;
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
my $domain = Win32::OLE->GetObject("WinNT://IRM-NT");
foreach my $object (in $domain) {
if ($object->{Class} eq 'User') {
my $last_login;
if ($object->{LastLogi
Oh, by the way... you'll want to replace the IRM-NT in the script with your
own domain, of course. Sorry about that.
jpt
-Original Message-
From: Leon [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 12, 2003 12:35 PM
To: Robert-Jan Mora
Cc: perl; win32; Yahoo Beginner Perl
Subject: Re: L
That should have been:
Not all *nix programs will run under Cygwin because some require *MORE*
services/libraries than Cygwin provides
Sorry about that...
jpt
> -Original Message-
> From: Tillman, James
> Sent: Monday, February 17, 2003 9:53 AM
> To: 'Pradeep Goel&#
> -Original Message-
> From: Pradeep Goel [mailto:[EMAIL PROTECTED]]
> Sent: Monday, February 17, 2003 8:34 AM
> To: [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: 1) cygwin , 2) sprite/DBM
>
>
> Hi All
>
> I have no idea of CYGWIN except only that almost all unix
> commands c
> I have tree view structure ,like directory structure in windows.
> Now I want to select and change the name of a particular sub
> Item under a
> item .
> How can I do this using perl ?
What GUI system have you written this in? Win32::GUI? wxWindows? Perl/TK?
Some detail would be necessary; s
