Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

TCP-IP Ports mit Konfiguration auflisten - Win2008Server - Printserver

Frage Microsoft

Mitglied: Fire78

Fire78 (Level 1) - Jetzt verbinden

03.01.2012 um 14:30 Uhr, 5826 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
Drucker und Scanner
gelöst Drucken mit Printserver per Portweiterleitung (8)

Frage von Markowitsch zum Thema Drucker und Scanner ...

Netzwerkmanagement
Windows Server 2012 TCP Port trotz freigabe nicht offen (13)

Frage von t0mmIX zum Thema Netzwerkmanagement ...

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 ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Freigabe aus anderem Netz nicht erreichbar (31)

Frage von McLion zum Thema Router & Routing ...

Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail (24)

Frage von ahstax zum Thema Visual Studio ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Windows Netzwerk
Netzwerk Neustrukturierung (15)

Frage von IT-Dreamer zum Thema Windows Netzwerk ...