不会的问题

xp20683

我现在有个问题,我要删除界面上所有的用户和用户,但是每个用户是属于不同的组,如果将组内所有的用户删除,该组自动删除 ,但是删除用户95的代码(RD为组名):
            Dialog("VCM").WinTreeView("SysTreeView32").Select "RD;95", micRightBtn
           Dialog("VCM").WinTreeView("SysTreeView32").WinMenu("ContextMenu").Select "<Item 7>"
           Dialog("VCM").Dialog("vcm_exe").WinButton("是(Y)").Click
"RD;95"不是"95",但是组名又是不确定的
i=0
Do  while i<r
   a=Dialog("VCM").WinTreeView("SysTreeView32").GetItem(i)
   Dialog("VCM").WinTreeView("SysTreeView32").Select a, micRightBtn
     If not(Dialog("VCM").WinTreeView("SysTreeView32").WinMenu("ContextMenu").Exist(1))Then
                   group=a
  else
           Dialog("VCM").WinTreeView("SysTreeView32").Select group+";"+a, micRightBtn
           Dialog("VCM").WinTreeView("SysTreeView32").WinMenu("ContextMenu").Select "<Item 7>"
           Dialog("VCM").Dialog("vcm_exe").WinButton("是(Y)").Click
   end  if               
i=i+1
loop
可是不行,图字附件中,有什么方法可以解决这个问题
注意:又键组名没有对话框

Mario

我是帮不上什么忙了，不过我建议你应该把标题改一下，比方说这是在什么语言下，什么环境下，问题的具体描述等