my $netuse = 'net use w: \\\\' .$qs_srv_adr. '\\E$ $pwd /user:$user';
print "NETUSE: $netuse\n";
system($netuse);