Discussion :

[tatane42]

Bonjour,
Pouvez vous me donner un petit coup de main sur un truc qui dépasse mes compétences.
J'ai 40 imprimantes à remplacer et j'ai fait un petit script pour m'éviter de passer sur 400 postes.
Pas de problème pour remplacer une imprimante par contre je récupère le nom de l'imprimante par défaut dans une variable afin de mettre sa remplacante par défaut.
Lorsque j'exécute mon script il se tape de la condition et m'exécute le code. Si dans la condition je met une chaine de caractère à la place de la variable ça fonctionne.
J'ai mis en rouge l'endroit ou j'ai problème.
Merci d'avance pour votre aide

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
19
20
21
22
23
24
25
26
27
28
Option Explicit  
Dim objNetwork, objPrinter, intDrive, intNetLetter, oShell, strvalue, strPrinter  

Set objNetwork = CreateObject("WScript.Network")  
Set oShell = CreateObject("WScript.Shell")  
Set objPrinter = objNetwork.EnumPrinterConnections  

'Imprimante par défaut  
strValue = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"  
strPrinter = oShell.RegRead(strValue)  
strPrinter = Split(strPrinter, ",")(0)  

'Lecture du tableau  
For intDrive = 0 to objPrinter.Count -1 Step 2  
 intNetLetter = IntNetLetter +1  
   
 'Si le nom de l'ancienne imprimante est trouvée, elle est remplacée par la nouvelle  
If objPrinter.Item(intDrive +1) = strPrinter then 
objNetwork.AddWindowsPrinterConnection "\\srv-impr\MAGLIQUIDE"  
  objNetwork.SetDefaultPrinter "\\srv-impr\MAGLIQUIDE"  
  objNetwork.RemovePrinterConnection "\\srv-imp\LXMKMAGML"      
  elseIf objPrinter.Item(intDrive +1) = "\\srv-imp\LXMKMAGML" then  
   objNetwork.AddWindowsPrinterConnection "\\srv-impr\MAGLIQUIDE"  
   objNetwork.RemovePrinterConnection "\\srv-imp\LXMKMAGML"  
     
 End If  
 Next  
Wscript.Quit(1)

[omen999]

bonjour,
ajoute à la ligne 12 quelque chose comme

Code :

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

MsgBox strPrinter

pour vérifier que le nom est bien le bon

par ailleurs l'égalité ne sera pas vérifiée si la casse est différente
ou si un espace est venu se loger devant ou derrière
pour cela les fonctions Trim, UCase ou LCase peuvent être utilisées

[tatane42]

j'ai déjà fait le test, même ecrire dans un fichier texte. La casse est bonne.
Mais le problème c'est que même si la condition est fausse, il exécute le code.

[SfJ5Rpw8]

mais que doit faire ton code ?
ton problème c'est quoi la définition de l'imprimante par défaut ?

si oui ... comme je lis ton code tu parcours toutes les imprimantes et lorsque tu trouve l'imprimante définie par défaut tu exécute le code
objNetwork.SetDefaultPrinter "\\srv-impr\MAGLIQUIDE"pour redéfinir l'imprimante par défaut ...

et donc comme tu parcours toutes les imprimantes à un moment donné tu passe sur l'imprimante par défaut et tu exécute ce fameux code ...et donc ce code est toujours exécuté... ta condition ne sert à rien ...

[tatane42]

Pardon c'est pas bien claire mon truc.
Ici j'ai pas mis tout mon code car il y a pas mal de ligne.

Mes users peuvent avoir plusieurs imprimantes.(quelques une sur les 50)
Ce que je veut faire dans mon code, c'est remplacer le nom de leurs anciennes imprimantes par les nouvelles et redéfinir une imprimante par défaut en fonction de celle qu'ils avaient auparavent.
Je récupère dans la base de registre l'imprimante par défaut, si l'imprimante parcouru est égal à l'imprimante par défaut alors je l'ajoute, la met par défaut et supprime l'ancienne sinon j'ajoute la nouvelle imprimante et supprime l'ancienne, après je boucle sur mes autres imprimantes (tu me suis?)

J'exécute se bout de code avec cette d'imprimante qui n'est pas sur mon PC et donc qui n'est pas par défaut et il m'exécute quand même le code.
Fait le test chez toi, tu verras il l'exécute quand même.

Merci pour ton temps.

[l_autodidacte]

Si quelqu'un a compris, qu'il m'en fasse part !!!!!!!!!!!!