Win32::NetResource - manage network resources in perl |
Win32::NetResource - manage network resources in perl
use Win32::NetResource;
$ShareInfo = { 'path' => "C:\\MyShareDir", 'netname' => "MyShare", 'remark' => "It is good to share", 'passwd' => "", 'current-users' =>0, 'permissions' => 0, 'maxusers' => -1, 'type' => 0, }; Win32::NetResource::NetShareAdd( $ShareInfo,$parm ) or die "unable to add share";
This module offers control over the network resources of Win32.Disks, printers etc can be shared over a network.
There are two main data types required to control network resources. In Perl these are represented by hash types.
KEY VALUE 'Scope' => Scope of an Enumeration RESOURCE_CONNECTED, RESOURCE_GLOBALNET, RESOURCE_REMEMBERED. 'Type' => The type of resource to Enum RESOURCETYPE_ANY All resources RESOURCETYPE_DISK Disk resources RESOURCETYPE_PRINT Print resources 'DisplayType' => The way the resource should be displayed. RESOURCEDISPLAYTYPE_DOMAIN The object should be displayed as a domain. RESOURCEDISPLAYTYPE_GENERIC The method used to display the object does not matter. RESOURCEDISPLAYTYPE_SERVER The object should be displayed as a server. RESOURCEDISPLAYTYPE_SHARE The object should be displayed as a sharepoint. 'Usage' => Specifies the Resources usage: RESOURCEUSAGE_CONNECTABLE RESOURCEUSAGE_CONTAINER. 'LocalName' => Name of the local device the resource is connected to. 'RemoteName' => The network name of the resource. 'Comment' => A string comment. 'Provider' => Name of the provider of the resource.
KEY VALUE 'netname' => Name of the share. 'type' => type of share. 'remark' => A string comment. 'permissions' => Permissions value 'maxusers' => the max # of users. 'current-users' => the current # of users. 'path' => The path of the share. 'passwd' => A password if one is req'd
All of the functions return false if they fail.
The return value indicates whether there was an error in accessing any of the shared resources. All the shared resources that were encountered (until the point of an error, if any) are pushed into @Resources as references to %NETRESOURCE hashes. See example below. The \%NetResource argument is optional. If it is not supplied, the root (that is, the topmost container) of the network is assumed, and all network resources available from the toplevel container will be enumerated.
AddConnection(\%NETRESOURCE,$Password,$UserName,$Connection)
CancelConnection($Name,$Connection,$Force)
WNetGetLastError($ErrorCode,$Description,$Name)
$servername is optional for all the calls below. (if not given the local machine is assumed.)
$device must be a drive name, directory, or a device. For example, ``C:'', ``C:\dir'', ``LPT1'', ``D$'', ``IPC$'' are all valid as the $device argument. $type is an output argument that will be set to one of the following constants that describe the type of share:
STYPE_DISKTREE Disk drive STYPE_PRINTQ Print queue STYPE_DEVICE Communication device STYPE_IPC Interprocess communication (IPC) STYPE_SPECIAL Special share reserved for interprocess communication (IPC$) or remote administration of the server (ADMIN$). Can also refer to administrative shares such as C$, D$, etc.
# # This example displays all the share points in the entire # visible part of the network. #
use strict; use Win32::NetResource qw(:DEFAULT GetSharedResources GetError); my $resources = []; unless(GetSharedResources($resources, RESOURCETYPE_ANY)) { my $err; GetError($err); warn Win32::FormatMessage($err); }
foreach my $href (@$resources) { next if ($$href{DisplayType} != RESOURCEDISPLAYTYPE_SHARE); print "-----\n"; foreach( keys %$href){ print "$_: $href->{$_}\n"; } }
# # This example displays all the share points exported by the local # host. #
use strict; use Win32::NetResource qw(:DEFAULT GetSharedResources GetError); if (GetSharedResources(my $resources, RESOURCETYPE_ANY, { RemoteName => "\\\\" . Win32::NodeName() })) { foreach my $href (@$resources) { print "-----\n"; foreach(keys %$href) { print "$_: $href->{$_}\n"; } } }
Jesse Dougherty for Hip Communications.
Additional general cleanups and bug fixes by Gurusamy Sarathy <gsar@activestate.com>.
Win32::NetResource - manage network resources in perl |