strComputer = "MyComputer"
E( ^, [3 [1 j( I9 ^Set objGroup = GetObject("WinNT://" & strComputer & "/Adminstrators,group")
8 s$ Q: O2 x% @Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer,user")
0 q# O1 I& R1 y: wobjGroup.Remove(objUser.ADsPath)
* c% `) s+ s" C: J6 Z0 b* z& H; Q* g$ P7 V4 i
, a7 ]2 f6 [4 M% U9 O# E8 m
) U# d# e' T$ V$ A6 h
:kenmyer为用户帐号

怎么用啊？楼主也不说明一下......

引用:

原帖由 canvin 于 2007-9-19 13:09 发表 ' D+ v9 W" o3 C* `
strComputer = "MyComputer"# l) r0 P' X% j: p
Set objGroup = GetObject("WinNT://" & strComputer & "/Adminstrators,group")
! _" H! m* y& F* B' f; g ZSet objUser = GetObject("WinNT://" & strComputer & "/kenmyer,user")
q" z2 z3 ~: }* d* e6 CobjGroup.Remove(objUser.AD ...

6 @& A; H# a6 i+ U( s% p

, s# O- ^. N4 o p8 K
* o$ _7 B, x, F9 ^% u谢谢你的分享。不过以后建议发代码的时候用插入代码的格式，还有这个需要在改进一下。提示用户输入要删除的帐户，然后执行删除。