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_
Partager