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"
	}