Removing ReadOnly attribute for folder

Hi Everyone,

I am trying to remove the ReadOnly check mark from a folder. I have used the VBscript option and the script is below. The script executes, but does not remove the check mark

' Modify Folder Attributes
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\FSO")

If objFolder.Attributes = objFolder.Attributes AND 0 Then
    objFolder.Attributes = objFolder.Attributes XOR 0
End If

Have also tried the attrib command as mentioned below. This also does not work. When we enumerate the folder attributes, it returns values 16 pointing to a directory. I gave full permission to the Users and then also it fails. Please help me with this :-)

C:\>attrib -r "C:\FSO"

AppGN