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

Linkliste für Adventskalender

(3)

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

Ähnliche Inhalte
Batch & Shell
TCP IP Druckerport auf Win 7 Client von IP ändern auf DNS Hostname (9)

Frage von pixel0815 zum Thema Batch & Shell ...

Netzwerke
Hilfe ! Aufgabe TCP IP Header Analysieren (11)

Frage von Cat7Boy zum Thema Netzwerke ...

Windows Server
gelöst Ändern der Alternativen IP Konfiguration mittels GPO? (4)

Frage von SebastianMikacs zum Thema Windows Server ...

E-Mail
gelöst Mail Spam fremde IP (10)

Frage von BerndP zum Thema E-Mail ...

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