fortsat : NetJoinDomain api hvordan?

surfer lige lidt og helder links som jeg finder noget intressant ...

http://manchester.pm.org/ActivePerlDocs/site/lib/Win32/lanman.html#item_NetJoinDomain

http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q170620&

HÅBER du er hård til C++ :-)

http://support.microsoft.com/default.aspx?scid=KB;EN-US;q322175&

Jeg tror det er account_ou jeg går galt i byen med...

NET_API_STATUS NetJoinDomain(
  LPCWSTR lpServer,
  LPCWSTR lpDomain,
  LPCWSTR lpAccountOU,
  LPCWSTR lpAccount,
  LPCWSTR lpPassword,
  DWORD fJoinOptions
);

lpAccountOU
[in] Optionally specifies the pointer to a constant null-terminated character string that contains the RFC 1779 format name of the organizational unit (OU) for the computer account. If you specify this parameter, the string must contain a full path, for example, OU=testOU,DC=domain,DC=Domain,DC=com. Otherwise, this parameter must be NULL.

Hvis ikke han ved det :
http://www.wilsonc.demon.co.uk/

Så er der ingen der ved det !

Jens B

Jeg har lige et spørgsmål i et spørgsmål....
Jeg bruger også funktionen :
NET_API_STATUS NetGetJoinInformation(
  LPCWSTR lpServer,
  LPWSTR* lpNameBuffer,
  PNETSETUP_JOIN_STATUS BufferType
);

Kunne du ikke tænke dig at fortælle mig hvordan jeg definere den i delphi?
typedef enum _NETSETUP_JOIN_STATUS {

    NetSetupUnknownStatus = 0,
    NetSetupUnjoined,
    NetSetupWorkgroupName,
    NetSetupDomainName

} NETSETUP_JOIN_STATUS, *PNETSETUP_JOIN_STATUS;

jow da :

type
  NETSETUP_JOIN_STATUS = ( NetSetupUnknownStatus , NetSetupUnjoined, NetSetupWorkgroupName,  NetSetupDomainName);
  TNETSETUP_JOIN_STATUS = NETSETUP_JOIN_STATUS;
  pNETSETUP_JOIN_STATUS = ^TNETSETUP_JOIN_STATUS;

Hvis jeg nu smider 30 point oven i kan du så ikke svare mig på en ting mere...?
Hvirdan typcaster men en string til PWideChar, det virker alt sammen fint hvis jeg indtaster det hele som konstanter men med det samme jeg typcaster så virker det ikke!!!

var
//  DestinationWideChar: array [0..ComputernameLength] of WideChar;
  MessagetextWideChar: PWideChar;
  MessagetextWideCharLength: longint;
  Text : String;
begin
  Text := 'Her er en gammel hest';

  //find out how much memory is needed for the message and get the memory
  MessagetextWideCharLength:=Length(Text)*SizeOf(WideChar)+1;
  GetMem(MessagetextWideChar,MessagetextWideCharLength);
  //convert ASCII->UNICODE for the destination and the message
  //and send message using the NetMessageBufferSend-Function
  StringToWideChar(Text,MessagetextWideChar, MessagetextWideCharLength);
end;


Jens B

Hov ja slet bare den der
DestinationWideChar.

Jens B

Kanon Jens... tusind tak.
Ved du bare alt?

//klaus

Brug det her :

function  JBStringToWideChar(const Text : String; var WideText : PWideChar) : Integer;
begin
  //find out how much memory is needed for the message and get the memory
  Result := Length(Text)*SizeOf(WideChar)+1;
  GetMem(WideText,Result);
  //convert ASCII->UNICODE for the destination and the message
  StringToWideChar(Text,WideText, Result);
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  MessagetextWideChar: PWideChar;
  MessagetextWideCharLength: longint;
  Text : String;
begin
  MessagetextWideCharLength := JBStringToWideChar('Her er en gammel hest', MessagetextWideChar);
//Brug din MessagetextWideChar til noget
  FreeMem(MessagetextWideChar, MessagetextWideCharLength);
//Slet den igen
end;

Alt ved jeg ikke .. Men jeg kan da heste meget forskelligt sammen !

Og så 4 år som professionel giver da også lidt.

Jens B