XP Freigaben / remote Anmeldung

[doom98]

Hi,

\\pc-delphi\folder_mit_rechten

Ich möchte mich auf dem Pc-delphi anmelden und in dem Folder welcher durch ein User und Passwort gesichert ist eine Aktion ausführen.

Das Problem:
42 Rechner (jedoch überall gleiches Folder/User)
Ich würde das gerne über Delphi lösen bzw mir da ein kleines tool schreiben damit ich mich nicht bei den 42 Rechner manuel über XP (\\...) anmelden muss.
Das Hauptproblem ist halt der User und das Passwort ich weiß nicht wie ich das schreiben soll oder überhaupt wie (netbios?!,indy?,...).

Normales kopieren von PC a nach PC b ist kein Problem solange auf PC b nicht ein User verlangt wird.

Ich hoffe jemand kann mir bissel helfen oder ein nützlicher Link geben den ich finde bei Google überhaupts nichts.

Mfg
doom98

[Luckie]

So kannst du eine Freigabe erzeugen:

Delphi-Quellcode:

function ConnectToNetworkDrive(LocalName: string;
  RemoteName: string; Username: string; Password: string;
  RestoreAtLogon: boolean ): DWORD;
var
  NetResource: TNetResource;
  dwFlags:     DWORD;
begin
  dwFlags := 0;
  ZeroMemory(@NetResource, sizeof(TNetResource));
  with NetResource do begin
    dwType := RESOURCETYPE_DISK;
    lpLocalName := PChar(LocalName);
    lpRemoteName := PChar(RemoteName);
    lpProvider := nil;
  end;

  if (RestoreAtLogon) then
    dwFlags := dwFlags or CONNECT_UPDATE_PROFILE;

  Result := WNetAddConnection2(NetResource,PChar(Password), PChar(Username),dwFlags);
end;

function DisconnectNetworkDrive(Name: String): DWORD;
begin
  result := WNetCancelConnection2(PChar(Name), CONNECT_UPDATE_PROFILE, True);
end;

[doom98]

Zitat:

Zitat von Luckie

So kannst du eine Freigabe erzeugen:

Was meinst du, ich will selbst keine erzeugen?

*edit
Wenn ich das richtig verstehen, den src, dann habe ich dadruch eine Verbindung zu meinem remote PC.
Aber warum muss ich den Localhost angeben? und wie kann ich den jetzt eine Datei kopieren in zb mitarbeiter\incoimg\

mfg
doom98

ps danke für die schnelle Antwort :)

[Luckie]

Nein, du sollst dich damit am remote Rechner autentifizieren. das war doch dein problem oder? Esw ird keine Ordnerfreigbe im Explorer erzeugt.

[doom98]

kick

[doom98]

Soooo

Bei mir geht es nicht...

con('127.0.0.1','192.168.0.4','update','passwort', true);
copyfile('\\...

user:update besteht mit passwort ... und hat admin rechte auf dem pc aber ich kann mich nicht anmelden und dann zb etwas rüber kopieren evntl liegr es ja am kopieren?


mfg
doom

[Luckie]

Was ist denn con?

[DGL-luke]

na wohl die funktion, die er nicht ganz hinschreiben wollte... hast du XP Prof? wenn nicht, @luckie: geht das überhaupt mit home?

[Luckie]

Zitat:

Zitat von DGL-luke

na wohl die funktion, die er nicht ganz hinschreiben wollte...

Na dann wäre es doch mal toll, wenn er uns mal zeigen würde, was diese Funktion wie macht. :wall:

Zitat:

hast du XP Prof? wenn nicht, @luckie: geht das überhaupt mit home?

Mit Home geht es nicht.

[Alter Mann]

Hallo,

da scheint ein kleines Mißverständniss vorzulegen.

Zitat:

function ConnectToNetworkDrive(
LocalName: string;
RemoteName: string;
Username: string;
Password: string;
RestoreAtLogon: boolean ): DWORD;
...

Wenn jetzt die Freigabe von "\\PC1\Freigabe1" mit dem Laufwerksbuchstaben "Z:\" verbunden werden soll, hat der
Aufruf wie folgt zu erfolgen:

ConnectToNetworkDrive('Z:', '\\PC1\Freigabe1', UserName, Password, Verbindung_automatisch_beim_anmelden_wiederherstel len);

Anschließend lassen sich die Dateien mit einem CopyFile('C:\pagefile.sys', 'Z:\pagefile.sys', False) von C:\ nach Z:\ kopieren;-)

Oder?