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

Version imprimable

Bonjour tout le monde,

J'ai le script suivant :

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
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:

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

J'obtiens un message d'erreur :

voir attaché

à la ligne 44 :

Citation:

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

15/09/2008, 17h00
ced600

L'erreur te dit que le nom de l'imprimante n'est pas valide.
Certainement une erreur dans le chemin réseau.
15/09/2008, 17h12
beegees

Citation:

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
16/09/2008, 09h49
ced600

Citation:

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 :traine:
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é.
16/09/2008, 18h55
beegees

Merci pour ta réponse.

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

Citation:

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

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:

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:

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:

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

22/09/2008, 14h07
beegees

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