Sibi John wrote:
>
> hi,
>
> the script that which i have put below is made with the help of several of
> u guys on the list. The script is intended to check access dates on the
> files and
> return them with the owner of the files . For some reason after i added the
> perms module from Roth ,
hi,
the script that which i have put below is made with the help of several of
u guys on the list. The script is intended to check access dates on the
files and
return them with the owner of the files . For some reason after i added the
perms module from Roth , it suddenly started to change
Get your FREE download of MSN Explorer at http://explorer.msn.com
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
This code returns the DN of my computer account in the domain "us-tyco-e".
Init = 1 -> ADS_NAME_INITTYPE_DOMAIN, DomainName
Set = 3 -> ADS_NAME_TYPE_NT4, AccountName
Get= 1 -> ADS_NAME_TYPE_1779
[code]
use Win32::OLE;
$nto = Win32::OLE->CreateObject("NameTranslate");
$nto->Init(1, "us-tyco-e");
Hey all.
Does anyone know of a way to create shortcuts to printers? Previously I
have been successful in creating shortcuts to files using Win32::Shortcut.
However, I haven't had any luck at all with printers.
Thanks!
Jason E. Griffin
ExxonMobil GIS/IFS/NT Server Operations
[EMAIL PROTECTED]
7
-start-
> Sibi John <[EMAIL PROTECTED]>
>at10/17/2001 03:24 PM
>can any tell me how to get file owner in nt using the Win32::perm
module..
>Their site does not have any examples for getting ownership.
>thanks.
use Win32::Perms;
my $path = '...';
my @ACES;
my $dir = new Win32::Perms($path
Thanks Howard and Andy for the reference to NameTranslate that sounds like
what I need. Unfortunately I don't get how to use this in a perl script.
I tried the following but its wrong, could someone show me the correct code?
$c = Win32::OLE->GetObject($AdsPathWinNT. "/" . $NAME . ",User");
$Name
Alternatively you can use Win32::Internet, if you don't need xplat
compatibility:
use Win32::Internet;
my $INET = new Win32::Internet();
print $INET->FetchURL( shift @ARGV );
$INET->Close();
-Original Message-
From: Jenda Krynicky [mailto:[EMAIL PROTECTED]]
Sent: Thursday, October 18, 2
> Does anyone have experience using perl to access files via http? Any
> help is greatly appreciated.
use LWP::Simple;
or
use LWP::UserAgent;
The modules should be installed already, read the included docs.
Jenda
=== [EMAIL PROTECTED] == http://Jenda.Krynicky.cz ==
There is a
I have many problems with file and directory names containing
accentueted letters. I want to write a perl program which renames
the inconvenient entry names.
With perl (IO:Dir) I can find all of these files and print their names
to output with accentueted letters, but when I try to rename them
Veeraraju_Mareddi wrote:
>
> $name = 'First_last';
>
> $name =~ s/(_)(\w)/$1uc($2)/e;
>
> I want this 'First_last' to be 'First_Last'.But i am geeting an error in
> doing so.
>
> whats the prob with??
You want to upper case the last name. One way:
$name =~ s/(\w+_)(\w+)/$1 . ucfirs
$name = 'First_last';
$name =~ s/(_)(\w)/$1uc($2)/e;
I want this 'First_last' to be 'First_Last'.But i am geeting an error in
doing so.
whats the prob with??
With Regards
Raju
> --
> From: $Bill Luebkert[SMTP:[EMAIL PROTECTED]]
> Reply To: $Bill Luebkert
> S
Veeraraju_Mareddi wrote:
>
> Yeah ,Thanks for replying ,its working fine.
>
> But I have one more Q on this
>
> s/abc(d)//;
>
> my requirement is to replace a part of first pattern with the next
> pattern.In the above line i am trying to replace only 'd' character in the
> abcd pattern.but abc
Yeah ,Thanks for replying ,its working fine.
But I have one more Q on this
s/abc(d)//;
my requirement is to replace a part of first pattern with the next
pattern.In the above line i am trying to replace only 'd' character in the
abcd pattern.but abc is needed because there are so many ds in ac
14 matches
Mail list logo
