Ciao a tutti... ho trovato online questo codice:
codice:
' 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
Set objStampante = objWSHNet.EnumPrinterConnections
IntMaxConn=objStampante.Count
if IntMaxConn>0 then
for ciclo=0 to IntMaxConn-1
response.write "<option value='" & objStampante.Item(ciclo+1) & "'>" & objStampante.Item(ciclo+1)
ciclo=ciclo+1
next
else
response.write "<option>nessuna"
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 = Request.Form("PercorsoStampante")
response.write strPercorsoStampante
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
'objWSHNet.AddWindowsPrinterConnection "HP"
' Apriamo la stampante come se si trattasse di un puro e semplice file.
Set objStampante = objFileSystem.CreateTextFile("LPT1:", True)
' Mandiamo il testo da stampare come se si trattasse di una semplice
' scrittura su file.
objStampante.Write(strTesto)
 
' Chiudiamo la connessione ed in caso di errore facciamo passare
' lo script alla successiva istruzione.
On Error Resume Next
objStampante.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("

E' stato stampato il seguente testo:
")
Response.Write("<pre>" & strTesto & "</pre></p>")
Response.Write("

Percorso della stampante di rete:
")
Response.Write( strPercorsoStampante & "</p>")
Response.Write("

Login ID:
")
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
End If
%>
</body></html>
che dovrebbe mandare in stampa il contenuto del form sulla stampante selezionata... naturalmente non mi funziona perchè non trova nessuna stampante mentre io ne ho 2 installate. Sapete dirmi l'errore dov'è? Mi va bene anche un altro pezzo di codice che mi dia anche solo l'elenco delle stampanti... poi il resto mi arrangio in un altro modo!
Faccio notare che ho una stampante USB ed una LPT, ma vorrei avere anche l'elenco di quelle messe in rete... anche se per adesso non ne ho
Ciao