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."