🚀 go-pugleaf

Hi Iyer,
It is my old message in this group that explain how to do it.

The follow code works for BCB5 but BCB6 has some incompatibility 
with BCB5. To make it work for BCB6 open menu Project->Options then 
page Advanced Compiler and set Register variable in None.

Vladimir.


>"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