Mon script pour l'imprimante par défaut ne fonctionne pas avec un PC

**beegees** · 15/09/2008, 13h21

Bonjour tout le monde,

J'ai le script 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
Dim oNetwork, sPrintPath
Set oNetwork = CreateObject("WScript.Network")
Select Case oNetwork.ComputerName
Case "SALLEINFOPC02"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC03"
   sPrintPath = "\\pharmacie\RICOHAfi"  
Case "SALLEINFOPC04"
   sPrintPath = "\\pharmacie\RICOHAfi"
  Case "SALLEINFOPC05"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC06"
     sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC07"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC08"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC09"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC10"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC11"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC12"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC13"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC14"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC15"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC16"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC17"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC18"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "SALLEINFOPC19"
   sPrintPath = "\\pharmacie\RICOHAfi"
Case "PHARMACIE"
   sPrintPath = "\\pharmacie\RICOHAfi\*.*"
End Select
oNetwork.AddWindowsPrinterConnection sPrintPath
oNetwork.SetDefaultPrinter sPrintPath

Il permet de mettre par défaut une imprimante par rapport au nom de l'ordinateur.

Le problème est sur cet ordinateur (le 19) :

Code :

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

1
2
Case "SALLEINFOPC19"
   sPrintPath = "\\pharmacie\RICOHAfi"

J'obtiens un message d'erreur :

voir attaché

à la ligne 44 :

oNetwork.AddWindowsPrinterConnection sPrintPath

Sauriez-vous m'aider sur ce coup là svp car il y'a un de mes ordis en réseau que je ne peux plus utiliser pour imprimer.

Merci d'avance pour votre aide.

beegees

**ced600** · 15/09/2008, 17h00

L'erreur te dit que le nom de l'imprimante n'est pas valide.
Certainement une erreur dans le chemin réseau.

**beegees** · 15/09/2008, 17h12

Envoyé par ced600

L'erreur te dit que le nom de l'imprimante n'est pas valide.
Certainement une erreur dans le chemin réseau.

Salut,

En fait c'est parce que l'imprimante n'était pas installé sur le PC.

Bonne soirée.

beegees

**ced600** · 16/09/2008, 09h49

Envoyé par beegees

Salut,

En fait c'est parce que l'imprimante n'était pas installé sur le PC.

Bonne soirée.

beegees

lol

En effet dans ce cas cela ne peut pas marcher.
En plus après on se sent un peu

Mais bon cela arrive à tout le monde.

Perso pour le code j'aurais plus référencé dans un dictionnaire le nom du pc et l'adresse réseau de son imprimante, et utilisé ComputerName comme clé (nom du pc) pour appellé les deux méthodes sur la valeur de la clé.

**beegees** · 16/09/2008, 18h55

Merci pour ta réponse.

Par rapport à mon code, tu suggères ceci :

Perso pour le code j'aurais plus référencé dans un dictionnaire le nom du pc et l'adresse réseau de son imprimante, et utilisé ComputerName comme clé (nom du pc) pour appellé les deux méthodes sur la valeur de la clé.

Est-ce une solution VBScript ?

Si oui, sais-tu modifier mon code pour me montrer ce que ça pourrais donner ?

Merci d'avance.

beegees

**ced600** · 17/09/2008, 09h33

Ce n'est pas une solution "VBScript", le VBS n'est qu'un langage. Là je parle d'un autre algorithme.

