Dienst kann kein Netzlaufwerk verbinden...

[Bambuti2000]

Hi allerseits,

habe folgendes Problem:

Wir haben einen Windows 2003 Server auf dem div. Programme und Dienste laufen welche Dateien im Netzwerk verteilen und abholen müssen. Mit der neue Version einer dieser Software ist es nun mögliche diese auch als Dienst laufen zu lassen. Und hier setzt mein Problem ein: Wenn kein User angemeldet ist, gibt es auch keine Netzlaufwerke. Somit dachte ich mir, programmier ich doch mal eben einen Dienst der mir das ein oder andere Laufwerk verbindet. Tja, haste aber auch nur so gedacht . Der Dienst verbindet mir aber leider keine Laufwerke. Aber warum ? Das wollte ich nun von euch wissen...

Folgende Info's noch:
- Habe bereits versucht den Dienst unter aktuellem Benutzerkonto, als Admin und natürlich als Systemdienst zu starten.
- Habe den Dienst sowohl als "Interactive" und auch nicht deklariert.
- Habe selbstverständlich eine Anwendung erstellt, mit der das "Mapping" (also die proceduren) mittels WNetAddConnection2 klappt.

So, nun weiß ich nicht mehr weiter

Danke schon mal für Eure HILFE

Gruß
Stefan

[Astat]

Hallo Bambuti2000, Dienst unter Useraccount laufen lassen, der Netzwerkzugriff hat, und
direkt mit UNC auf die Dateien zugreifen.

\\Servername\Share$\Subfolder1\Subfolder2\MeineDat e.dat

Done!

lg. Astat

[Bambuti2000]

Danke schon mal für die Antwort.

Ich hatte damit gerechnet, dass jeder als erstes den UNC-Pfad im Sinn hat, genau wie ich... aber das Problem ist das auf dieser Produktiven Maschine die Programm- und Aufgabenstruktur seit vielen Jahren gewachsen ist, und Aufgrund einiger Skripte die Länge für UNC-Pfad das "Mögliche" einfach überschreitet. Somit hatte man sich immer wiedre dazu entschieden die Aufgaben mit Laufwerk-Mappings durchzuführen. Ich spreche also nicht nur von ein Paar Aufgaben, sonden von vielen hunderten Skripten die dann angepasst werden müssten.

Also, wer weitere Ideen hat ist herzlich eingeladen...

Gruß
Stefan

[Astat]

Zitat von Bambuti2000:

Also, wer weitere Ideen hat ist herzlich eingeladen...

Versuch mal dies.

Delphi-Quellcode:

{$APPTYPE CONSOLE}

uses
  Sysutils,
  Windows;

function ConnectNetworkResource(const networkResource: string; const mappedLetter:
  string = ''; const username: string = ''; const password: string = ''): boolean;
var
  bufferSize : DWORD;
  driveName  : string;
  netResource: TNetResource;
  remoteName : pointer;
  wnetResult : integer;
