system("net use * /delete /Y");
my $netuse = "net use h: \\\\server\\ordner passwort /user:username /persistent:no"
my $return = `$netuse 2>&1`;