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

Windows Server
gelöst Drucker am WSD-Port (2)

Frage von raba34 zum Thema Windows Server ...

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

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Internet
gelöst Jeden morgen Internet-Probleme (56)

Frage von pjrtvly zum Thema Internet ...

Server-Hardware
HP DL380 G7: Booten vom USB via USB 3.1-PCI-e Karte möglich? (24)

Frage von Paderman zum Thema Server-Hardware ...

LAN, WAN, Wireless
gelöst IP Adressen - Modem - Switch - Accesspoint (22)

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

Windows 7
Bluesreens unternehmensweit (22)

Frage von SYS64738 zum Thema Windows 7 ...