Use backtics or system to exec a NET USE.

NET USE [devicename | *] [\\computername\sharename[\volume] [password 
+| *]]
        [/USER:[domainname\]username]
        [/USER:[dotted domain name\]username]
        [/USER:[username@dotted domain name]
        [[/DELETE] | [/PERSISTENT:{YES | NO}]]

#!/usr/bin/perl

my $drive        = 'z:';
my $computername = 'zeus';
my $sharename    = 'c$';
my $password     = 'password';
my $domain       = 'some.domain';
my $user         = 'god';
my $persistent   = 'no';

my $res = `NET USE $drive \\\\$computername\\$sharename $password /USE
+R:$domain\\$user  /PERSISTENT:$persistent`;

error() unless $res =~ m/The command completed successfully/;

sub error { print "Error!\n" and exit }
[download]

You will get a conflict of credential error if you are logged on as administrator and try to use the same username/password (that's windows for you). In this case just don't pass a password and username and it will work.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Thank You... I started experimenting and was on the same track as your example... Darrick...

Or in the spirit of perl (TIMTOWTDI) here is another way to map a drive in perl.

use Win32::OLE;
use Win32::OLE::Variant;

my ($username, $password) = ('Administrator','');
my $network = Win32::OLE->new('WScript.Network') 
     or die('Error creating network object');

$network->MapNetworkDrive('O:','\\\\127.0.0.1\\dev', 0, 
                           $username, $password)
[download]

More information on this method can be found here.

I´m a perl rookie and I search so long for this. Thanks a lot for this and you make(save) my day But how can i disconnect a drive and if it´s in use is it possible to use the next free drive? ms-pasa

Take a look at Jenda's FileOp

The Mapped function has what you need.

DOH!

To think I changed it to that!

I think you meant Map(). Mapped() returns the path to which is a drive mapped :-)

To add to the TIMTOWTDI ... you have also use Win32::AdminMisc or Win32::Lanman.

Jenda