800A0046 - Tilladelse nægtet

Hey,

Jeg har følgende script, men når jeg prøver at køre det for jeg fejl "Tilladelse nægtet" kode 800A0046. pos. 47/8

Jeg syntes bare ikke jeg kan se hvorfor jeg får tilladelse nægtet da jeg er administrator på PC'en det køres på.

P.S. Det er sikkert simpelt...

########################
#########KODE###########
########################

Dim objFSO
Dim ofolder
Dim objStream


Set objFSO = CreateObject("scripting.filesystemobject")

'create the output file
Set objStream = objFSO.createtextfile("c:\temp\jvmdll.log", True)
CheckFolder (objFSO.getfolder("c:\")), objStream
MsgBox "File Search Completed." + vbCr + "Please check c:\temp\jvmdll.log for details."



Sub CheckFolder(objCurrentFolder, objLogFile)
   
    Dim strTemp
    Dim strSearch
    Dim strOutput
    Dim objNewFolder
    Dim objFile
    Dim objStream
   

    strSearch = "jvm.dll"
   


Det er her jeg får fejl
      For Each objFile In objCurrentFolder.Files
          strTemp = Right(objFile.Name, 4)
                If UCase(strTemp) = UCase(strSearch) Then
                    'Got one
        strOutput = CStr(objFile.Path)
                    objLogFile.writeline strOutput
                End If
      Next


      'Recurse through all of the folders
      For Each objNewFolder In objCurrentFolder.subFolders
              CheckFolder objNewFolder, objLogFile
      Next


End Sub