🚀 go-pugleaf

Hi,

"Fernando" <ferjat@terra.es> wrote:
>Thank you, but SVC it?s not free and I only want to create an user account.
>I would like to use API of Windows. Is it possible?. Thanks
>
>
>"Eugene Mayevski" <mayevski@eldos.org> escribio en el mensaje
>news:3e9312bb@newsgroups.borland.com...
>> Fernando Alvarez wrote:
>> > Hi
>> >
>> > How I create an user account in Windows 2000/XP?  And a group? I haven�t
>> > found any information. Thanks!!
>>

It is very easy for Windows Script:
http://www.microsoft.com/technet/treeview/default.asp?url=/technet/ScriptCenter/user/ScrUG92.asp

The similar code for C++ Builder:


#include <objbase.h>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//The IBindCtx interface provides access to a bind context, which is an object
//that stores information about a particular moniker binding operation.
IBindCtx *pbindctx;

//The IMoniker interface is used for naming COM objects. An object that
//implements IMoniker is called a "moniker," which is a name that uniquely
//identifies a COM object.
IMoniker *pmoniker;

//Using later binding by moniker I will obtain pointer to dispatch interface
IDispatch *dispServ;
ULONG ul;

//Creates a bind context.
//A bind context is an object that stores information about a particular
//moniker-binding operation:
HRESULT hresult=::CreateBindCtx(0,&pbindctx);
if(hresult != S_OK)
        {
         ShowMessage("CreateBindCtx error");
         pbindctx->Release();
         Application->Terminate();
        }

//Converts a string into a moniker that identifies the object named by the string.
//It's moniker for current computer: (//.)
hresult = ::MkParseDisplayName(pbindctx, L"WinNT://.,computer",&ul,&pmoniker);
if(hresult != S_OK)
        {
         ShowMessage("Sure, next time will be better.");
         pbindctx->Release();
         pmoniker->Release();
         Application->Terminate();
        }

//"Binds" the moniker; that is, returns a pointer to the object identified by the moniker.
//The binding process involves finding the object, getting it into the running
//state if it's not already, and acquiring an interface pointer to it.
//See carefully - I "get" Dispatch interface just for later binding
hresult=pmoniker->BindToObject(pbindctx,NULL,IID_IDispatch,(void**)&dispServ);
if(hresult != S_OK)
        {
         ShowMessage("They are still not here, bad day");
         pbindctx->Release();
         pmoniker->Release();
         dispServ->Release();
         Application->Terminate();
        }
//Creating record for user ItsMe
Variant PCUser=((Variant)dispServ).Exec(Function("Create") << "user" << "ItsMe");
//setting password for user ItsMe
PCUser.Exec(Function("SetPassword")  <<  "ABCd1924");
//Apply it:
PCUser.Exec(Function("SetInfo"));
}

It is create account for user ItsMe with password ABCd1924.
For further information see:
Microsoft Script Center:
http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/default.asp

You can see also how to use monikers for WMI in C++ 
Builder in my samples:
Let us try WMI (samples)
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=19443

Vladimir.