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 : Sélectionner tout - Visualiser dans une fenêtre à part
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_