Drucker auslesen

[Thorre 10]

Hallo zusammen

 

Ich habe da mal eine Frage.

Ist es irgendwie möglich alle Drucker die auf einem W2k3 Server (member von AD Domain) installiert sind auszulesen. Ich hätte gerne folgende Info Sharename, Modelname, IP, Standort.

Über die MMC würde das ja sehr einfach über export gehen aber dort sehe ich nur Name, Typ und Beschreibung. Kann man das vielleicht irgendwie erweitern?

 

Gruss und schon mal danke

Thorre

[R.Ralle 10]

Hi,

 

Du kannst das auch über wmi auslesen, muss vielleich noch angepasst werden (computername und benötigte infos):

On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("compuername")
For Each strComputer In arrComputers
  WScript.Echo
    WScript.Echo "Computer: " & strComputer
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
  Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer", "WQL", _
                                         wbemFlagReturnImmediately + wbemFlagForwardOnly)

  For Each objItem In colItems
          WScript.Echo "AveragePagesPerMinute: " & objItem.AveragePagesPerMinute
        strCapabilityDescriptions = Join(objItem.CapabilityDescriptions, ",")
        WScript.Echo "CapabilityDescriptions: " & strCapabilityDescriptions
     WScript.Echo "Caption: " & objItem.Caption
          WScript.Echo "Comment: " & objItem.Comment
         WScript.Echo "CurrentCharSet: " & objItem.CurrentCharSet
     WScript.Echo "CurrentLanguage: " & objItem.CurrentLanguage
     WScript.Echo "CurrentMimeType: " & objItem.CurrentMimeType
     WScript.Echo "CurrentNaturalLanguage: " & objItem.CurrentNaturalLanguage
     WScript.Echo "CurrentPaperType: " & objItem.CurrentPaperType
     WScript.Echo "Default: " & objItem.Default
         WScript.Echo "DefaultPriority: " & objItem.DefaultPriority
     WScript.Echo "Description: " & objItem.Description
     WScript.Echo "DetectedErrorState: " & objItem.DetectedErrorState
     WScript.Echo "DeviceID: " & objItem.DeviceID
     WScript.Echo "Direct: " & objItem.Direct
           WScript.Echo "DriverName: " & objItem.DriverName
       WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
      WScript.Echo "Local: " & objItem.Local
     WScript.Echo "Location: " & objItem.Location
     WScript.Echo "MarkingTechnology: " & objItem.MarkingTechnology
         strMimeTypesSupported = Join(objItem.MimeTypesSupported, ",")
        WScript.Echo "MimeTypesSupported: " & strMimeTypesSupported
     WScript.Echo "Name: " & objItem.Name
          WScript.Echo "Network: " & objItem.Network
             WScript.Echo "Parameters: " & objItem.Parameters
     WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
     WScript.Echo "PortName: " & objItem.PortName
     strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
        WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
     WScript.Echo "PrinterState: " & objItem.PrinterState
     WScript.Echo "PrinterStatus: " & objItem.PrinterStatus
     WScript.Echo "PrintJobDataType: " & objItem.PrintJobDataType
     WScript.Echo "PrintProcessor: " & objItem.PrintProcessor
     WScript.Echo "Priority: " & objItem.Priority
     WScript.Echo "Published: " & objItem.Published
     WScript.Echo "Queued: " & objItem.Queued
     WScript.Echo "RawOnly: " & objItem.RawOnly
     WScript.Echo "SeparatorFile: " & objItem.SeparatorFile
     WScript.Echo "ServerName: " & objItem.ServerName
     WScript.Echo "Shared: " & objItem.Shared
     WScript.Echo "ShareName: " & objItem.ShareName
     WScript.Echo "SpoolEnabled: " & objItem.SpoolEnabled
     WScript.Echo "Status: " & objItem.Status
     WScript.Echo "StatusInfo: " & objItem.StatusInfo
     WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
     WScript.Echo "SystemName: " & objItem.SystemName
     WScript.Echo "WorkOffline: " & objItem.WorkOffline
     WScript.Echo
  Next
Next


Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm: 
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function

 

ist mt scrptomatic erstellt.

 

Ralph

[Thorre 10]

Hi Ralle

 

Vielen Dank für die Hilfe. Kannst du mir vielleicht auch noch sagen wie ich die Info nun korrekt in mein Excel bekomme. Ich möchte es in einzelne Spalten z.B. Druckername, IP, Drivername und es sollte alles untereinander stehen.

 

Gruss

Thorre

[catal82 10]

Mal etwas anderes... hast du es schon mal mit Loginventury probiert. Das ist ein Programm damit kann man im Netzwerk nach allen möglichen Geräten (PC`s, Drucker,...) suchen und Informationen anzeigen lassen.