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, 5229 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Windows 7
gelöst Batch-Skript oder VBS Skript zum Sichern von Office Vorlagen (2)

Frage von Ceejaay zum Thema Windows 7 ...

LAN, WAN, Wireless
Drucker an O2 Box - kein Druck möglich (4)

Frage von pdiddo zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2012R2 RDP Druck Rechteprobleme (1)

Frage von NiSan74 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Ipv4 mieten (22)

Frage von homermg zum Thema Router & Routing ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...