Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBS - Druckereigenschaften Druck Schwarz Weis - Farbe

Frage Microsoft

Mitglied: Krehk90

Krehk90 (Level 1) - Jetzt verbinden

27.06.2011, aktualisiert 15:47 Uhr, 5324 Aufrufe, 3 Kommentare

Hallo zusammen,
ich hoffe ihr könnt mit meiner beschreibung etwas anfangen.
Aber danke euch schonmal im vorraus für eure Zeit.

Hallo Zusammen,

ich habe eine simple Frage, ich möchte meine Printserver durch suchen ob die Installierten Drucker die Farbauswahl auf Schwarz/Weiß oder Farbe stehen haben.
Wenn möglich - dann auch um diese zu ändern.

Im Msdn steht unter : http://msdn.microsoft.com/en-us/library/aa394364%28VS.85%29.aspx der Punkt "Color" readonly.

Wenn ich per Skript:
objPrinter.Color aufrufe "jibet dat net" - Das Objekt unterstützt diese Eigenschaft nicht.

Dann fand ich im WWW dieses hier http://www.osronline.com/ddkx/graphics/webfnc_0r6v.htm

Da muss ich aber sagen, da spinnt es bei "Session" und "Server" rum im Confused!


Das skript bisher ist noch nur zum Testen aber hier:


Dim objPrinter, HasColor
Dim Name, fso
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinter = objWMIService.ExecQuery("Select * from Win32_Printer",,48)

For Each objPrinter in colPrinter

Name = objPrinter.Name
Wscript.Echo Name
Wscript.Echo objPrinter.Color

Set objPrinter = Server.CreateObject ("OlePrn.AspHelp")
objPrinter.Open strPrinter
HasColor = objPrinter.Color
On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set tFile = fso.OpenTextFile("Fehler.txt",8,true)
tFile.WriteLine Namen & " Farbe: " & HasColor
tFile.close


Next
Mitglied: TsukiSan
27.06.2011 um 14:26 Uhr
Hallo Krehk90,

der Scriptomat spuckt beo mir folgende Syntax raus:
01.
On Error Resume Next 
02.
 
03.
Const wbemFlagReturnImmediately = &h10 
04.
Const wbemFlagForwardOnly = &h20 
05.
 
06.
arrComputers = Array("ComputerName") 'hier bitte deinen Computernamen eingeben! 
07.
For Each strComputer In arrComputers 
08.
 
09.
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
10.
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PrinterConfiguration", "WQL", _ 
11.
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly) 
12.
 
13.
   For Each objItem In colItems 
14.
      WScript.Echo "Caption: " & objItem.Caption 
15.
      WScript.Echo "Color: " & objItem.Color 
16.
   Next 
17.
Next
Da müßtest du bei der .Color-Eigenschaft einen Integerwert bekommen. Dieser müßte auswertbar sein.

Gruss
Tsuki.

Ps.: setze deine Zeilen code doch auch bitte in die CODE-TAGS/Formatierung
Bitte warten ..
Mitglied: Krehk90
27.06.2011 um 15:43 Uhr
Danke dir, hat soweit geklappt, gibt es so auch eine möglichkeit das zu verändern ?
Wahrscheinlich muss ich dann mir alle settings auslesen und neu erzeugen ?!

Was ist "Scriptomat" ? :D
Bitte warten ..
Mitglied: TsukiSan
27.06.2011 um 15:53 Uhr
Hallo Krehk90,

ob man die Einstellungen so verändern kann auf diesem Wege, weiß ich ehrlich gesagt nicht, da ich nichts zum Testen habe (habe nur Schwarz/Weiß) *gg*

Aber den Scriptomat kannst du dir hier bei Microsoft runterladen. Er greift auf die WMIs zu. Kleines nützliches Tool für VBS, Java etc.

Gruss
Tsuki
Bitte warten ..
Ähnliche Inhalte
Windows Server
gelöst PDF Druck dauert ewig - Windows Server 2012 R2 (3)

Frage von Intruder0001 zum Thema Windows Server ...

Drucker und Scanner
HP Drucker - Schwarzweißdruck verschwendet Farbe (1)

Frage von GrueneSosseMitSpeck zum Thema Drucker und Scanner ...

Batch & Shell
gelöst Base64 Decode (Batch,VBS) (26)

Frage von clragon zum Thema Batch & Shell ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst ZIP-Archive nach Dateien durchsuchen und Pfade ausgeben (33)

Frage von evinben zum Thema Batch & Shell ...

Router & Routing
Routingproblem in Homerouter-Kaskade mit Raspi (19)

Frage von Oldschool zum Thema Router & Routing ...

Server
Freenas schlechte Schreib Performance bei NFS (16)

Frage von janosch12 zum Thema Server ...

Windows Server
Fehler Vertrauensstellung im AD (14)

Frage von thomas-99 zum Thema Windows Server ...