Help
sub createNewShare
{
my( $path, $user, $computer, $securityDescriptor ) = @_;
my ( $shareInfo );
$shareInfo = { 'path' => $path,
'netname' => "$user".'$',
'remark' => "$user"."'s Home directory",
'security_descriptor' => $securityDescriptor,
'max_uses' => -1,
'type' => 0,
};
if( Win32::Lanman::NetShareAdd( "$computer", \%$shareInfo ))
{
print "Share created\n";
} else {
print "Share creation failed\n";
print "error: Win32::Lanman::GetLastError()\n\n";
}
}
When I run my script on a my local computer this code works fine, if I try
and run it from my computer to create a share on a member server I get this
Share creation failed
Error: 2116
The only thing I change when trying to set up the share on the member server
is the computer name and path.
If anyone can help it would be very much appreciated, I can not proceed
until this problem is resolved.
Thanks in advance
Ron
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
