-----Original Message-----
From: Eloy A Gonzales <[EMAIL PROTECTED]>
To: Perl-Win32-Users Mailing List <[EMAIL PROTECTED]>
Date: Tuesday, May 16, 2000 10:51 AM
Subject: Re: How can Perl identify all resident drives ???
>
>"Michael D. Schleif" wrote:
>> Since this will have to be installed on ~100 NT servers, most of which
>> have *no* Internet access, how can I download the file and install, en
>> masse, across this whole environment at once?
>>
>Your installation is more complicated then I have experiance with.
>Perhaps someone else on the list has a solution?
>
What about something like......
foreach $server (@servers1){
print ("Processing server $server\n");
unless(Win32::Lanman::NetServerDiskEnum("\\\\$server", \@disks))
{
$error = Win32::Lanman::GetLastError();
print "Unable to get drives from $server: $error";
}
$getdrv = join ("", @disks);
$getdrv =~ s/[A-B]|://g ;
@drives = split ("", $getdrv);
foreach $disk (@drives){
...........
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
