besoin d'aide, Script pour création Ports imprimantes
Bonjour,
Je souhaite installer Plusieurs Ports d'imprimante sur un serveur. (Création de file d’impression)
Vue le nombre de ports et des imprimantes à installer, je cherche un moyen automatise genre vbs pour installer ses ports.
J’ai trouvé ce script mais le problème c’est que, le script installe un port à la fois.
Est-ce que quelqu’un peut svp m’aider à le modifier le script afin qu’il prend en charge plusieurs ports a la fois. ?
Merci de votre aide
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_10.10.10.113"
objNewPort.Protocol = 1
objNewPort.HostAddress = "10.10.10.113"
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = False
objNewPort.Put_
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
objPrinter.DriverName = "HP LaserJet 4000 Series PS"
objPrinter.PortName = "IP_10.10.10.113"
objPrinter.DeviceID = "FrontOffice"
objPrinter.Network = True
objPrinter.Put_ |
