I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
alex3comasp
alex3comasp
il 5 agosto 2002 alle 23:21
51 messaggi dal 12 giugno 2001
Guardate un pò quest script è stato preso da questo sito:
########################################
<%

Option Explicit

Response.Expires=0

' Variabili che conterranno le informazioni necessarie

Dim strSottomissione, strPercorsoStampante, strTesto

Dim strUsername, strPassword

Dim ciclo, IntMaxConn



' Nomi degli oggetti utilizzati per le varie connessioni

Dim objFileSystem, objWSHNet, objStampante



' Caricamento della variabile di verifica sottomissione form

strSottomissione = Request.Form("Sottomissione")

%>

<html><head>

<title>Stampa via browser su stampante di rete</title>

</head>

<body bgcolor="white" text="black">

<h1>Stampa via browser su stampante di rete</h1>

<hr>

<%

' Verifica se è stato premuto o meno il pulsante di submit

' sul form

If strSottomissione = "" Then

%>

<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="POST">
<table wdith=90% border="0">

<tr>

<td align="right">Stampante selezionata:</td>

<td><select name="PercorsoStampante">

<%

'Imposta la connessione all'oggetto WScript.Network

Set objWSHNet = CreateObject("WScript.Network")



'Conteggio delle stampanti disponibili
'70
Set objStampante = objWSHNet.EnumPrinterConnections

IntMaxConn=objStampante.Count


if IntMaxConn>0 then

Do while Not ciclo=IntMaxConn
response.write "<option>" & objStampante.Item(ciclo) & "</option>"
ciclo=ciclo+1
Loop

end if

%></select></td>

</tr>

<tr>

<td align="right">User-ID:</td>

<td><input type="text" name="username" value="<%=strUsername%>"></td>

</tr>

<tr>

<td align="right">Password:</td>

<td><input type="password" name="password"></td>

</tr>

<tr>

<td align="right">Testo:</td>

<td><textarea rows="4" cols="30" name="Testo"></textarea></td>

</tr>

<tr>

<td align="right" colspan="2"><input type="submit" value="Stampa!" name="Sottomissione"></td>

</tr>

</table>

</form>

<%

Else

' E' stata effettuata una richiesta e verrà eseguita

strPercorsoStampante = "\\Serverone\" & Request.Form("PercorsoStampante")

strUsername = Request.Form("username")

strPassword = Request.Form("password")

strTesto = Request.Form("Testo")


' Creiamo gli oggetti necessari per il funzionamento dello script

Set objFileSystem = CreateObject("Scripting.FileSystemObject")

Set objWSHNet = CreateObject("WScript.Network")



' Connessione alla stampante di rete utilizzando Windows Scripting Host

objWSHNet.AddPrinterConnection "LPT1", strPercorsoStampante, False, strUsername, strPassword



' Apriamo la stampante come se si trattasse di un puro e semplice file.
objStampante.Close

Dim objStampante1

Set objStampante1 = objFileSystem.CreateTextFile("LPT1", True)


' Mandiamo il testo da stampare come se si trattasse di una semplice

' scrittura su file.

objStampante1.Write(strTesto)



' Chiudiamo la connessione ed in caso di errore facciamo passare

' lo script alla successiva istruzione.

On Error Resume Next

objStampante1.Close


' Nel caso qualcosa non sia andato per il verso giusto, facciamolo

' sapere al nostro utente

If Err Then

Response.Write ("Errore # " & CStr(Err.Number) & " " & Err.Description)

Err.Clear

Else

' Operazione riuscita con successo.

Response.Write("<p>E' stato stampato il seguente testo:<br>")

Response.Write("<pre>" & strTesto & "</pre></p>")

Response.Write("<p><B>Percorso della stampante di rete:</b><br>")

Response.Write( strPercorsoStampante & "</p>")

Response.Write("<p><b>Login ID:</b><br>")

Response.Write( strUsername & "</p>")

End If



' Rimuoviamo la connessione

objWSHNet.RemovePrinterConnection "LPT1:"



' Scarichiamo gli oggetti usati dalla memoria

Set objWSHNet = Nothing

Set objFileSystem = Nothing

Set objStampante = Nothing

Set objStampante1 = Nothing


End If

%>

</body></html>

###################################

Non è proprio lo stesso, perchè l'ho configurato con il mio percorso del server.

Il problema è che mi da questo messaggio


Tipo di errore:
WSHNetwork.AddPrinterConnection (0x80070520)
Una sessione di accesso specificata non esiste. Potrebbe essere già stata terminata.
/ilventicello/chat/stampa.asp, line 147

Perchè qualcuno sa aiutarmi?


RispondiQuoting
rome
rome
il 6 agosto 2002 alle 03:11
2.907 messaggi dal 15 maggio 2001
Contributi
Qual'è la linea 147 ?

<font size=3> -¦» Rome Webmaster «¦- </font id=size3><font size=2> <b> [</b> Alla prossima<b> ]</b> </font id=size2>

Gabriele Romeo
<b>Community Manager di</b> http://www.aspitalia.com
RispondiQuoting
ras78
ras78
il 6 agosto 2002 alle 14:54
3.091 messaggi dal 05 marzo 2001
www.agency.com
Io uso un componente che fa un lavoro del genere ma non sapevo si potesse fare anche cosi, ora lo provo

---[ www.digiscout.it ]---
"This message was written using 100% recycled electrons"
RispondiQuoting
nessunomai
nessunomai
il 2 ottobre 2003 alle 10:05
15 messaggi dal 27 ottobre 2001
Volevo settare la stampante per stampare via rete ma sembra quasi assurdo ed inconcepibile farlo. A me non funziona alcun codice.

Ogni codice che debbo implementare non funge.


Il problema sono io.

Io prendo uno script, se funziona me lo studio e vedo come è fatto il codice se non funziona che lo studio a fare ? Apprendo nozioni inutili e parto anche sfiduciato.


MI funzionasse uno soltanto dei codici della rete.
Purtroppo dove lavoro io nessuno mi sa dare delle direttive a riguardo.

Tutti i miei problemi si risolvono in locale e tutto funziona ma quando deve partire in rete non funziona mai nulla. Permessi negati etc..etc...
Ho settato tutti i permessi tramite il dcomcnfg , ho settato tutte le autorizzazioni agli utenti everyone, ho detto che l'utente che accede è nterattivo, ho provato i codici e mi da sempre autorizzazione negata.

Se da me funziona significa che il codice è esatto.

Se non funziona per i permessi significa che debbo manipolare l'IIS e quindi vado la e do tutti i permessi di scrittura, accessi vari, esecuzione script e d eseguibili, accesso origine script, autentiacazione anonima.... sopèrattutto quest'ultima quando la attivo mi dice che ho l'autorizzazione negata anche su createobject, ma si può ?

C' è una mole di dati in internet ma non c'è uno che ti sappia dire che cosa farne. Ammasso di informazioni incomplete e sterili su ogni tipo di argomento.

Io prendo un libro e lo studio, il resto me lo ricavo.

Ma so che se provo uno script di un libro mi funziona.

Provo gli script fatti da altri che vanno riadattati e non mi funzionano mai.


Non ne posso più !
RispondiQuoting

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.