use strict;
use warnings;
use Win32 ();
use Cwd;
use File::Copy qw(copy);
use File::Copy qw(move);
use Win32::OLE;
######Globale Variablen#####
my $workingdir = getcwd;

my $logserver = 'webspace';
my $logserverpath = 'homepage\\share\\logs\\events';
my $server = 'test';
my $htmlFilename = 'abc.html';
my $txtDomain = 'Simple';
my $txtUser = 'user';
my $txtPasswort = 'abcdefg';
my $DomainUser = $txtDomain.'\\'.$txtUser;
my $save_dir = $workingdir.'\\AuswertungEventlogs\\'.$server.'\\'.$htmlFilename;
my $net=Win32::OLE->CreateObject("Wscript.Network");

        if (! -e "Y:\\")
        {
                $net->MapNetworkDrive("Y:","\\\\$logserver\\$logserverpath",0,"$DomainUser","$txtPasswort");
                
                move("Y:\\$htmlFilename","$save_dir") or die "Copy failed: $!";
                
                $net->RemoveNetworkDrive("Y:",1,0); # melde Laufwerk wieder ab
                $net = '';
        } else {
                print "Logdatein können nicht vom Server kopiert werden, bitte trennen Sie Laufwerk Y: !\n"
        }