Listing Windows 2000 Shares

nimdokk has asked for the wisdom of the Perl Monks concerning the following question:

I am working on a script that pulls some system information that we need on hand prior to an upgrade. Part of that information is a list of all the shares on the server. Easy enough to get with "net share," especially since this shows hidden shares as well as regular shares. I looked at some samples in Win32::Netresource, and it seemed to pretty good except for two things: 1) it did not seem to show me the path to the directory being shared (just the displayed share name) and 2) did not show hidden shares (or even the default admin shares). Is there something I might be missing? Is there another module to possibly use to get the info I need? The script I'm playing with is the example in the Win32::Netresource documentation for enumerating resources on a particular host. I don't want to spend a lot of time on this, just want something quick and dirty. If I can't find something quickly, I'm going to resort to parsing out the "net share" command.

Thanks

Comment on Listing Windows 2000 Shares

Replies are listed 'Best First'.
Re: Listing Windows 2000 Shares by gellyfish (Monsignor) on Mar 22, 2005 at 15:06 UTC
You probably can do something by automating WMI via WIn32::OLE, a quick guess would be something like: `use Win32::OLE; use strict; use warnings; my $locator = Win32::OLE->new("WbemScripting.SWbemLocator"); my $wmi = $locator->ConnectServer("."); my @shares = $wmi->ExecuteQuery("Select * from Win32_Share"); foreach my $share ( @shares ) { print $share->{Name}," ", $share->{Path},"\n"; }` [download] (Untested) You can find the documentation about WMI at http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/anch_wmi.asp /J\	[reply] [d/l]
Re^2: Listing Windows 2000 Shares by nimdokk (Vicar) on Mar 22, 2005 at 16:03 UTC
Thanks a lot. That pointed me in the right direction. Found a sample Perl script pulling exactly what I needed out on the M$ site. :-)	[reply]
Re^3: Listing Windows 2000 Shares by gellyfish (Monsignor) on Mar 22, 2005 at 16:42 UTC
I guess you mean http://www.microsoft.com/technet/scriptcenter/scripts/Perl/storage/shares/stshpe01.mspx, the whole of the MS Script Repository looks like a very useful resource for questions like this. /J\	[reply]
Re^4: Listing Windows 2000 Shares by nimdokk (Vicar) on Mar 22, 2005 at 16:59 UTC
Re: Listing Windows 2000 Shares by MrCromeDome (Deacon) on Mar 22, 2005 at 14:32 UTC
I can't say I'm familiar with Win32::Netresource, but if you're looking for quick and dirty, you could always capture the output of "net use" with backticks, ala: my @output = `net use`; # Do something with @output here. . . [download] Good luck, whatever you try! MrCromeDome	[reply] [d/l]


Problems? Is your data what you think it is?
	PerlMonks