script création auto imprimante Win [Résolu]

[Pymm]

bonjour a tous,
j'ai besoin de créer des imprimantes via un script sur serveur d'impression W2000.
après quelques recherches j'ai trouvé ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Set WshShell = CreateObject("WScript.Shell")
Dim IP
IP = InputBox("Entrez l'adresse IP de l'imprimante") 

IMP_Name = InputBox("Entrez le nom de l'imprimante")

PORT_Name = "IP_" & IP

REG_KEY="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\" & PORT_Name & "\"

WshShell.RegWrite REG_KEY & "Protocol" ,00000001, "REG_DWORD"
WshShell.RegWrite REG_KEY & "Version" , 00000001, "REG_DWORD"
WshShell.RegWrite REG_KEY & "HostName" , ""
WshShell.RegWrite REG_KEY & "IPAddress" , IP
WshShell.RegWrite REG_KEY & "HWAddress" , ""
WshShell.RegWrite REG_KEY & "PortNumber" , 9100, "REG_DWORD"
WshShell.RegWrite REG_KEY & "SNMP Community" , "public"
WshShell.RegWrite REG_KEY & "SNMP Enabled" , 00000001, "REG_DWORD"
WshShell.RegWrite REG_KEY & "SNMP Index" , 00000001, "REG_DWORD"

dim objShell
set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "rundll32.exe", "printui.dll,PrintUIEntry /if /b IMP_Name  /q /r PORT_Name /m 'IBM Proprinter XL' /u", "", "", 1
set objShell = nothing

Mon problème est que ça me crée bien le port dans la base de registre mais il n'apparaït pas dans la liste des ports dans les propriétés du serveur
et il ne me lie pas l'imprimante à ce port. donc au final ça marche pas.

Je fais actuellement mes tests sur un XP mais je ne pense pas que cela change quoique ce soit.
L'imprimante est située derriere un boitier jetdirect mais là encore ça ne devrait pas poser de problèmes a mon avis.

Si quelqu'un a une idée...

Merci d'avance.

[Pymm]

en recherchant un peu plus j'ai fini par trouver ceci :

Code :

cscript c:\windows\system32\prnport.vbs -a -r <nom_port> -h <adresse_ip> -o raw -n 9100

Mon problème venait en fait de la création du port.