Delphi-PRAXiS
Seite 1 von 3  1 23   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Netzwerkordnerzugriff (https://www.delphipraxis.net/196896-netzwerkordnerzugriff.html)

Moombas 28. Jun 2018 14:24

Netzwerkordnerzugriff
 
Moin,

ich bins mal wieder mit einer wahrscheinlich einfachen Frage. "Brett vorm Kopf" -.-

Ich möchte per Button auf einen Netzwerkpfad zugreifen. Aufbau:

"\\IP\Laufwerk\Ordner" also:
"\\xx.xx.xx.xx\c$\"
bzw.
"\\xx.xx.xx.xx\d$\"

als Benutzer Max und Passwort Pass (natürlich sind dies hier nur synonyme)

Normalerweise kann man Ordner ja direkt über Shellexecute öffnen, aber beim Netzwerkordner funktioniert dies nicht, hab schon ne Menge gewühlt und Probiert (auch mit explorer + "/e,Pfad"), komme aber nicht weiter.

jobo 28. Jun 2018 14:52

AW: Netzwerkordnerzugriff
 
Zuerst würde ich bei sowas klären, ob es zu Fuß geht. Dann Code.
Zu Fuß:
- DOS Box
- net use ..

Fehlermeldung hier posten

Mgl. Probleme, Du bist schon als jemand anders dort verbunden (auf dem Zielrechner),
Differenzen zwischen Domäne und Arbeitsgruppe / local user /Gerät Angabe. Das muss halt passen (Du musst wissen, was Du willst und was Du tatsächlich tust)
Dann gibt's noch das ganze SMB Protokoll Versions-Theater aktuell, spielt da vielleicht auch rein.

HolgerX 28. Jun 2018 16:27

AW: Netzwerkordnerzugriff
 
Hmm..

Zitat:

Zitat von Moombas (Beitrag 1406036)
Moin,

"\\IP\Laufwerk\Ordner" also:
"\\xx.xx.xx.xx\$c\"
bzw.
"\\xx.xx.xx.xx\$d\"

Könnte es sein, dass Du auf die Versteckten Admin-Freigaben für die Laufwerke zugreifen willst?

Wenn Ja, dann müsste das '$' hinter dem Laufwerksnamen stehen.. ;)

"\\xx.xx.xx.xx\c$\"

Moombas 29. Jun 2018 09:22

AW: Netzwerkordnerzugriff
 
@jobo: keine sorge den Netzwerkzugriff über den normalen weg bekomme ich ohne weiteres hin mit

net use \\%IP%\C$ "Pass" /USER:Max /PERSISTENT:NO
explorer.exe /SEPARATE,\\%IP%\C$

@HolgerX: du hast recht, Tippfehler XD


Ich würde es halt gerne ohne externe Bat-Datei machen. Das müsste doch funktionieren.

jobo 29. Jun 2018 09:55

AW: Netzwerkordnerzugriff
 
Zitat:

Zitat von Moombas (Beitrag 1406089)
@jobo: keine sorge den Netzwerkzugriff über den normalen weg bekomme ich ohne weiteres hin mit

Gut! Das ist häufig nicht selbstverständlich.

HolgerX 29. Jun 2018 10:58

AW: Netzwerkordnerzugriff
 
Hmm..

Es geht Dir also darum, ohne NetUse eine Netzwerk-Verbindung per UNC-Pfad (ohne Laufwerksbuchstaben) zu erstellen.

Hatte da mal was um mich mit IPC zu verbinden..

Dafür gibt es die API 'WNetAddConnection2'!
Mit dieser kannst Du Netzwerk-Verbindungen ala NetUse herstellen.
Wenn Du dort das lokale Laufwerk als Parameter weglässt, dann wird auch ohne Laufwerk eine Verbindung/Anmeldung Hergestellt.

Diese wird sogar mit Netuse aufgelistet.

Danach einfach mit ShellExecute den UNC-Pfad öffnen.

ShellExecute(self.Handle, nil, PChar(UNCPfad),nil,nil,SW_SHOW);

Moombas 29. Jun 2018 11:11

AW: Netzwerkordnerzugriff
 
Den Weg hatte ich eigentlich schon probiert und bin gescheitert, da er dies nicht öffnen konnte (warum auch immer). Aktuell gehe ich noch den Umweg über die Bat-Datei (unschön, da username/Passwort im Klartext enthalten sind).

HolgerX 29. Jun 2018 11:29

AW: Netzwerkordnerzugriff
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hmm..

Angehängt ist ein Test tool..

Dieses Verwendet WNetAddConnection2 zum Anlegen und WNetCancelConnection2 zum löschen einer Netzverbindung.

und ShellExecute zum Öffnen.

(Erstellt mit D6)

Moombas 29. Jun 2018 12:12

AW: Netzwerkordnerzugriff
 
Das funktioniert -.- also liegt es scheinbar doch irgendwie an mir.

Moombas 29. Jun 2018 13:09

AW: Netzwerkordnerzugriff
 
also nun habe ich es fast, er fragt mich aber nach username/passwort, was ich ja eigentlich im WNetAddConnection2 übergebe. Und wenn ich beim shellexecute dies mit /u bzw /p einbaue, bin ich wieder soweit wie vorher.

@Holger wo hast du diese mit eingebaut oder hast du deinen code mal für mich?


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:20 Uhr.
Seite 1 von 3  1 23   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz