my $server = "<IP-Adresse>";
system ('net use i: \\\\$server\\D$');
system ('net use i: /DELETE');