Ciao.
Sto provando in localhost il seguente script:
Ma restituisce l'errore:codice:<% 'creo l'oggetto con il metodo CreateObject set myword = CreateObject("word.application") 'Non rendo visibile Word myword.visible = false 'leggo la stampante di default DefaultPrinter = myword.ActivePrinter 'Imposto la nuova stampante myword.ActivePrinter = "Adobe PDF" 'Apro il documento che intendo stampare myword.Documents.Open("C:\Prova di stampa.doc"), false, false 'E lo mando in stampa myword.printout 'Attendo circa 30/35 secondi che bastano e avanzano per la creazione di un pdf di circa 20 pagine for i=0 to 10000000 a = rnd(5) next 'reimposto la stampante di default myword.ActivePrinter = DefaultPrinter 'Esco da Word myword.quit(0) Set myword = nothing %>
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0046)
Autorizzazione negata: 'CreateObject'
Eppure i permessi ci sono !!! Sia su IIS che sul documento word !!!!
Ho seguito queste indicazioni:
Lanciare DCOMCNFG da linea di comando
Selezionare, dall'elenco delle applicazioni installate, Documento di Microsoft Word
Aprire la finestra Proprietà?.
La scheda "Generale" permette di impostare il livello di autenticazione, che in questo caso deve essere impostato a "(nessuno)"
Nella scheda "Protezione", impostare "Utilizza le autorizzazioni di esecuzione personalizzate"
Scegliere "Modifica.." e accertarsi che tutti gli utenti abbiano l'opzione "Consenti Avvio"
Assicurarsi che gli utenti IUSR_[nomepc] e IWAM_[nomepc] rispettino tale condizione.
Sempre nella scheda "Protezione", impostare "Utilizza le autorizzazioni di configurazione personalizzate"
Scegliere "Modifica.." e accertarsi che tutti gli utenti abbiano l'opzione "Controllo Completo".
Assicurarsi che l'utente Everyone abbia tali privilegi.
Nella scheda "Identità" impostare come account utente "Utente Interattivo"
Confermare i cambiamenti effettuati cliccando sul pulsante OK
Riavviare il pc.
![]()

Rispondi quotando
