Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

esportazione dati stampanti tramte WMI

Problemi di HTML? Di PHP, ASP, .NET, JSP, Perl, SQL, JavaScript, Visual Basic..?
Vuoi realizzare programmi in C, C++, Java, Ruby o Smalltalk, e non sai da che parte cominciare?
Entra qui e troverai le risposte!

Moderatori: Triumph Of Steel, archimede

esportazione dati stampanti tramte WMI

Postdi Dylan666 » 14/12/12 17:07

Buonasera a tutti, stavo cercando di crearmi uni script che mi esportasse i dati delle stampanti presenti su un server.
Rimaneggiando cose trovate in giro sono arrivato a questo:

Codice: Seleziona tutto
Const ForWriting = 2

Set objNetwork = CreateObject("Wscript.Network")

strName = objNetwork.UserName
strDomain = objNetwork.UserDomain
strUser = strDomain & "\" & strName

'strText = strUser & vbCrLf

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

' Export a list of network printers to a text file
Set colPrinters = objWMIService.ExecQuery ("Select * From Win32_Printer Where Local = TRUE")

For Each objPrinter in colPrinters
    strText = strText & objPrinter.Name & vbCrLf
Next

Set objFSO = CreateObject("Scripting.FileSystemObject")

strFolder = "C:\test"

If Not objFSO.FolderExists(strFolder) Then
    objFSO.CreateFolder(strFolder)
End If

Set objFile = objFSO.CreateTextFile ("C:\test\printers.txt", ForWriting, False)

objFile.Write strText

objFile.Close

WScript.Echo "Printer listing is done"


Ora però mi servirebbero altri dati oltre al nome della stampante, essenzialmente Comments, Location e Model.
In altri script sembra che basti aggiungere objPrinter.Location ad esempio, ma se io lo aggiungo in quello script non funziona.
In questo per esempio funziona (ma crea un file Excel invece di un TXT) e la query e l'nizio dello script mi sembra identico all'altro.
COme posso ottente le tre caratteristiche col primo script

Grazi
Avatar utente
Dylan666
Moderatore
 
Post: 38040
Iscritto il: 18/11/03 16:46

Sponsor
 

Postdi archimede » 17/12/12 12:56

Dylan666 ha scritto:sembra che basti aggiungere objPrinter.Location ad esempio, ma se io lo aggiungo in quello script non funziona.
Strano: la documentazione sembra indicare che dovrebbe.

Non funziona è un po' vago: dà errore?

Alessandro
archimede
Moderatore
 
Post: 2755
Iscritto il: 07/11/02 12:41
Località: Genova

Postdi Dylan666 » 17/12/12 22:09

Non funziona(va) nel senso che il valore rimane(va) vuoto.
Ho riprovato oggi e pare andare, misteri della fede...

Da questa esperienza almeno ho ricavato questi tool che permetto di verificare dal vivo quali dati WMI sono accessibili sul PC e che valore anno:

http://www.microsoft.com/en-us/download ... x?id=24045
(WMI Administrative Tools)

Attenzione che il WMI Object Browser è compatibile solo con Internet Explorer
Avatar utente
Dylan666
Moderatore
 
Post: 38040
Iscritto il: 18/11/03 16:46


Torna a Programmazione


Topic correlati a "esportazione dati stampanti tramte WMI":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti