VB-Script: TCPIP Standardport fürs Drucken erstellen

[marka 589]

Hi Folks,

 

folgendes Problem:

Ich soll möglichst schnell für eine unserer Tochterfirmen einen IPP Printserver aufbauen.

Das ist an sich nicht das Problem.

 

Das Problem ist die Menge der anzubindenden Drucker (ca. 80 Stck.) in Verbindung mit dem engen Zeitfenster.

Ich soll den Server vorinstalliert bekommen und innerhalb weniger Stunden eingerichtet haben.

Da alle Printer via Standard TCPIP-Ports angesteuert werden, möchte ich zumindest die Erstellung dieser Ports (Druckeranschlüsse) via VBScript automatisieren.

So kann ich die mir vorliegenden IP-Adressen schon vorher ins Script einbauen und das hier lokal schon testen.

Optimal wäre, die Druckerinstallation und Anschlusszuweisung noch mit reinzunehmen, aber das ist keine Priorität...

 

Wer kann mir helfen?

 

Vielen Dank im Voraus!

[marka 589]

OK, schon was gefunden: Install Printer Ports

 

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewPort = objWMIService.Get _
   ("Win32_TCPIPPrinterPort").SpawnInstance_

objNewPort.Name = "IP_169.254.110.14"
objNewPort.Protocol = 1
objNewPort.HostAddress = "169.254.110.14"
objNewPort.PortNumber = "9999"
objNewPort.SNMPEnabled = False
objNewPort.Put_