$list = "net use \\\\$Machine $password /USER:$domain\\$user";
system ("$list");

##</code><code>##

$regKey = $Registry->Connect( $Machine, $target, { Access=>KEY_READ } );