PDA

Vollständige Version anzeigen : Drucker auflisten per vbs


jaguarxxl
12.02.2009, 09:25
Guten Tag zusammen,

ich habe folgendes Skript und benötige einige Änderungen, weiß aber leider nicht wie das geht. Ich möchte gerne das die Ausgabe in eine Textdatei oder ähnliches umgeleitet wird. Des weiteren benötige ich noch Ip Adressen.

Ist es möglich die Ausgabe so zu formatieren, dass ich das ganze dann in Excel als Tabelle nutzen kann?

Gruß, Jagu


strComputer = "HOSTNAME"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")

For Each objPrinter In colInstalledPrinters
WScript.Echo "Name: " & objPrinter.Name
'WScript.Echo "Configuration File: " & objPrinter.ConfigFile
'WScript.Echo "Data File: " & objPrinter.DataFile
'WScript.Echo "Description: " & objPrinter.Description
'WScript.Echo "Driver Path: " & objPrinter.DriverPath
'WScript.Echo "File Path: " & objPrinter.FilePath
'WScript.Echo "Help File: " & objPrinter.HelpFile
'WScript.Echo "INF Name: " & objPrinter.InfName
'WScript.Echo "Monitor Name: " & objPrinter.MonitorName
'WScript.Echo "Name: " & objPrinter.Name
'WScript.Echo "OEM Url: " & objPrinter.OEMUrl
'WScript.Echo "Supported Platform: " & objPrinter.SupportedPlatform
'WScript.Echo "Version: " & objPrinter.Version
Next

ransi
19.04.2009, 17:19
HAllo

Ich habe mir jetzt deinen Code nicht in VBS nachgebaut.
Teste diese 2 mal als "ExcelMakro":

<div style="background-color:#FFFFFF; border-width:2px; border-style: groove; border-color:#ff9966; padding:4px;"><nobr><span style="font-family:Courier New,Arial; font-size:9pt ;" ><span style="color:#000080"; >Option</span> <span style="color:#000080"; >Explicit</span><br /><br /><b><span style="color:#000080"; >Public</span> <span style="color:#000080"; >Sub</span> test2()</b><br /><span style="color:#000080"; >Dim</span> objWMI <span style="color:#000080"; >As</span> Object, objItem <span style="color:#000080"; >As</span> Object, I, c, a<br /><span style="color:#000080"; >Set</span> objWMI = GetObject(<span style="color:#F70000"; >"winmgmts:\\.\root\cimv2"</span>). _<br />&nbsp;&nbsp;&nbsp;&nbsp;ExecQuery(<span style="color:#F70000"; >"Select * from Win32_Printer"</span>)<br /><span style="color:#000080"; >On</span> <span style="color:#000080"; >Error</span> <span style="color:#000080"; >Resume</span> <span style="color:#000080"; >Next</span><br /><span style="color:#000080"; >For</span> Each objItem In objWMI<br />&nbsp;&nbsp;&nbsp;&nbsp;a = a + 2<br />&nbsp;&nbsp;&nbsp;&nbsp;c = 0<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >For</span> Each I In objItem.properties_<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;c = c + 1<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cells(c, a - 1) = I.Name<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cells(c, a) = I.Value<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >Next</span><br /><span style="color:#000080"; >Next</span><br /><span style="color:#000080"; >Set</span> objWMI = <span style="color:#000080"; >Nothing</span><br /><b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b><br /><br /><br /><br /><b><span style="color:#000080"; >Public</span> <span style="color:#000080"; >Sub</span> test3()</b><br /><span style="color:#000080"; >Dim</span> objWMI <span style="color:#000080"; >As</span> Object, objItem <span style="color:#000080"; >As</span> Object, I, c, a<br /><span style="color:#000080"; >Set</span> objWMI = GetObject(<span style="color:#F70000"; >"winmgmts:\\.\root\cimv2"</span>). _<br />&nbsp;&nbsp;&nbsp;&nbsp;ExecQuery(<span style="color:#F70000"; >"Select * from Win32_PrinterConfiguration"</span>)<br /><span style="color:#000080"; >On</span> <span style="color:#000080"; >Error</span> <span style="color:#000080"; >Resume</span> <span style="color:#000080"; >Next</span><br /><span style="color:#000080"; >For</span> Each objItem In objWMI<br />&nbsp;&nbsp;&nbsp;&nbsp;a = a + 2<br />&nbsp;&nbsp;&nbsp;&nbsp;c = 0<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >For</span> Each I In objItem.properties_<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;c = c + 1<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cells(c, a - 1) = I.Name<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cells(c, a) = I.Value<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >Next</span><br />&nbsp;&nbsp;&nbsp;&nbsp;c = c + 1<br /><span style="color:#000080"; >Next</span><br /><span style="color:#000080"; >Set</span> objWMI = <span style="color:#000080"; >Nothing</span><br /><b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b><br /></span></nobr></div>

Das sollte ähnliches liefern wie dein VB-Script.

ransi