将用户添加到本地Windows管理员组

支持平台

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)