my $netuse = 'net use w: \\\\' .$qs_srv_adr. '\\E$ '.$pwd.' /user:'.$user.'';