支持平台
Windows XP 是
Windows Server 2003
是
Windows 2000
是
Windows NT 4.0
是，需要安装 Active Directory Client Extensions
Windows 98
是，需要安装 Active Directory Client Extensions
脚本代码 
 
     

       strComputer = "MyComputer" 
      
 Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group") 
      
 Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer,user") 
      
 objGroup.Add(objUser.ADsPath) 本文转自 苏繁 51CTO博客，原文链接：http://blog.51cto.com/goxia/221154，如需转载请自行联系原作者