Hvilke (lokal)printer instaleret på hvilke PC'er i netværket

???

Nu sider jeg ikke lige i det rigtige test miljø men dette script kan se mine egne printerer, og en enkelt kollegas printer.

strComputer = "."
Set objNetwork = Wscript.CreateObject("Wscript.Network")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer")
For Each objPrinter in colInstalledPrinters
Wscript.Echo "Name: " & objPrinter.Name
Next

Jeps - ka' vise mine egne printer; det er jo 'let' nok *S*
Men tilsvarende hos >3000 PC'er netværket ???

Jeg har alle aktive PC'er i en laaaaang tekstfil. Den skal jo rendes igennem...

Hos mig viser den altså også med printere som er tilsluttet andre pcér på vores LAN?
Men ikke netværksprintere.

Måske hvis de er Delte ?

???

Point opdateret...

Ja, det er det jeg oplever. Jeg har bare kopieret dette script og testet det på vores lokal net. så jeg kan se delte printere.

... men de printer der her er tale om er netop IKKE delte; det er ikke go' latin på arbejdet... Såååå...

tja. delt eller ikke delt. Nu er jeg rimelig sikker på at min kollega ikke har en dyt forstand på at share noget som helst, så det skulle undre mig meget, at scriptet ikke virker på same måde hos dig.

Hvis vi kikker på Windows API "EnumResources" er jeg overbevist om at en given PC vil udlevere disse oplysninger om tilsluttede printere eller drivere, hvad enten den er shared eller ej.

I min "verden" er vi 12 arbejdsstationer og kun én har tilsluttet en egen printer, og den kan jeg se.

Men der er jo forskel på LAN, og >3000 Pcér (Hvor er det lige du arbejder?) Kan du pege lidt mere i retningen af hvad du skal bruge det til?

strComputer = "." er lidt af et WildCard. Har du prøver at udskifte "." med navnet på computeren, når du nu har dem?

Nu har jeg brugt noget tid på at undersøge de enkelte dele af ovenstående kode, og må konkludere at, det skal bare virke!

Hvis man går helt "Nørd": http://msdn.microsoft.com/en-us/library/aa394363(VS.85).aspx
Kan du få alt af vide om en printer (Skal testes når jeg kommer på arbejde.)

Nu har jeg en mistanke om at NetBios, er en spiller på bannen og det er jo ikke alle der lige har den i hukommelsen.

Nu har jeg så ikke en Printer på denne Box, men prøvede at udskifte strComputer = "." med strComputer = "127.0.0.1" og den åd det.

Få det nu bare til at virke :-) så jeg kan få mine points og gå i seng. Haha!

(Kan kun afprøves på 'rigtig' arbejde på hverdage...)

Nå, det virkede ikke. En eller anden havde installeret min kollegas shared printer på min Box, så det var klart at jeg kunne se den. Doh!

Men jeg tror jeg har fundet noget af det helt rigtige: http://articles.techrepublic.com.com/5100-10878_11-5030819.html

Jeg har bare ikke mulighed for at teste det

Gennembrud! Jeg fandt en remote computer på vores lan og fyrede denne her af:
C:\WINDOWS\system32>cscript Prndrvr.vbs -l -s "\\85.233.XXX.XXX" -u Administrato
r -w XXXXXX

Og jeg fik en halv meter oplysninger om printeren

Hit med mine Point´s :-)

Når jeg så har kørt ovenstående Prndrvr.vbs har jeg printernavnet og kan fyre denne af:
C:\WINDOWS\system32>cscript Prncnfg.vbs -g -s "\\85.233.XXX.XXX" -u Administrato
r -w XXXXXX -p "Zebra LP2844"
Microsoft (R) Windows Script Host version 5.6
Copyright (C) Microsoft Corporation 1996-2001. Alle rettigheder forbeholdes.

Servernavn 85.233.XXX.XXX
Printernavn Zebra LP2844
Sharenavn ZebraLP2844server
Drivernavn Zebra LP2844
Portnavn IP_85.233.XXX.XXX
Kommentar
Placering server
Separatorfil
Udskriftsprocessor WinPrint
Datatype RAW
Parametre
Prioritet 1
Standardprioritet 0
Printeren er altid tilgængelig
Attributter lokal delt udgivet enable_bidi do_complete_first

Så kan man se hvilke der er fysisk til stede o.s.v

Det må jeg lige 'lege' med imorgen...

Bemærk at jeg pt. 'kun' har alle levende PC'ers navne i én lang liste fra http://www.eksperten.dk/spm/835435

Lige en note:

<cool_m_f>: Her er listen ->
http://hemmingsvej.dk/eksperten/835435/AD-LIST.zip
NB: 5640 elementer!!!

(Filen er kun aktuel så længe at denne tråd er 'aktiv' ...)

Den er stadig aktiv?

(Den liste er 'lidt' glemt.. - men det er den størrelsesorden)

Nå! ja, vrøvl... misforstod din tekst.

Så længe du kender navnene på PCérne, burde du kunne følge "min" fremgangsmåde og høste 1) deres printerdriver´s information om Printernavnet. 2) udfra printernavnet, deres aktuelle, tilsluttet printer og dens tilstand.

Noget jeg ikke er vant til ved Microsoft, er en Share som er hurtig at få svar fra. Men dette her, lader til at gå ret hurtigt. Så de >3000 PCér burde være en leg i denne sammenhæng.

du kan jo "leje" lidt hos dig selv, da de findes under C:\Windows\system32 som *.vbs

Duueeehhh!

(Arbejdsramt på arbejdet; det er kun der jeg ka' afprøve... - info følger...)

(Har - arbejdsmæssigt - været optaget i forløbne uge... info følger...)

(For en go' ordens skyld: Jeg har 'tabt' tråden lidt i dette project. Tager det måske op igen senere...)
Iøvrigt tak for hjælpen...