How to remove all the players accessorys?

I am trying to make a script that turns the player invisible but the accessories will not go away.

I have tried multiple things but 90% of the time it won't work and 10% it will work.

wait(0.1)
    for k, v2 in pairs(char:GetDescendants()) do
        if v2:IsA("BasePart") or v2:IsA("Decal") then
            v2.Transparency = 1
        end
    end
    for i,v in pairs(char:GetChildren()) do
        if v.ClassName == "Accessory" then
            v:Destroy()
        print("Destroyed: "..v.Name)
        end
        end
    wait(0.1)
    for i,v in pairs(char:GetChildren()) do
            if v.ClassName == "Hat" then
               v:Destroy()
            end
        end
    wait(0.1)

it won't even output anything.