269 messaggi dal 03 marzo 2002
Questo è un codice che toglie gli attributi di "sistema" e "nascosto" dal file gestione.asp, ci scrive dentro altra roba e reimposta i precedenti attributi.
Nn riesco a trovare un modo per avere i diritti sulla scrittura.
__________________________________________________

Set database=Server.CreateObject("Scripting.FileSystemObject")

Set objShell1 = Server.CreateObject("Wscript.Shell")

objShell1.Run "%ComSpec% /c attrib -h -s "&Server.MapPath("gestione.asp")

set scrittura=database.Opentextfile(Server.MapPath("gestione.asp"),true)

scrittura.writeline request.form("stringa")

objShell1.Run "%ComSpec% /c attrib +h +s "&Server.MapPath("gestione.asp")

___________________________________________________

Le stringe per l'assegnazione degli attributi funzionano se non accedo al file (la riga incriminata è "set scrittura ecc...." ).

Se utilizzo solo la riga in questione (togliendo ovviamente i due attributi dal file) tutto funziona .

Come si fa ?
2.584 messaggi dal 14 maggio 2001
In che senso:
"Nn riesco a trovare un modo per avere i diritti sulla scrittura"
Hai dato al tuo utente IIS i permessi di amministratore per eseguire lo script?
269 messaggi dal 03 marzo 2002
Quello che voglio dire è che se uso lo script per gli attributi nn posso usare quello per riscrivere il file, èerchè mi restituisce un errore : accesso negato.

E' come se utilizzando lo script per gli attributi il file da modificare rimane aperto e nn puo' essere modificato.
80 messaggi dal 27 giugno 2001
www.portel.it
Ciao, torno di nuovo a "mettere qualche dubbio" ;-)

puo' essere che "mischiando" i momenti in cui istanzi FileSystemObject e Wscript.Shell i permessi facciano un po' di casino

prova cosi':

___________________________

Set objShell1 = Server.CreateObject("Wscript.Shell")

objShell1.Run "%ComSpec% /c attrib -h -s "&Server.MapPath("gestione.asp")

Set objShell1 = Nothing

Set database=Server.CreateObject("Scripting.FileSystemObject")
set scrittura=database.Opentextfile(Server.MapPath("gestione.asp"),true)
scrittura.writeline request.form("stringa")
Set database= Nothing

Set objShell1 = Server.CreateObject("Wscript.Shell")
objShell1.Run "%ComSpec% /c attrib +h +s "&Server.MapPath("gestione.asp")
Set objShell1 = Nothing

___________________________


--
http://my.opera.com/filippo/

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.