use Win32::NetResource qw( AddConnection CancelConnection );
# ...
    my $mach= "www.microsoft.com";
    my $username= "microsoft\\administrator";
    my $password= "b1gd0g";
    my $netResource= "\\\\$mach\\IPC\$";
    if(  ! AddConnection(
            { Scope=>0, Type=>0, DisplayType=>0, Usage=>0,
              LocalName=>"", RemoteName=>$netResource,
              Comment=>"", Provider=>"" },
            $password, $username, 0 )
    ) {
        warn "\nCan't connect to $mach: $^E\n";
        return;
    }