Permission refusée Erreur d'exécution Microsoft VBScript (0x800A0046)Résolu

Question

Boinjour 





    j'ai un petit probl&#232;me sur un script et j'aurai aim&#233; savoir si kelk1 a une id&#233;e ki pourrait m'&#233;clair&#233;.


Voila, je veux via ASP (en php c'est facil et j'y arrive alors ya pas de raison !) ecrire dans un fichier texte.


Apr&#232;s avoir tester diff&#233;rentes solutions aucune s'est av&#233;r&#233; concluente :





1- la premi&#232;re est le script de nix a l'url suivante : http://www.aspfr.com/code.aspx?ID= 8587


et horreur et desespoir ca n'as pas le r&#233;sultat escompt&#233; et me renvoi m^mes pas un message d'erreur!





2- la seconde est un script qu'un menbre de aspfr ( Chrigou)  m'as fait parvenir et je le remerci !


le voici :





Sub Ecrire_fic(name,root,quoi)
Dim Fichier, Ecrirefichier, pathfile
Set Fichier  = Server.CreateObject("Scripting.FileSystemObject")
pathfile=Server.mapPath(root)&""&name
Application.Lock
If fichier.FileExists(pathfile) Then
Fichier.DeleteFile(pathfile)
end if
Set Ecrirefichier = Fichier.OpenTextFile(pathfile, 2, TRUE)
Ecrirefichier.Write(quoi)
Application.Unlock
set Ecrirefichier=nothing
set Fichier=nothing
End sub

Et pour les appeler:

Call Ecrire_fic("fichier.txt", "r&#233;pertoire", "texte du fichier")






malheureusement apr&#232;s avoir tester sur deux serveur diff&#233;rent dont un
ou je suis sur d'avoir les droits d'ecriture de lecture d'execution (et
tous ce ke j'ai pu trouver sur IIS capture d'ecran ici
http://cel.cybunk.com/param.GIF) sur les repertoire appropri&#233;.... bref
ca marche pas et me renvois cette erreur :






Erreur d'ex&#233;cution Microsoft VBScript (0x800A0046)
Permission refus&#233;e





3- Apr&#232;s avoir flan&#233; sur le net
j'ai trouv&#233; d'autre scirpt tr&#232;s similaire notement sur
http://asp.developpez.com/faq/?page=filesystemobject#creation :


<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
fic = Server.MapPath("mon_dossier/mon_fich.ext")
set inF = FSO.CreateTextFile(fic)
inF.write texte 'ecrit le texte
inF.writeLine texte 'ecrit le texte sur une ligne
inF.writeBlankLines(5) 'ecrit des lignes blanches
inF.close
%>

et et et m^mes erreur sur les deux serveurs :




Erreur d'ex&#233;cution Microsoft VBScript (0x800A0046)
Permission refus&#233;e





- apr&#233;s cela j'ais trouv&#233; un script sensiblement pareille  sur
http://www.asp-php.net/tutorial/asp-php/ecriture.php  et rebelotte !!!!!



cela commence a sacr&#233;ement m'enerver j'aurais aim&#233; savoir si quelqu'un
avais d&#233;ja rencontr&#233; ce probl&#232;me ou pouvait me dire ke je suis
compl&#233;mtement idiot et ke j'ai pas mit le " le # ou le / a l'endroit ou
il faut !!!!



Merci d'avance




         - cybunk -

cs_roro06 · Accepted Answer

Bonjour
Sans trop m'avancer :
Il faut que le r&#233;pertoire dans lequel tu veux cr&#233;er ton fichier ait les droits d'&#233;criture pour l'utilisateur IWAM_NOMDELAMACHINE .
J'&#233;sp&#232;re qu'un sp&#233;cialiste pourra nous confirmer &#231;&#224;.

Cordialement
Roro webDev

InnocentCriminal · Answer

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:	estfile.txt", True)
MyFile.WriteLine("Ceci est un test.")
MyFile.Close

Je n'est pas test&#233; mais ce code dois marcher, si tu dipose chez toi de microsoft office je ne sais pas lequel, tu peu trouver ce fichier d'aide : 'VBSCRIP5.CHM'

Vu que l'asp c un peu du vbscript &#231;a devrait marcher ... ( &#224; mettre au conditionnel ! )

cybunk · Answer

Et ben m^me si c'est sensiblement le m^mes script et je suis persuad&#233;
que c'est ca, mais je pense kon oublie un parametre ou un reglage
serveur ..... pake ton script me g&#233;n&#233;r la m^me erreur :




Erreur d'ex&#233;cution Microsoft VBScript (0x800A0046)
Permission refus&#233;e





         - cybunk -

cs_roro06 · Answer

Bonjour

pathfile=Server.mapPath(".") & "/" & root & "/" & name
pour d&#233;bugger, fait :
response.write(pathfile)
...
set ecrireFichier=fso.createTextFile (pathFile, true, false)
(le deuxi&#232;me param&#232;tre, true, sert &#224; r&#233;&#233;crire le fichier s'il existe d&#233;j&#224; : tu te dispense du test d'existence; le troisi&#232;me param&#232;tre : true pour de l'unicode, false pour de l'ascii)

Cordialement
Roro webDev

cybunk · Answer

yes trop cool merci mais....



si j'ai bien compris "response.write(pathfile)" me permet d'afficher le chemin d'acc&#233;s du fichier viser, et cela fonctionne !



mais put1 j'ai beau jou&#233; avec les param de 
createTextFile ca change rien et pourtant je les ais tous essayer c'est toujours :



HTTP 500.100 - Erreur interne au serveur - Erreur ASP

    Services Internet (IIS)

Type d'erreur :

Erreur d'ex&#233;cution Microsoft VBScript (0x800A0046)
Permission refus&#233;e
/sam/ecrire3.asp, line 5







RRRRRaaaaaaaaaaaaa ca me m'enerve !!



         - cybunk -

cybunk · Answer

et la ligne 5 c'est cet fonction de m.... :

set inF = FSO.CreateTextFile(fic, true, false)



a chaque fois dans tout les scripts, c'est elle ki bloke .

c'est bizarre c'est peu etre du a un param du serveur


         - cybunk -

cybunk · Answer

effectivement il faut donner les droits non pas o repertoire mais a l'utilisateur ....!!





donc avoir acc&#233;s a l'admin !





         - cybunk -

cybunk · Answer

MERCI BCP BCP BCP BCP BCP BCP 





         - cybunk -

Permission refusée Erreur d'exécution Microsoft VBScript (0x800A0046)

8 réponses

Votre réponse