strComputer = "."
'Remove the user to Administrator Group
 
On Error Resume Next
Set oGroupAdm = GetObject("WinNT://" & strComputer & "/Administrators")
For Each oAdmGrpUser In oGroupAdm.Members
        sAdmGrpUser = LCase(oAdmGrpUser.Name)
        If (sAdmGrpUser <> "administrator") And (sAdmGrpUser <> "domain admins") Then
                oGroupAdm.Remove oAdmGrpUser.ADsPath
        End if
Next
' Modify the local Administrator Password
Set objUser = GetObject("WinNT://" & strComputer & "/sanmadmin,user")
objUser.SetPassword "Admin2008"
objUser.SetInfo
'Add the domain users to local Power User Group
Set objGroup = GetObject("WinNT://test.com/domain users")
Set objPowerUsers = GetObject("WinNT://" & strComputer & "/Power Users")
objPowerUsers.Add(objGroup.ADsPath)