Top-Themen

Aktuelle Themen (A bis Z)

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, 5516 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
Microsoft
Ich weis nicht weiter
Frage von hahn.LarsMicrosoft19 Kommentare

Ich brauch mal euren Rat Problem: - Leerer Pc Intel i7 7700k Msi z270-pro Samsung Evo 850 250gb 650 ...

Drucker und Scanner
Jeder Drucker interpretiert Farbe anders
gelöst Frage von 118080Drucker und Scanner13 Kommentare

Moin Habe ein kurioses Problem Bei uns werden die Preislisten in Excel durch komplexe Rechnungen erstellt. Dann wird ein ...

Windows Server
Windows Server Druckerfreigabe - Standardeinstellungen Farbe Schwarz-Weiß
Frage von Marco-83Windows Server2 Kommentare

Moin zusammen, da ich etwas verzweifelt bin, wende ich mich mal wieder an euch und hoffe jemand kennt einen ...

Drucker und Scanner
Drucker druckt nur Schwarz
gelöst Frage von talaihanDrucker und Scanner3 Kommentare

Hallo, wir haben einen Kyocera Drucker dieser druckt bei allen Clients Normal nur bei einem druckt er nur Schwarz ...

Neue Wissensbeiträge
Verschlüsselung & Zertifikate

Die Hölle friert ein weiteres Stück zu: Microsoft integriert OpenSSH in Windows

Information von ticuta1 vor 26 MinutenVerschlüsselung & Zertifikate

Interessant SSH-Kommando in CMD.exe und PowerShell

Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 1 TagApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 1 TagWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 1 TagWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Heiß diskutierte Inhalte
Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server18 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Hardware
Kein Bild mit nur einer bestimmten Grafikkarten - Mainboard Konfiguration
gelöst Frage von bestelittHardware18 Kommentare

Hallo zusammen, ich hatte schon einmal eine ähnliche Frage gestellt. Damals hatte ich genau das gleiche Problem. Allerdings lies ...

Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement17 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...