Installation d'une imprimante via vbscript

Installation d'une imprimante via vbscript - Divers - Programmation

Marsh Posté le 18-06-2007 à 17:25:01    

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


Message édité par karon127 le 02-07-2007 à 15:04:36

---------------
Cordialement,
Reply

Marsh Posté le 18-06-2007 à 17:25:01   

Reply

Marsh Posté le 18-06-2007 à 17:27:02    

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

Reply

Marsh Posté le 18-06-2007 à 17:43:49    

jpcheck a écrit :

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


---------------
Cordialement,
Reply

Marsh Posté le 19-06-2007 à 10:01:37    


 
 
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


---------------
Cordialement,
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed