Bonjour,
 
Je recherches un script qui me permettrais d'installer une imprimante réseau (port + pilote).  
 
Pouvez-vous m'aider ?
 
J'ai trouvé un script mais il ne fontionne pas sous Windows 2000.
 
Cordialement,
 
Karon127

peux-tu nous indiquer le script de départ, qui fonctionnait, qu'on s'en serve de base de travail stp

 
 
Voici le script qui devrait créer un port :
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set objNewPort = objWMIService.Get ("Win32_TCPIPPrinterPort" ).SpawnInstance_  
 
objNewPort.Name = "IP_144.165.65.41"  
objNewPort.Protocol = 1  
objNewPort.HostAddress = "144.165.65.41"  
objNewPort.PortNumber = "9100"  
objNewPort.SNMPEnabled = False  
objNewPort.Put
 
Mais il ne fonctionne pas, par sur Windows 2000...
 
Karon127

2 liens si ça peut aider
http://www.tek-tips.com/viewthread [...] 606&page=3
http://www.tek-tips.com/viewthread [...] 349&page=6

 
 
Bonjour,
 
Avec ce script j'ai le message suivant (comme dans mon script) :
 
------------------------------------
Script :   nom du script
Ligne :    15
Caract. : 1
Erreur :   Non trouvé
 
Code :    80041002
Source : SWbemServices
------------------------------------
 
Ligne 15 :
 
Set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort" ).SpawnInstance_
 
Cordialement,
 
Karon