Setdom=GetObject("WinNT://aDomain")
  
  Setusr=dom.Create("user","jsmith")
  
  usr.SetInfo
  
  Setgrp=GetObject("WinNT://aDomain/group")
  
  grp.Add("WinNT://aDomain/jsmith")
  
  
  注意
  
  1.aDomain改为机器名
  
  2.Win2k自带ADSI,并不需要安装ActiveDirectory->