Suche API um Workgroup zu aendern

[Mackhack]

Hi,

kennt jemand ne API um die Workgroup zu aendern (wenn moeglich ohne zu rebooten)?

Danke!

[Christian Seehase]

Moin Mackhack,

dazu dient NetJoinDomain.
Die Funktion steht allerdings erst ab Windows 2000 zur Verfügung.
Unter NT 4.0 wird es richtig kompliziert.

[Mackhack]

Danke Christian,

hatte das per Suche auch schon gefunden gehabt war mir aber nicht sicher ob es das Richtige war!

[Christian Seehase]

Moin Mackhack,

und hier mal ein Beispiel:

Delphi-Quellcode:

type // aus lmcons.h
  NET_API_STATUS = type DWORD;

// aus lmjoin.h
function NetJoinDomain(
  const lpServer    : LPCWSTR;
  const lpDomain    : LPCWSTR;
  const lpAccountOU : LPCWSTR;
  const lpAccount   : LPCWSTR;
  const lpPassword  : LPCWSTR;
  const fJoinOptions : DWORD
  ) : NET_API_STATUS; stdcall; external 'netapi32.dll';

const  // aus lmerr.h
  NERR_Success              = 0;


var
  dwResult : DWORD;

begin
  dwResult := NetJoinDomain(nil,'ARBEITSGRUPPE',nil,nil,nil,0);
  if dwResult <> NERR_Success then begin
    ShowMessage(SysErrorMessage(dwResult));
  end else begin
    ShowMessage('Alles gut');
  end;
end;

[Mackhack]

Vielen Dank!

Hilft sehr!