system ('net use w: \\\\' .$qs_srv_adr. '\\E$ $pwd /user:$user') or die $!;