none
Trovare User Printer RRS feed

  • Domanda

  • Salve a tutti,

    avrei la seguente necessità...

    Vorrei trovare tutte le stampanti condivise in uso ad una serie di utenti, avrei trovato uno script vb che mi genera un file di testo con l'elenco delle stampanti, ma genera un file per ogni utente:

    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")

    Set colPrinters = objWMIService.ExecQuery _
        ("Select * From Win32_Printer Where Local = FALSE")

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

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.CreateTextFile _
        ("\\share\Printers.txt", ForWriting, True)

    objFile.Write strText

    objFile.Close

    Il mio obbiettivo sarebbe di creare un file per ogni stampante, aggiungendo all'interno il nome dell'utente che ha tale stampante.

    è fattibile?

    Grazie

    Michele

    mercoledì 10 aprile 2013 12:28