Salve a tutti
ho il seguente problema su IIS 7.5
Sotto la root 'C:\inetpub\wwwroot\' ho una cartella 'Utenti' con i permessi settati come segue:
NOME AUTORIZZAZIONI EREDITATA DA APPLICA A
IIS_IUSRS (Desktop02\IIS_IUSRS) Controllo completo Non ereditata Cartella selezionata, sottocartelle e file
IUSR Controllo completo Non ereditata Cartella selezionata, sottocartelle e file
Il problema è che quando provo a creare attraverso uno script asp una cartella mi restituisce il seguente errore:
Errore di run-time di Microsoft VBScript error '800a0046'
Autorizzazione negata
/utenti/elenca.asp, riga 6
Posto il codice
<%
Dim objFso, objFolder, objFiles, strFolder, strFile
strPath = "/utenti"
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files
For Each strFile in objFiles
strEstensione = GetFileExtension(strFile)
if strEstensione=".pdf" then
If strFile <> "" Then
strPath = Right(strFile, (Len(strFile) - InStrRev(strFile, "\")))
response.write strpath & "<br />"
punto = InStrrev(strFile, ".")
If punto > 0 Then
GetNome = Left(strPath, (punto-1))
fldroot = mid(getnome,1,16)
flgexist = CreateFolder(fldroot)
Else
GetExt = ""
End If
End If
end if
Next
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing
function GetFileExtension(fileName)
if InStr(fileName, ".") > 0 then
GetFileExtension = "." & Right(fileName, Len(fileName) - InStrRev(fileName, "."))
else
GetFileExtension = ".tmp"
end if
end function
function CreateFolder(root)
if objfso.FolderExists (root) then
'MsgBox “La cartella ” & cartella & ” esiste già.”
else
objfso.CreateFolder (root) 'Riga 62
MsgBox "La cartella è stata creata."
end if
end function
%>
Ho dimenticato qualche settaggio inIIS ?