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
