AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Es konnten nicht alle Netzlaufwerke wiederhergestellt werden
Thema durchsuchen
Ansicht
Themen-Optionen

Es konnten nicht alle Netzlaufwerke wiederhergestellt werden

Ein Thema von waldforest · begonnen am 6. Aug 2016 · letzter Beitrag vom 9. Aug 2016
Antwort Antwort
waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#1

AW: Es konnten nicht alle Netzlaufwerke wiederhergestellt werden

  Alt 6. Aug 2016, 15:47
Danke, passt

Hintergrund ist, dass ich aus einer DOS-Anwendung auf ein freigegebenes Verzeichnis zugreifen muss.
Aus der DOS-Anwendung wird leider der Anstoß zur Aktivierung (Reconnect) nicht gegeben.
mfg wf
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.242 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Es konnten nicht alle Netzlaufwerke wiederhergestellt werden

  Alt 6. Aug 2016, 16:04
Danke, passt

Hintergrund ist, dass ich aus einer DOS-Anwendung auf ein freigegebenes Verzeichnis zugreifen muss.
Aus der DOS-Anwendung wird leider der Anstoß zur Aktivierung (Reconnect) nicht gegeben.
Wirklich noch DOS-Anwendung?
Bei einer Consolen-Anwendung würde ich das Share direkt verwenden statt mich auf den Laufwerksbuchstaben verlassen.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: Es konnten nicht alle Netzlaufwerke wiederhergestellt werden

  Alt 7. Aug 2016, 09:56
Tja,es gibt noch alte bisher gut funktionierende Anwendungen welche auf DOS-Basis (Clipper) laufen.

leider funktioniert das mit dem DIR doch nicht
Habe es nun mit folgender Batch-Lösung hinbekommen.

Aufruf erfolgt mit Laufwerksbuchstabe als Parameter

Code:
echo off
:start
if not exist %1: goto start1
if exist %1: goto OK

:start1
start /min explorer %1:
echo warte auf Verbindung zu Laufwerk %1.
timeout 2
taskkill /im explorer.exe
Goto start

if exist %1: goto OK

:OK
echo Das Laufwerk %1 ist vorbunden !!!
mfg wf

Geändert von waldforest ( 7. Aug 2016 um 11:32 Uhr)
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
4.287 Beiträge
 
Delphi 13 Florence
 
#4

AW: Es konnten nicht alle Netzlaufwerke wiederhergestellt werden

  Alt 7. Aug 2016, 22:09
Zitat:
Die Frage wäre allerdings wofür? Außer das das rote Dinx verwschwindet geschieht nichts.
Ich habe bei einer ähnlichen Rechnerkonstellation folgendes Problem:

- solange das Netzlaufwerk nicht verbunden ist (rotes Kreuz)
- Ich Öffne mit einem Programm den FileOpen Dialog --> schon stürzt es ab ohne Meldung
(das macht z.B. auch die RadStudio IDE wenn ich FileOpen öffne, aber auch viele Andere)
- wohlgemerkt: Öffnen des Dialoges reicht, sonst muss man nichts weiter machen
- es hilft ein wenig wenn man die Maus sofort beim Öffnen schnell weit wegfährt

- hat man aber mit dem Explorer einmal die Verbindung angeclickt, so dass das rote Kreuz weg ist
- schon können alle Programme wunderbar damit arbeiten und FileOpen öffnen

Also Gründe dafür fände ich schon ...

Rollo
  Mit Zitat antworten Zitat
Benutzerbild von BeBored
BeBored

Registriert seit: 2. Jun 2004
Ort: Cremlingen
90 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

AW: Es konnten nicht alle Netzlaufwerke wiederhergestellt werden

  Alt 8. Aug 2016, 08:31
Ich kenne das Problem und habe eine Batch Datei die im Autostart liegt.
Dort werden die Netzlaufwerke entfern, ein paar Sekunden Pause und dann wieder hinzugefügt.
Matthias
Wer nichts wagt der nichts verliert.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#6

AW: Es konnten nicht alle Netzlaufwerke wiederhergestellt werden

  Alt 8. Aug 2016, 08:46
Habe ich auch. Zwei Wochen hat es ohne geklappt, dann auf einmal nicht mehr.

@ECHO OFF
Echo Auf Netzwerkverbindung warten...
rem NAS mit Ping aufwecken und warten
ping 192.168.2.11 -n 8 >nul
if %ERRORLEVEL% NEQ 0 goto ERROR_NAS

rem alles trennen
echo VC Container "Dokumente" trennen...
veracrypt /d /l y /f /q >nul
echo Netzlaufwerk "\\herakles\Michael" trennen...
net use z: /d /yes >nul

rem neu verbinden
echo Netzlaufwerk "\\herakles\Michael" verbinden...
rem Namen an Netzlaufwerk vergeben
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Exp lorer\MountPoints2\##herakles#home /v _LabelFromReg /t REG_SZ /f /d "Daten"
net use z: \\herakles\home /user:Michael passwort /PERSISTENT:no >nul
if %ERRORLEVEL% NEQ 0 goto ERROR_CON

rem VeraCrypt Container einbinden, wenn gewünscht
echo.
choice /M "VC Container 'Dokumente' einbinden?"
if %ERRORLEVEL% == 1 goto MOUNT_VC
if %ERRORLEVEL% == 2 goto DONE
:MOUNT_VC
echo VC Container "Dokumente" einbinden...
set /P pw="Passwort: "
veracrypt /v z:\Dokumente /l y /p %pw% /q
if %ERRORLEVEL% NEQ 0 goto ERROR_VC
goto DONE

rem Fehlerbehandlung
:ERROR_NAS
echo Fehler: Herakles nicht erreichbar!
pause
exit

:ERROR_CON
pause
exit

:ERROR_VC
pause
exit

ONE
exit

Code-Tags funktionieren irgendwie nicht.
Michael
Ein Teil meines Codes würde euch verunsichern.

Geändert von Luckie ( 8. Aug 2016 um 08:52 Uhr)
  Mit Zitat antworten Zitat
waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#7

AW: Es konnten nicht alle Netzlaufwerke wiederhergestellt werden

  Alt 8. Aug 2016, 11:47
Alles sehr merkwürdig,
wüsste mal gerne was Microsoft da wieder geändert hat.

Interessant ist, dass wenn ein Rechner im Netzwerk auf das Serverlaufwerk aktiviert hat, die anderen keine Probleme haben.

Kann es sein, dass es irgend etwas mit der Namensauflösung des "Severs" zu tun hat ?
mfg wf
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz