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

TCP-IP Ports mit Konfiguration auflisten - Win2008Server - Printserver

Frage Microsoft

Mitglied: Fire78

Fire78 (Level 1) - Jetzt verbinden

03.01.2012 um 14:30 Uhr, 5674 Aufrufe, 4 Kommentare

Hallo zusammen!
Ich bin auf der Suche nach einer Lösung für folgendes Problem:

Ich sitze bei einem Kunden, bei dem wir die Wartung für den Prinserver übernommen haben, leider exestieren, wie so häufig, kaum Dokumentationen.
Nun bin ich dabei auf folgendes Problem gestoßen:
es sind eine Menge Printer-Queues per TCP-Port angebunden (so um die 200) und ich möchte jetzt die Konfiguration der Ports auslesen (welcher Printerport verweist auf welche IP-Adresse?) ... leider finde ich nicht das passende Bordmittel dazu, kann auch sein, das ich gerade nur etwas Gefechtsblind bin. Vllt. kann mir da wer auf die Sprünge helfen.
Wir nutzen hier einen W2008 Server als Printserver.

Lg

Fire
Mitglied: Karo
03.01.2012 um 15:25 Uhr
Hi,
vielleicht hilft das ...
Ausgabedatei ist printerResult_<ComputerName>.txt


01.
' Aufruf mit cscript printerData.vbs <optional: servername> 
02.
 
03.
Set oArgs = WScript.Arguments 
04.
if WScript.Arguments.Count <> 1 then 
05.
	strComputer = "." 
06.
Else 
07.
	strComputer = oArgs(0) 
08.
End If 
09.
 
10.
 
11.
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
12.
Set OpSysSet = objWMIService.ExecQuery("select * from Win32_ComputerSystem") 
13.
for each i in OpSysSet 
14.
		computerDomain = i.Domain 
15.
		computerName = i.DNSHostName 
16.
Next 
17.
 
18.
strOutFile = "printerResult_" & computerName & ".txt" 
19.
set fso = createobject("scripting.filesystemobject") 
20.
fso.createtextfile(strOutFile) 
21.
set out = fso.opentextfile(strOutFile, 2) 
22.
 
23.
out.writeline "DomainName	ServerName	PrinterName	ShareName	Location (GNS 4.3 konform)	Comment	PortName	PortHostAddress	SAP-Name	DNS-Name	IP-Address	MAC (xx-xx-...)	DriverName	PortNumber	Datatype RAW or LPR	LPRQueue	Owner (email address)	Devicetype (MuFu or normal printer)	Fax enabled	mail enabled	print enabled" 
24.
 
25.
 
26.
Set colInstalledPrinters =  objWMIService.ExecQuery("Select * from Win32_Printer") 
27.
 
28.
For Each objPrinter in colInstalledPrinters 
29.
	PrinterName = objPrinter.Name 
30.
	ShareName = objPrinter.ShareName 
31.
	PrinterLocation = objPrinter.Location 
32.
	Comment = objPrinter.Comment 
33.
	PortName = objPrinter.PortName 
34.
	DriverName = objPrinter.DriverName 
35.
 
36.
	Set colPorts =  objWMIService.ExecQuery("Select * from Win32_TCPIPPrinterPort where Name='" & objPrinter.PortName & "'") 
37.
	For Each objPort in colPorts 
38.
		P_HostAddress = objPort.HostAddress 
39.
		P_Name = objPort.Name 
40.
		P_Number = objPort.PortNumber 
41.
		If (objPort.Protocol = 1) Then 
42.
			P_Protocol = "RAW" 
43.
		ElseIf (objPort.Protocol = 2) Then 
44.
			P_Protocol = "LPR" 
45.
		End If 
46.
		P_Queue = objPort.Queue 
47.
		P_SNMPEnabled = objPort.SNMPEnabled 
48.
	Next 
49.
 
50.
	out.writeline computerDomain & "	" & computerName & "." & computerDomain & "	" & PrinterName & "	" & ShareName & "	" & PrinterLocation & "	" & Comment & "	" & PortName & "	" & P_HostAddress & "					" & DriverName & "	" & P_Number & "	" & P_Protocol & "	" & P_Queue 
51.
Next 
52.
 
53.
out.close

Karo
Bitte warten ..
Mitglied: Fire78
03.01.2012 um 16:28 Uhr
Hallo!

Danke für das Script, es gibt mir soweit auch alle Daten aus, nur leider bleiben bei mir die Zeilen mit der IP-Adresse leer.

LG Fire
Bitte warten ..
Mitglied: Karo
03.01.2012 um 16:52 Uhr
...dann bastel Dir ein Script mit dem Du die Sachen aus der Reg auslesen kannst:

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Print\Monitors\Standard TCP/IP Port\Ports\<DRUCKERNAME>\IPADDRESS

... man hätte die Drucker aber auch ins DNS mit aufnehmen können. Wäre hübscher ...

Karo
Bitte warten ..
Mitglied: Karo
05.01.2012 um 12:27 Uhr
bin grad in meinem Fundus über etwas gestolpert:

http://www.christowles.com/2011/04/powershell-api-for-windows-2008-prin ...
(nicht nur für W2K8)

Bei Bedarf kann ich das Script auch posten.

Karo
Bitte warten ..
Ähnliche Inhalte
Windows 10
Keine gültige IP konfiguration (14)

Frage von TicTakTeo zum Thema Windows 10 ...

LAN, WAN, Wireless
gelöst Cisco SG200: Auf bestimmtem vLAN bestimmte TCP-Ports sperren (19)

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

Internet
IP Kamera mit periodischem FTP Upload (2)

Frage von ChrisFah zum Thema Internet ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(1)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (26)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (23)

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

Basic
Programmierung von Windows Programmen (10)

Frage von Ghost108 zum Thema Basic ...