Ajout automatique d'imprimante en VBS

Le
Teebho
Je souhaite ajouter une imprimante dont je fournie le driver via VBS,
voici l'exemple que j'utilise :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "ootcimv2")
objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

Set objDriver = objWMIService.Get("Win32_PrinterDriver")

objDriver.Name = "NewPrinter Model 2900"
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
objDriver.DriverPath = "C:ScriptsNewPrinter.dll"
objDriver.Infname = "C:ScriptsNewPrinter.inf"
intResult = objDriver.AddPrinterDriver(objDriver)

J'ai une erreur 87 à la sortie de ma fonction "intResult =
objDriver.AddPrinterDriver(objDriver)"

Est ce que ca parle à quelqu'un ?
Je n'ai pas trouvé d'aide sur le net !

Merci d'avance.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles LAURENT [MVP]
Le #16451061
"Teebho" news:

Bonjour,

| Je souhaite ajouter une imprimante dont je fournie le driver via VBS,
| voici l'exemple que j'utilise :
[...]

| J'ai une erreur 87 à la sortie de ma fonction "intResult | objDriver.AddPrinterDriver(objDriver)"

Le message associé au code d'erreur 87 est :
Paramètre incorrect.

Plusieurs pistes :
- supprimez la ligne objDriver.DriverPath = "C:ScriptsNewPrinter.dll"
- si le driver contient des fichiers .cab alors les décompresser
- vérifier le nom "NewPrinter Model 2900" avec celui du fichier .inf
- consulter un de mes Post sur ce sujet :
http://groups.google.fr/group/microsoft.public.fr.scripting/browse_thread/thread/20df20aaf13285d4/e104f8afe11f72aa

Tenez-nous au courant.

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Publicité
Poster une réponse
Anonyme