Voici un exemple d'utilisation de dictionnaire :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
' création et utilisation d'un dictionnaire
Set dico=CreateObject("Scripting.Dictionary")
' remplisage dico
dico.add "clé1","valeur1"
dico.add "clé2","valeur2"
dico.add "clé3","valeur3"
' nombre d'éléments
wscript.echo "Le dictionnaire a " & dico.count & " éléments"
' liste des clés
wscript.echo "liste des clés"
cles=dico.keys
For i=0 To ubound(cles)
wscript.echo cles(i)
Next
' liste des valeurs
wscript.echo "liste des valeurs"
valeurs=dico.items
For i=0 To ubound(valeurs)
wscript.echo valeurs(i)
Next
' liste des clés et valeurs
wscript.echo "liste des clés et valeurs"
cles=dico.keys
For i=0 To ubound(cles)
wscript.echo "dico(" & cles(i) & ")=" & dico.item(cles(i))
Next
' recherche d'éléments
' clé1
If dico.exists("clé1") Then
wscript.echo "La clé clé1 existe dans le dictionnaire et la valeur associée est " &
dico.item("clé1")
Else
wscript.echo "La clé clé1 n'existe pas dans le dictionnaire"
End If
' clé4
If dico.exists("clé4") Then
wscript.echo "La clé clé4 existe dans le dictionnaire et la valeur associée est " &
dico.item("clé4")
Else
wscript.echo "La clé clé4 n'existe pas dans le dictionnaire"
End If
' on enlève la clé 1
dico.remove("clé1")
' liste des clés et valeurs
wscript.echo "liste des clés et valeurs après suppression de clé1"
cles=dico.keys
For i=0 To ubound(cles)
wscript.echo "dico(" & cles(i) & ")=" & dico.item(cles(i))
Next
' on supprime tout
dico.removeall
' liste des clés et valeurs
wscript.echo "liste des clés et valeurs après suppression de tous les éléments"
cles=dico.keys
For i=0 To ubound(cles)
wscript.echo "dico(" & cles(i) & ")=" & dico.item(cles(i))
Next
' fin
wscript.quit 0

Je l'ai récupéré ici, le lien peux toujours intéresser :
http://tahe.developpez.com/web/vbscr...e=page_3#LII-R

Voilà, je pense qu'avec l'exemple tu verras comment pouvoir améliorer ton script en prenant comme couple clé - valeur par exemple :
Nom du PC - sPrintPath

Voir un couple :
Tableau de Nom du PC - sPrintPath

Edit :
En complément de l'exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
' création et utilisation d'un dictionnaire
Set dico=CreateObject("Scripting.Dictionary")
' remplisage dico
dico.add "clé1","valeur1"
dico.add "clé2","valeur2"
dico.add "clé3","valeur3"
 
'key représente le clé.
For Each Key In dico
    wscript.echo dico(Key) 'on affiche les valeurs.
Next

Edit 2 :
Voila au final j'aurais fais un truc du genre, mais je n'ai pas pu tout tester car je ne voulais pas reconfigurer mon imprimante réseau

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
' création et utilisation d'un dictionnaire
Set dico=CreateObject("Scripting.Dictionary")
' remplisage dico
dico.add "SALLEINFOPC01","\\pharmacie\RICOHAfi"
dico.add "SALLEINFOPC02","\\pharmacie\RICOHAfi"
dico.add "SALLEINFOPC03","\\pharmacie\RICOHAfi"
dico.add "SALLEINFOPC04","\\pharmacie\RICOHAfi"
dico.add "SALLEINFOPC05","\\pharmacie\RICOHAfi"
dico.add "SALLEINFOPC09","\\pharmacie\RICOHAfi"
dico.add "PHARMACIE","\\pharmacie\RICOHAfi\*.*"
 
Dim oNetwork
Set oNetwork = CreateObject("WScript.Network")
 
'key représente le clé.
For Each Key In dico
	If Key =  oNetwork.ComputerName Then
	   oNetwork.AddWindowsPrinterConnection dico(Key)
           oNetwork.SetDefaultPrinter dico(Key)
	   wscript.echo "Le PC " & Key & " a pour imprimante réseau : " & dico(Key)
	End If
    wscript.echo dico(Key) 'on affiche les valeurs.
Next

**beegees** · 22/09/2008, 14h07

Un tout grand merci pour ta réponse et surtout pour le temps que tu y as consacré.

Je vais tester ton code.

Encore merci.

beegees

Mon script pour l'imprimante par défaut ne fonctionne pas avec un PC

VBScript

Discussions similaires

Partager

Partager