Fjerne skrivebeskyttelse på fil

Jeg har lavet et installationsscript i VBScript.
Det fungerer fint.
Jeg har bare et lille problem.
Jeg har lagt scriptet på en CD sammen med tilhørende filer.
Når filerne så bliver kopieret ind på harddisken er filerne skrivebeskyttet da de kommer fra en CD.
Så scriptet virker kun første gang.
Det skulle ellers gerne kunne virke som opdatering også.

Nogen som har et godt råd?

JJUST:
Du kan fjerne read-only tagget på en fil sådan her:

ReadOnly = 1
filename = "c:\testfil"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObj = fso.GetFile(filename)

'Tester om readonly bitten er sat
If fileObj.attributes andReadOnly Then
  fileObj.attributes = fileObj.attributes - ReadOnly
End If

Noden:
Jeg kan ikke få det til at virke
Her er et udklip af kode:
Objekter mv er defineret som jjust har skrevet.
ReadOnly er sat til 1
Installfolder indeholder stien og filename indeholder filnavn.

  If fso.FileExists(installfolder & filename) Then
    msgBox installfolder & filename & it_exists, vbInformation or vbOkOnly, Message_areyousure
    'Tester om readonly bitten er sat
      Set fileObj = fso.GetFile(installfolder & filename)
      If fileObj.attributes(andReadOnly) Then
          fileObj.attributes = fileObj.attributes - ReadOnly
      End If
      fso.Copyfile "." & filename, installfolder & filename, True
    Else
      fso.Copyfile "." & filename, installfolder & filename, True
    End If