I'm not sure what you're exactly trying to do but here is a script that should do it:  Option Explicit 'On Error Resume Next Dim strComputer, strUser, strGroup Dim objGroup, objUser  strComputer = InputBox("Please enter a computer to connect to:", "Enter Computer Name") strGroup = "Administrators"  'Add ICT-Desktop Support to the administrators group. strUser = "ICT-Desktop Support"  Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup) Set objUser = GetObject("WinNT://domain/" & strUser) '###change domain to your domain objGroup.Add (objUser.ADsPath)  'Remove Domain Admins from the administrators group. strUser = "Domain Admins"  Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup) Set objUser = GetObject("WinNT://domain/" & strUser) '###change domain to your domain objGroup.Remove (objUser.ADsPath)  Wscript.Echo "Done."