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

cybunk 13 Messages postés lundi 23 juin 2003Date d'inscription 20 février 2005 Dernière intervention - 17 févr. 2005 à 02:34 - Dernière réponse : cybunk 13 Messages postés lundi 23 juin 2003Date d'inscription 20 février 2005 Dernière intervention
- 17 févr. 2005 à 12:39
Boinjour





j'ai un petit problème sur un script et j'aurai aimé savoir si kelk1 a une idée ki pourrait m'éclairé.


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ès avoir tester différentes solutions aucune s'est avéré concluente :





1- la premiè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ésultat escompté 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épertoire", "texte du fichier")






malheureusement après avoir tester sur deux serveur diffé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é.... bref
ca marche pas et me renvois cette erreur :






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





3- Après avoir flané sur le net
j'ai trouvé d'autre scirpt trè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écution Microsoft VBScript (0x800A0046)
Permission refusée





- aprés cela j'ais trouvé un script sensiblement pareille sur
http://www.asp-php.net/tutorial/asp-php/ecriture.php et rebelotte !!!!!



cela commence a sacréement m'enerver j'aurais aimé savoir si quelqu'un
avais déja rencontré ce problème ou pouvait me dire ke je suis
complémtement idiot et ke j'ai pas mit le " le # ou le / a l'endroit ou
il faut !!!!



Merci d'avance




- cybunk -
Afficher la suite 

8 réponses

Répondre au sujet
cs_roro06 732 Messages postés jeudi 2 janvier 2003Date d'inscription 29 octobre 2007 Dernière intervention - 17 févr. 2005 à 10:55
+3
Utile
Bonjour
Sans trop m'avancer :
Il faut que le répertoire dans lequel tu veux créer ton fichier ait les droits d'écriture pour l'utilisateur IWAM_NOMDELAMACHINE .
J'éspère qu'un spécialiste pourra nous confirmer çà.

Cordialement
Roro webDev
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_roro06
InnocentCriminal 63 Messages postés lundi 2 août 2004Date d'inscription 25 mai 2005 Dernière intervention - 17 févr. 2005 à 08:36
0
Utile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("Ceci est un test.")
MyFile.Close

Je n'est pas testé 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 ça devrait marcher ... ( à mettre au conditionnel ! )
Commenter la réponse de InnocentCriminal
cybunk 13 Messages postés lundi 23 juin 2003Date d'inscription 20 février 2005 Dernière intervention - 17 févr. 2005 à 09:34
0
Utile
Et ben m^me si c'est sensiblement le m^mes script et je suis persuadé
que c'est ca, mais je pense kon oublie un parametre ou un reglage
serveur ..... pake ton script me génér la m^me erreur :




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





- cybunk -
Commenter la réponse de cybunk
cs_roro06 732 Messages postés jeudi 2 janvier 2003Date d'inscription 29 octobre 2007 Dernière intervention - 17 févr. 2005 à 09:45
0
Utile
Bonjour

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

Cordialement
Roro webDev
Commenter la réponse de cs_roro06
cybunk 13 Messages postés lundi 23 juin 2003Date d'inscription 20 février 2005 Dernière intervention - 17 févr. 2005 à 10:23
0
Utile
yes trop cool merci mais....



si j'ai bien compris "response.write(pathfile)" me permet d'afficher le chemin d'accés du fichier viser, et cela fonctionne !



mais put1 j'ai beau joué 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écution Microsoft VBScript (0x800A0046)
Permission refusée
/sam/ecrire3.asp, line 5







RRRRRaaaaaaaaaaaaa ca me m'enerve !!



- cybunk -
Commenter la réponse de cybunk
cybunk 13 Messages postés lundi 23 juin 2003Date d'inscription 20 février 2005 Dernière intervention - 17 févr. 2005 à 10:45
0
Utile
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 -
Commenter la réponse de cybunk
cybunk 13 Messages postés lundi 23 juin 2003Date d'inscription 20 février 2005 Dernière intervention - 17 févr. 2005 à 12:32
0
Utile
effectivement il faut donner les droits non pas o repertoire mais a l'utilisateur ....!!





donc avoir accés a l'admin !





- cybunk -
Commenter la réponse de cybunk
cybunk 13 Messages postés lundi 23 juin 2003Date d'inscription 20 février 2005 Dernière intervention - 17 févr. 2005 à 12:39
0
Utile
MERCI BCP BCP BCP BCP BCP BCP





- cybunk -
Commenter la réponse de cybunk

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.