localiser l'imprimante par défaut

Question

Bonjour,

j' utilise cette commande pour lister mes imprimantes : Set oPrinters = WshNetwork.EnumPrinterConnections
j' aimerais localiser l'imprimante d&#233;finie par d&#233;faut ...est-ce possible avec cette commande ??

Voici mon prog, qui me permet de migrer les imprimantes r&#233;seaux de mon vieux serveur d'impression vers le new.
Mais lors de le suppression et la cr&#233;ation du nouveau lien, je perds l'imprimante d&#233;finie par d&#233;fault.
Ce petit prog sera lanc&#233; lors du login du user.

dim intranet,chndrf01,Apos,long1,long2,iprinter,srv_name
intranet = "[file://\INTRANET \INTRANET]"
chndrf01 = "[file://\CHNDRF01 \CHNDRF01]"
apos = 0


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 : &#224; partir de la 1&#233; 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&#233;ME SERVEUR 
      
      Apos=INSTR(1,oPrinters.Item(i-1) ,":")
      long1 = len(oPrinters.Item(i-1)) - Apos 
      long2 = right(oPrinters.Item(i-1),(long1))
      PrinterPath = ("\chndrf01"&long2)
      WshNetwork.RemovePrinterConnection PrinterPath, true, true
      printerpath = ("\NEWSERVER"&long2)
      WshNetwork.addWindowsPrinterConnection PrinterPath, true, true


   end if
   


   
Next 


function test_serv(srv_name)


Apos=INSTR(3,oPrinters.Item(i) ,"")      'DETECTE LA POSITION DU \ &#224; partir de la 3&#233; position


 if apos <> 0 then
    test_serv = LEFT(oPrinters.Item(i),apos-1)     'RECUPERE LE NOM DU SERVEUR
 end if
 
end function

polo

cs_CanisLupus · Answer

En vb6, tu as le simple :

Printer.DeviceName pour le nom de l'imprimante 
et
Printer.Port pour la connexion

Loup Gris

Localiser l'imprimante par défaut

1 réponse

Discussions similaires