Dateien übers Netzwerk mit Authentifizierung kopieren (gelöst) (Allgemeines zu Perl)

[thread]15692[/thread]

Dateien übers Netzwerk mit Authentifizierung kopieren [gelöst]

Leser: 16

Articles: hide open all | hide show old branches

+22 replies
LukeStriker

2010-11-30 12:56
User since
2010-04-21
69 Artikel
BenutzerIn
Hallo zusammen,

und zwar möchte ich eine html Datei von einem Server auf meinen lokalen Rechner übertragen. Allerdings muss ich mich an dem Server erst authentifizieren. Hab das schonmal vor einiger Zeit mit move gemacht, kann mich aber
a) leider nicht mehr erinnern wie ich das mit der Authentifizierung gemacht habe und b) google hilft auch nicht...

Das einzigste was mir spontan einfällt ist ne CMD-Console als Domain-Admin starten, das würde ich aber gerne vermeiden weil die Person dann 2 mal alle Zugangsdaten angeben muss(anderer Teil vom Script).

Hier mein Ansatz:
Code (perl): (dl )

1 2 3 4 5

use File::Copy qw(move); my $svr = 'SERVER'; my $htmlFilename = 'Datei.html'; move("\\\\$svr\\e\$\\Share\\Logs\\events\\$htmlFilename", "C:\\BackupEventLogs\\$svr\\$htmlFilename") || die " $!";
Kann mir jemand auf die Sprünge helfen? =)

VG Luke
Last edited: 2010-11-30 12:58:34 +0100 (CET)
- bianca
  
  2010-11-30 13:13
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Das Anmelden könnte man doch über das net use automatisieren, der Befehl bietet als Parameter den Benutzernamen, das Kennwort und - falls benötigt - auch die Domäne.
  Danach Kopieren und gut ist.
  Hätte auch den Vorteil, dass das Laufwerk gleich gemapt ist und man nicht sooooo lange UNC Pfade verwenden braucht.
  Suchst Du danach?
  
  Edit: Schlage Verschiebung ins Windows-Forum vor. Scheint mir weniger mit Perl zu tun zu haben.
  Last edited: 2010-11-30 13:14:46 +0100 (CET)
  10 print "Hallo"
  20 goto 10
