pocema
Messages postés1Date d'inscriptionvendredi 9 avril 2004StatutMembreDernière intervention26 février 2005
-
26 févr. 2005 à 14:57
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 2006
-
26 févr. 2005 à 15:20
Bonjour,
j' utilise cette commande pour lister mes imprimantes : Set oPrinters = WshNetwork.EnumPrinterConnections
j' aimerais localiser l'imprimante définie par défaut ...est-ce possible avec cette commande ??
Voici mon prog, qui me permet de migrer les imprimantes réseaux de mon vieux serveur d'impression vers le new.
Mais lors de le suppression et la création du nouveau lien, je perds l'imprimante définie par défault.
Ce petit prog sera lancé lors du login du user.
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 1 to oPrinters.Count -1 Step 2
if test_serv(srv_name) = intranet THEN 'RECONNAISSANCE DU 1er SERVEUR
Apos=INSTR(1,oPrinters.Item(i-1) ,":") 'DETECTE LA POSITION DU : à partir de la 1é position
long1 = len(oPrinters.Item(i-1)) - Apos 'CALCUL LA LONGUEUR DU NOM DE PARTAGE
long2 = right(oPrinters.Item(i-1),(long1)) 'RECUPERE LE NOM DE PARTAGE
PrinterPath = ("\\intranet"&long2) 'CREE LE PATH POUR LA SUPPRESION
WshNetwork.RemovePrinterConnection PrinterPath, true, true 'SUPPRESSION DU VIEUX RACCOURCI
printerpath = ("\\NEWSERVER"&long2)
WshNetwork.addWindowsPrinterConnection PrinterPath, true, true 'CREATION DU NEW RACCOURCI
end if
if test_serv(srv_name) = chndrf01 THEN 'RECONNAISSANCE DU 2éME SERVEUR