my $res = (split ' ', `net use J\: \\\\$hostname\\c\$`)[2];