Oversikt over opprettet printere

[tkvam]

Scriptet under lister ut alle installerte skrivere, samt modell/lokasjon og "Printer navn eller IP Adresse" under port settings.

 

Men nå jeg kjører scriptet mot lokal server, lister den ikke ut "Printer navn eller IP Adresse" under port settings.

Kjøres scriptet mot en remote server listes "Printer navn eller IP Adresse" under port settings ut.

 

Noen tips?

 

 

 

Option Explicit

 

strComputer = "."

 

'On Error Resume Next

Dim objWMIService

Dim colIPrinters

Dim objPrinter

Dim colPorts

Dim Port

Dim strComputer

Dim sFilePath

Dim oFso

Dim oFile

Dim HA

 

 

Const ForAppending = 8

 

 

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

Set colIPrinters = objWMIService.ExecQuery("SELECT * FROM Win32_Printer where Name like 'BK%'",,48)

 

Set oFso = CreateObject("Scripting.FileSystemObject")

Set oFile = oFso.CreateTextFile("logg.txt", ForAppending, True)

 

For Each objPrinter in colIPrinters

Set colPorts = objWMIService.ExecQuery("SELECT * FROM Win32_TCPIPPrinterPort WHERE Name='" & objPrinter.PortName & "'",,48)

 

Wscript.Echo "DeviceID: " & objPrinter.DeviceID

Wscript.Echo "DriverName: " & objPrinter.DriverName

Wscript.Echo "Location: " & objPrinter.Location

For Each Port in colPorts

Wscript.Echo "HostAddress: " & Port.HostAddress

HA = Port.HostAddress

Next

 

 

oFile.Writeline(objPrinter.DeviceID & ";" & objPrinter.DriverName & ";" & objPrinter.Location & ";" & HA)

 

set HA = Nothing

Next

oFile.Close

Set oFile = Nothing

Set oFso = Nothing

Endret 21. januar 2010 av tkvam