#!/usr/bin/perl
if(-f "/users/userid/.nsmbrc") {
print "mounting share\n";
system('mount_smbfs -W workgroupname //username@domain/share
/users/userid/myshare');
} else {
print "password file does not exist\n";
}
__END__
contents of ~/.nsmbrc
[DOMAIN:USERNAME:SHARE]
addr=0.0.0.0
password=yourpasss
workgroup=WORKGROUPNAME
- hcir
On Wednesday, May 1, 2002, at 10:39 , Jason Bourque wrote:
> Hello,
>
> Is it possible to write a perl script that will mount a share via samba?
>
> Any sample code would be great.
