高分求解关于ADSI的问题，特急

2006-10-30 11:37:45 217 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

RK806S PMIC电源管理芯片调试当点按PWRON按键时，rk806上电开始启动bootloader和uboot，在执行到此处时检测到是由于按键启动的，所以0x5d的值是0x80，0x74的值是0x80，在一般情况下，mode都默认是none的，所以mode值为11，因此就进入了我们的if判断，若是由于按键启动的，则直接调用rk8xx_shutdown函数关掉，进入这个函数会看到实际是通过i2c给0x72寄存器的BIT(0)写1，使其关机。当SoC在12V电源已经接入，且处于关机状态时，使用PWRON按键开机，0x74的值则为0x80。阅读详情

delphi中,如何通过ADSI取出用户名和对应的工作组信息

我要从AD中取出用户名和其所属的组（例如用户名是TOM，其所属组是IT部）,用delphi具体应该如何做才能找出所有用户名及他们所相对应的组名,特急！！

我目前只能把用户名和组分别显示出来,但不知道怎么把它们联系起来,
就是说某个用户是属于哪个组,怎么样才能取出这个关系呢?

procedure TFormISA.Button1Click(Sender: TObject);
var
AdsPath:WideString;
UnknownObject:IUnknown;
Domain:IADsContainer;
begin
AdsPath:='WinNT://TEST';
//使用用户登录的信息创建域对象
OLECheck(AdsGetObject(AdsPath,IID_IADsContainer, UnknownObject));
// 获取域对象
Domain := UnknownObject as IADsContainer;
//把 IADsContainer 接口指针作为参数调用来获得域中的子对象：
GetDomainInformation(Domain);
end;

procedure TFormISA.GetDomainInformation(Domain: IADsContainer);
var
Enum: IEnumVariant;
ADsTempObj: OLEVariant;
ADsObj: IADs;
Value: LongWord;
begin
// 获取枚举对象
Enum := (Domain._NewEnum) as IEnumVariant;
// 利用枚举对象查找
while (Enum.Next(1, ADsTempObj, Value) = S_OK) do begin
// 获得临时对象
ADsObj := IUnknown(ADsTempObj) as IADs;
// 如果是用户对象
if AdsObj.Class_ = 'User' then
ListBox1.Items.Add(ADsObj.Name);
// 如果是组对象
if AdsObj.Class_ = 'Group' then
ListBox2.Items.Add(ADsObj.Name);
end;
end;

...全文