begin
  Result := false;
  if mappedLetter <> '' then begin
    GetMem(remoteName, MAX_PATH+1);
    try
      driveName := mappedLetter[1] + ':';
      wnetResult := GetDriveType(PChar(driveName + '\'));
      if wnetResult = DRIVE_REMOTE then begin
        bufferSize := MAX_PATH;
        wnetResult := WNetGetConnection(PChar(driveName), remoteName, bufferSize);
        if wnetResult = ERROR_MORE_DATA then begin
          FreeMem(remoteName);
          GetMem(remoteName, bufferSize);
          wnetResult := WNetGetConnection(PChar(driveName), remoteName, bufferSize);
        end;
        Result := (wnetResult = NO_ERROR) and (AnsiSameText(networkResource, Trim(PChar(remoteName))));
        if (not Result) and (wnetResult = NO_ERROR) then
          WNetCancelConnection2(PChar(driveName), 0, true);
      end;
    finally FreeMem(remoteName); end;
  end;
  if not Result then begin
    FillChar(netResource, SizeOf (netResource), 0);
    netResource.dwScope := RESOURCE_GLOBALNET;
    netResource.dwType := RESOURCETYPE_DISK;
    netResource.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;
    netResource.dwUsage := RESOURCEUSAGE_CONNECTABLE;
    if mappedLetter <> '' then
      netResource.lpLocalName := PChar(driveName);
    netResource.lpRemoteName := PChar(networkResource);
    Result := (WNetAddConnection2(netResource, PChar(password), PChar(username), 0) = NO_ERROR);
  end;
end;

begin
  ConnectNetworkResource(
    '\\FooBar\C$',
    'L',
    'ESA\LAstat',
    'FooBarPwrd');
end.

lg. Astat

[Bambuti2000]

Hi, danke für deine Anteilnahme und deine Ideen,

hab folgendes Probiert:
(mein "alter" Quellcode):

Delphi-Quellcode:

function ConnectNetworkDrive(const ADrive: String; const ADirectory, AUsername, APassword: String; const ARestoreAtLogon: Boolean): DWORD;
var  NetResource: TNetResource;
     dwFlags:     DWORD;
     lPwd, lUser: PChar;
begin
  NetResource.dwType:=RESOURCETYPE_DISK;
  NetResource.lpLocalName:=PChar(ADrive);
  NetResource.lpRemoteName:=PChar(ADirectory);
  NetResource.lpProvider:=nil;
  if ARestoreAtLogon then
    dwFlags:=CONNECT_UPDATE_PROFILE
  else
    dwFlags:=0;

  if AUsername<>'' then
    lUser:=PChar(AUsername)
  else
    lUser:=nil;

  if APassword<>'' then
    lPwd:=PChar(APassword)
  else
    lPwd:=nil;

  Result:=WNetAddConnection2(NetResource, lPwd, lUser, dwFlags);
end;

Dein Quellcode:

Delphi-Quellcode:

function ConnectNetworkResource(const networkResource: string; const mappedLetter:
  string = ''; const username: string = ''; const password: string = ''): boolean; 
var 
  bufferSize : DWORD;
  driveName  : string; 
  netResource: TNetResource; 
  remoteName : pointer; 
  wnetResult : integer;
begin 
  Result := false; 
  if mappedLetter <> '' then begin 
    GetMem(remoteName, MAX_PATH+1); 
    try 
      driveName := mappedLetter[1] + ':'; 
      wnetResult := GetDriveType(PChar(driveName + '\'));
      WriteLog('1driveName: ' + driveName);
      if wnetResult = DRIVE_REMOTE then begin
        bufferSize := MAX_PATH;
        wnetResult := WNetGetConnection(PChar(driveName), remoteName, bufferSize);
        if wnetResult = ERROR_MORE_DATA then begin
          FreeMem(remoteName); 
          GetMem(remoteName, bufferSize);
          wnetResult := WNetGetConnection(PChar(driveName), remoteName, bufferSize);
        end;
        Result := (wnetResult = NO_ERROR) and (AnsiSameText(networkResource, Trim(PChar(remoteName))));
        WriteLog('1networkResource: ' + networkResource);
        if (not Result) and (wnetResult = NO_ERROR) then begin
          WNetCancelConnection2(PChar(driveName), 0, true);
          WriteLog('1WNetCancelConnection2' + IntToStr(wnetResult));
        end;
      end;
    finally FreeMem(remoteName); end; 
  end; 
  if not Result then begin
    FillChar(netResource, SizeOf (netResource), 0);
    netResource.dwScope := RESOURCE_GLOBALNET; 
    netResource.dwType := RESOURCETYPE_DISK; 
    netResource.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE; 
    netResource.dwUsage := RESOURCEUSAGE_CONNECTABLE;
    if mappedLetter <> '' then 
      netResource.lpLocalName := PChar(driveName);
    netResource.lpRemoteName := PChar(networkResource);
    WriteLog('2driveName: ' + driveName);
    WriteLog('2networkResource: ' + networkResource);
    Result := (WNetAddConnection2(netResource, PChar(password), PChar(username), 0) = NO_ERROR);
    WriteLog('2username: ' + username);
    WriteLog('2password: ' + password);
    WriteLog('2WNetCancelConnection2: ' + BoolToStr(Result, True));
  end;
end;

schreibe alles in ein Log-File, da ich nicht weiß wie ich einen Dienst Debuggen kann. Nun ja, ich muss sagen laut Log funktioniert alles, alle Werte werden wahrheitsgemäß übergeben und zum Schluss bekommen ich als Ergebnis "2WNetCancelConnection2: True". Das Problem ist allerdings das ich das Laufwerk nicht habe und mit "net use" keine aktiven Verbindungen verfügbar sind. Da sehr wahrscheinlich die Frage kommt unter welchem Konto der Dienst läuft: Unter dem aktuell angemeldeten Benutzer.
Ich könnte mir alle Haare raufen...

[Astat]

Zitat von Bambuti2000:

.. und mit "net use" keine aktiven Verbindungen verfügbar sind.

Hallo Bambuti2000, nicht mit "net use" versuchen, dies zeigt dir die Verbindung nicht an, vermute mal, weil
an das OS keine WM_DEVICE_CHANGE oder WM_CHANGE_SETTINGS gesendet wurde.
Bei mir unter W2K und XP kann ich in der cmd Konsole ganz einfach auf den Laufwerksbuchstaben zugreifen,
obwogl net use nichts anzeigt.

lg. Astat

[Bambuti2000]

Sorry, aber auch diese Idee verpufft wie all die anderen bis jetzt...

Das verbundene Laufwerk ist weder im Explorer noch in der Konsole über den Laufwerksbuchstaben verfügbar.

PS: Sogar wenn ich über UNC drauf zugreifen möchte verlangt er noch die Zugangsdaten.

Gruß
Stefan

[Bambuti2000]

HILFE, HILFE, BITTE, BITTE, ...
Gibt es denn niemanden der sich sowas eigentlich auch schon immer mal gewünscht hat???


Kann es evtl. sein, dass ein lokaler Dienst gar keine Rechte im Netz(werk) hat, und somit kein Laufwerk mappen kann? Hab da mal was von "Null Session Shares" gelesen.

Nichts desto trotz, es muss doch bestimmt eine Möglichkeit geben...

Gruß
Stefan