- +14 replies
- GwenDragon
  
  2010-11-30 13:36
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Ungetestet:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  use Win32::OLE; my $net=Win32::OLE->CreateObject("Wscript.Network"); $net->MapNetworkDrive("Y:","\\\\server\\path",0,"USERID","PASSWORD"); # deine Kopierroutine auf das Laufwerk Y: # melde Laufwerk wieder ab $net->RemoveNetworkDrive("Y:",1,0); $net = '';
  
  Weiteres zu MapNetworkDrive: http://technet.microsoft.com/en-us/library/ee15660...
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +13 replies
  - LukeStriker
    
    2010-11-30 13:55
    
    User since
    2010-04-21
    69 Artikel
    BenutzerIn
    
    Danke für die Antworten, das Netzlaufwerk müsste ich dann wieder entfernen.
    Das Problem hierbei wäre, sollte Laufwerk Y besetzt sein würde das Script nicht funktionieren oder? Muss ich evtl noch ne Kontrolle einbauen ob besagter Netzlaufwerkbuchstbae schon vergeben ist...
    
    Ich schau mir das mal an und melde mich nachher nochmal ;)
    - +10 replies
    - LukeStriker
      
      2010-11-30 14:22
      
      User since
      2010-04-21
      69 Artikel
      BenutzerIn
      
      @GwenDragon: Klappt wunderbar, kann man vor den user einfach die Domain stellen? (hab nur ohne Domain getestet)
      
      Überprüfung ob Netzlaufwerkbuchstabe schon vorhanden:
      
      Code (perl): (dl )
      
      if (! -e "Y:\\")
      - +9 replies
      - GwenDragon
        
        2010-11-30 15:21
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Soweit ich weiß, ist die erweiterte Syntax für den Username dann Domain\Username.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +8 replies
        
        LukeStriker
        
        2010-11-30 15:22
        
        User since
        2010-04-21
        69 Artikel
        BenutzerIn
        
        Danke =)
        
        +7 replies
        
        GwenDragon
        
        2010-11-30 16:17
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Gehts jetzt so wie du wolltest?
        Dann markiere doch bitte den Thread als gelöst.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +6 replies
        
        LukeStriker
        
        2010-11-30 16:59
        
        User since
        2010-04-21
        69 Artikel
        BenutzerIn
        
        Ich brauche nochmal hilfe, ich glaube das ist echt kein guter Tage heute :-|
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
        
        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" }
        
        Problem ist der move und ich häng schon wieder, vermutlich wieder was wegm Pfad ...
        
        Quote
        Copy failed: No such file or directory at C:\Documents and Settings\My Documents\APP\Log a
        uswerten\dreck.pl line 26.
        
        bianca
        
        2010-11-30 17:47
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Lass Dir doch zwischendurch mit print die Variablen ausgeben und schau, ob alles richtig ist.
        Mir erscheint das abc.html komisch. Gibt es die Datei wirklich?
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        GwenDragon
        
        2010-12-01 08:37
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Du wirst dir die Datei wohl "weggemovet" haben. Move kopiert und löscht dann auf dem Quelllaufwerk.
        
        Zeile 26:
        Ersetze
        
        Code (perl): (dl )
        
        move("Y:\\$htmlFilename","$save_dir") or die "Copy failed: $!";
        
        durch
        
        Code (perl): (dl )
        
        1 2
        
        (-e "Y:\\$htmlFilename") or die "File nonexistent: Y:\\$htmlFilename"; move("Y:\\$htmlFilename","$save_dir") or die "Move failed: $!";
        
        Last edited: 2010-12-01 08:41:49 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        LukeStriker
        
        2010-12-01 09:25
        
        User since
        2010-04-21
        69 Artikel
        BenutzerIn
        
        2010-12-01T07:37:30 GwenDragon
        Du wirst dir die Datei wohl "weggemovet" haben. Move kopiert und löscht dann auf dem Quelllaufwerk.
        
        Zeile 26:
        Ersetze
        
        Code (perl): (dl )
        
        move("Y:\\$htmlFilename","$save_dir") or die "Copy failed: $!";
        
        durch
        
        Code (perl): (dl )
        
        1 2
        
        (-e "Y:\\$htmlFilename") or die "File nonexistent: Y:\\$htmlFilename"; move("Y:\\$htmlFilename","$save_dir") or die "Move failed: $!";
        
        Ich weiß, abc.html ist 100%ig da. Ich glaube das des mounten nicht funktioniert.
        Wenn ich das Remove auskommentiere, sollte doch eigentlich das Netzlaufwerk bleiben. Tut es aber nicht, es wird kein Fehler angezeigt allerdings ist kein Netz-Laufwerk vorhanden.
        
        Wenn das Netzlaufwerk nicht verbunden wird ist es logisch das er die Datei nicht findet:
        
        File nonexistent: Y:\abc.html at C:\Documents and Settings\My Documents\APP\Log auswerten\
        dreck.pl line 31.
        
        Pfad ist allerdings richtig(wenn ich die Backslash für Perl entferne gehts wunderbar im Browser...)
        
        Edit: Fehler vermutlich gefunden!
        
        OLE exception from "WSHNetwork.MapNetworkDrive":
        
        Mehrfache Verbindungen zu einem Server oder einer freigegebenen Ressource
        von demselben Benutzer unter Verwendung mehrerer Benutzernamen sind nicht
        zulõssig. Trennen Sie alle fr³heren Verbindungen zu dem Server bzw. der
        freigegebenen Ressource, und versuchen Sie es erneut.
        
        -> print Win32::OLE->LastError();
        
        Win32::OLE(0.1709) error 0x800704c3: "Mehrfache Verbindungen zu einem Server
        oder einer freigegebenen Ressource von demselben Benutzer unter Verwendung
        mehrerer Benutzernamen sind nicht zulõssig. Trennen Sie alle fr³heren
        Verbindungen zu dem Server bzw. der freigegebenen Ressource, und versuchen
        Sie es erneut"
        in METHOD/PROPERTYGET "MapNetworkDrive"
        
        Hätte gleich nenn gescheites Fehlerhandling einbauen sollen... Hatte noch ein anderes Laufwerk mit der Rescource verbunden, das scheint nicht zu funktionieren...
        Last edited: 2010-12-01 09:38:54 +0100 (CET)
        
        +2 replies
        
        LukeStriker
        
        2010-12-01 10:40
        
        User since
        2010-04-21
        69 Artikel
        BenutzerIn
        
        Also es funktioniert jetzt wirklich =) Waren noch ein paar '' und "" Fehler aber jetzt läufts!! =D
        
        Danke für eure super Hilfe!
        Last edited: 2010-12-01 10:50:30 +0100 (CET)
        
        bianca
        
        2010-12-01 10:42
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Das $ ist eine administrative Freigabe, die muss auch gesetzt sein am Server, sonst ist sie nicht verfügbar.
        
        http://support.microsoft.com/kb/314984/de
        10 print "Hallo"
        20 goto 10
    - +2 replies
    - GwenDragon
      
      2010-11-30 15:10
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      $net->EnumNetworkDrives liefert doch alle Netz-Laufwerke als Array, denke ich.
      http://www.devguru.com/technologies/WSH/
      http://www.devguru.com/technologies/WSH/17396.asp
      Last edited: 2010-11-30 15:15:21 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - LukeStriker
        
        2010-11-30 15:15
        
        User since
        2010-04-21
        69 Artikel
        BenutzerIn
        
        Netz-Laufwerke sind kein Thema, geht so wie unten auch.
        
        Funktioniert die Methode mit den mounten der Netzlaufwerken auch in einer Domain? Also statt USERID -> Domain\Username ?
