Re^2: Trying to get drive space info on remote Windows servers

Still no joy. Here's the current code:

use Win32::DriveInfo;

use constant {
    SECTORS_PER_CLUSTER => 0,
    BYTES_PER_SECTOR    => 1,
    FREE_CLUSTERS       => 2,
    TOTAL_CLUSTERS      => 3,
    BYTES_FREE_4_CALLER => 4,
    TOTAL_BYTES         => 5,
    TOTAL_FREE          => 6,
};

#$sql = "\\\\server01\\d\$";
$sql = "c:";

print "$sql\n";
print "Drive    Free    Tot    PctFree\n";

my @info = Win32::DriveInfo::DriveSpace($sql) 
    or die "DriveSpace failed with error: $^E";

printf "%.3f GB free of total %.3f GB\n", 
     $info[ TOTAL_FREE ] / 1024**3, 
     $info[ TOTAL_BYTES ] / 1024**3;
[download]

If I run it against the server specified in the line that's commented out, it returns zeroes and no error. If I run it against my C:, it returns accurate numbers. So I don't think it's going out to the network, yet it isn't returning an error.

Here's the output of two runs:

c:\Perl>drivelist.pl
\\server01\d$
Drive   Free    Tot     PctFree
0.000 GB free of total 0.000 GB

c:\Perl>drivelist.pl
c:
Drive   Free    Tot     PctFree
31.639 GB free of total 74.444 GB
[download]

Comment on Re^2: Trying to get drive space info on remote Windows servers Select or Download Code

Replies are listed 'Best First'.
Re^3: Trying to get drive space info on remote Windows servers by BrowserUk (Patriarch) on Feb 18, 2010 at 18:32 UTC
Try printing `$^E` unconditionally, immediately after call. It might show an error that the module is failing to act upon.	[reply] [d/l]
Re^4: Trying to get drive space info on remote Windows servers by Cloudster (Novice) on Feb 19, 2010 at 06:12 UTC
The thought plickens! Here's the latest generation of the code: `use Win32::DriveInfo; use constant { SECTORS_PER_CLUSTER => 0, BYTES_PER_SECTOR => 1, FREE_CLUSTERS => 2, TOTAL_CLUSTERS => 3, BYTES_FREE_4_CALLER => 4, TOTAL_BYTES => 5, TOTAL_FREE => 6, }; #$sql = "\\\\server01\\d\$"; $sql = "c:"; print "$sql\n"; print "Drive Free Tot PctFree\n"; my @info = Win32::DriveInfo::DriveSpace($sql) ; print "$^E\n"; # or die "DriveSpace failed with error: $^E"; printf "%.3f GB free of total %.3f GB\n", $info[ TOTAL_FREE ] / 10003, $info[ TOTAL_BYTES ] / 10003;` [download] And here's the output of two runs: c:\Perl>drivelist.pl \\sql-01\d$ Drive Free Tot PctFree 0.000 GB free of total 0.000 GB c:\Perl>drivelist.pl c: Drive Free Tot PctFree The specified procedure could not be found 31.283 GB free of total 74.444 GB c:\Perl>dir Volume in drive C is cMore Volume Serial Number is A07E-ED9D Directory of c:\Perl 02/18/2010 10:59 PM <DIR> . 02/18/2010 10:59 PM <DIR> .. 05/30/2008 03:51 PM <DIR> bin 05/30/2008 03:51 PM <DIR> eg 05/30/2008 03:51 PM <DIR> etc 05/30/2008 03:52 PM <DIR> html 05/30/2008 03:51 PM <DIR> lib 05/30/2008 03:51 PM <DIR> man 05/30/2008 03:51 PM <DIR> site 02/18/2010 10:58 PM 629 drivelist.bak 02/18/2010 10:59 PM 628 drivelist.pl 2 File(s) 1,257 bytes 9 Dir(s) 33,590,083,584 bytes free [download] So if I point it to my local drive, I get an error condition but I get correct results. If I point it to a server $root share, I get no results but nothing in the error string. And I tried running it against my local machine as a \\pcname\c$ and got the same result as a remote server, zeroes for space and no error. I noticed the discrepency on disk space. Turns out I need to divide by 10003 rather than 10243. Easy fix there. I have a couple of thoughts that I'll try tomorrow when I'm in the office. I should have mentioned the Perl version that I'm running is: `c:\Perl>perl -v This is perl, v5.10.0 built for MSWin32-x86-multi-thread (with 5 registered patches, see perl -V for more detail) Copyright 1987-2007, Larry Wall Binary build 1003 [285500] provided by ActiveState http://www.ActiveSt +ate.com Built May 13 2008 16:52:49` [download] I should probably look at an update tomorrow, but I don't think that's the issue. My PC is XP Pro SP3. I'm logged on as a general user but running a command prompt session as my network admin login, so if I do a 'dir \\server01\d$', I see results just fine.	[reply] [d/l] [select]
Re^5: Trying to get drive space info on remote Windows servers by BrowserUk (Patriarch) on Feb 19, 2010 at 09:29 UTC
The problem is the regex on line 127 of DriveInfo.pm. `$drive =~ s/^(\\\\\w+\\\w+\$?)(\\)?$/$1\\/;` [download] It doesn't allow for '-' in machine or path names. Switching that (and the 3 other occurances in the file) to `$drive =~ s/^(\\\\[^\\]+\\[^\\]+\$?)(\\)?$/$1\\/;` [download] Allows the DriveSpace() call to work. At least using UNCs local on my machine. I haven't tested the other calls and that regex could probably be tighten back up a little. It would also be good if you reported the problem back to the module's author. Then he can decide how much tighter to make it and test the other occurences. You could also suggest changing all the occurances of `return undef if/unless ...` to `return if/unless ...`. That'll ensure that the right flavour of undef is returned whatever the context, and allow the `or die ...` idiom to work properly in calling code. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "I'd rather go naked than blow up my ass"	[reply] [d/l] [select]
Re^6: Trying to get drive space info on remote Windows servers by Cloudster (Novice) on Feb 19, 2010 at 15:09 UTC
Re^7: Trying to get drive space info on remote Windows servers by Cloudster (Novice) on Feb 19, 2010 at 20:02 UTC
Re^3: Trying to get drive space info on remote Windows servers by revhippie (Scribe) on Feb 18, 2010 at 18:27 UTC
Strange; works fine here with all drives/shares I have access to. I don't know if it would a prove useful diagnostic, but have you tried checking your C: drive via `\\yourpc\c$` instead of `c:`?	[reply] [d/l] [select]