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