- +6 replies
- LukeStriker
  
  2010-11-30 15:09
  
  User since
  2010-04-21
  69 Artikel
  BenutzerIn
  
  Kann mir jemand sagen wieso :
  
  iexplore.exe C:\Documents and Settings\My Documents\APP\Log auswerten\DEV135NOB0112_2010-11-23.html
  
  unter Ausführen funktioniert aber wenn ich in perl oder Ausführen den Pfad mit angebe (unter perl nötig)
  
  C:\Program Files\Internet Explorer\iexplore.exe C:\Documents and Settings\My Documents\APP\Log auswerten\DEV135NOB0112_2010-11-23.html
  
  nicht!?
  
  C:\Program Files\Internet Explorer\iexplore.exe alleine ohne Dateiparameter geht wieder... :(
  - +5 replies
  - GwenDragon
    
    2010-11-30 15:11
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Ich nehme mal an, Pfade mit Leerzeichen drin sollten in "" eingeschlossen werden. ;)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +4 replies
    - LukeStriker
      
      2010-11-30 15:21
      
      User since
      2010-04-21
      69 Artikel
      BenutzerIn
      
      Das verwirrt mich ja, auch % hat nicht geholfen, Anführungstriche sind im Perl da...
      
      Code (perl): (dl )
      
      system("C:\\Program Files\\Internet Explorer\\iexplore.exe C:\\Documents and Settings\\My Documents\\APP\\Log auswerten\\2010-11-23.html");
      
      Beim Ausführen in Win auch mit Anführungsstriche, kommt aber ein anderer Fehler von wegen er kann die Datei nicht finden (die Befehle einzeln funktionieren aber...)
      Last edited: 2010-11-30 15:24:07 +0100 (CET)
      - +3 replies
      - GwenDragon
        
        2010-11-30 15:47
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        So war das von mir nicht gemeint.
        system hat folgenden Aufuruf:
        
        Quote
        system PROGRAM LIST
        
        Code (perl): (dl )
        
        system("C:\\Program Files\\Internet Explorer\\iexplore.exe", "C:\\Documents and Settings\\My Documents\\APP\\Log auswerten\\2010-11-23.html");
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        LukeStriker
        
        2010-11-30 16:10
        
        User since
        2010-04-21
        69 Artikel
        BenutzerIn
        
        oh man ich hab die zweiten "" völlig übersehen...:| danke :D
        
        GwenDragon
        
        2010-11-30 16:16
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Du meinst, du hast das Komma (für den Parameter) übersehen.
        Es hilft immer mal, die Dokumentation mit perldoc anzusehen. ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2010-11-30 12:56.