strComputer = "."  
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
For Each objUser In objGroup.Members
    If objUser.Name <> "Administrator" Then
        objGroup.Remove(objUser.AdsPath)      
    End If
Next