Discussion :

[dim_italia]

Bonjour,

je souhaite installer une imprimante réseau sur un poste à partir de l'adresse IP de l'imprimante. Le système d'exploitation utilisé est Windows 2000.
J'ai essayé en passant par le serveur avec le code suivant :

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
Dim objNet
Dim objShell
 
'Un Petit Resume pour l'erreur.
On Error Resume Next
 
Set objNet = CreateObject("Wscript.Network")   
Set objShell = WScript.CreateObject("WScript.Shell")
 
If objShell.ExpandEnvironmentStrings("%OS%") = "Windows_NT" Then
   'Windows 2000/XP
   objNet.AddWindowsPrinterConnection "\\serveur\imp"
 
Else
   'Windows 95/98/ME
   objNet.AddWindowsPrinterConnection "\\serveur\imp","RICOH Aficio 2027 PS"
 
End If

Celui-ci fonctionne bien sans problème.
Mais lorsque je fais une installation par IP avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
objPrinter.DriverName = "RICOH Aficio 2027 PS"
objPrinter.PortName = "IP_xxx.x.xxx.xxx"
objPrinter.DeviceID = "D06343"
objPrinter.Network = True
objPrinter.Shared = True
objPrinter.ShareName = "imp"
objPrinter.Put_

L'erreur est la suivante :
Cet objet ne gère pas cette propriété ou cette méthode: 'objPrinter.Network' à la ligne 8

Merci pour votre aide.

[Amandine62]

je vien de finir mon script de création d'imprimante automatique. Pour cela j'ai utilisé des script déjà présent dans le kit ressources 2000. Ces script sont :

- prnport.vbs -> pour créer un port TCP/IP
- prnmngr.vbs -> pour créer l'imprimante

je ne sais pas si tu en a besoin mais il existe ègalement un script pour configurer l'imprimante par exemple pour partager et lister l'imprimante dans Active directory.

- prncnfg.vbs

J'utilise ça et j'ai eu aucun probleme!
essaie c'est tellement simple!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
shell.run " _
prnport.vbs -a -r NomPort -h AdresseIP [-o {raw -n NuméroPort| lpr}] "
 
"prnmngr.vbs -a -p Nom_Imprimante -m Nom_Pilote -r Nom_Port" 
 
"prncnfg.vbs-t -p Nom_Imprimante -r Nom_Port -h Nom_Partage]  [{+ | -}shared] [{+ | -}published]"

+shared -> pour partager
+published -> pour publier dans Active directory
[] signifie que ce n'est pas obligatoire

[koKoTis]

Bonjour, vous ne sauriez pas ou je peut télécharger les VBS Prncnfg.vbs, Prndrvr.vbs, Prnjobs.vbs, Prnmngr.vbs, Prnport.vbs, et Prnqctl.vbs ?

[marsup54]

Bonjour, vous ne sauriez pas ou je peut télécharger les VBS Prncnfg.vbs, Prndrvr.vbs, Prnjobs.vbs, Prnmngr.vbs, Prnport.vbs, et Prnqctl.vbs ?

c:\windows\system32\prn*.vbs