Error al crear carpeta Scripting.FileSystemObject

[Pandora]

Este es el código que me funciona, la carpeta en donde se crean las subcarpetas tiene control total para la cuenta de Invitado de Internet IUSR_....
<%
text=CrearCarpeta("prueba")
response.write (text)

Function CrearCarpeta(carpeta)
prueba=server.mappath("especial")
prueba=prueba&"\"
fol=prueba+carpeta
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject ")
if not fs.FolderExists(fol) then
set f=fs.CreateFolder(fol)
f_comentario="Se ha creado la carpeta "&carpeta
else
f_comentario="No se ha creado la carpeta "&carpeta
end if
set fs=nothing
set f=nothing

CrearCarpeta= f_comentario
End Function
%>