or download this
use Win32::NetResource qw(:DEFAULT GetSharedResources GetError AddCo
+nnection CancelConnection);
my $Domain = 'aaaaaaaa';
...
AddConnection(\%NETRESOURCE,$Password,$UserName,$Connection);
# CancelConnection($Name,$Connection,$Force);