Jump to content
Sign in to follow this  
marka

VB-Script: TCPIP Standardport fürs Drucken erstellen

Recommended Posts

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!

Share this post


Link to post

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_

Share this post


Link to post
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Werbepartner:



×
×
  • Create New...