Discussion :

[mat76]

Bonjour ,

Je me permet de vous solliciter après moult recherches infructueuses.

Voici ma problématique:

Sur des postes Vista, la remontée de l'imprimante par défaut est visiblement assez anarchique pour les utilisateurs qui se connecte pour la première fois sur un poste.

Pour palier à cet état de fait , j'ai réalisé à l'aide de code trouvé sur internet ce petit script:

Code :

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

1
2
3
4
5
Set WshNetwork = CreateObject("WScript.Network" ) 
WshNetwork.SetDefaultPrinter "EPSON Mono-Laser Series2"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("imprimante.vbs")

J'ai positionné ce script dans le menu démarrage du default user soit "C:\Users\Default\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup" afin que la bonne imprimante soit mise par défaut à la création du profil.

A la connexion avec un profil utilisateur , le script s'exécute et définit la bonne imprimante par défaut mais génère un message d'erreur lors,je suppose, de la suppression du vbs.



Cependant si j'exécute le script en double cliquant dessus dans son emplacement "C:\Users\Default\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup" il se supprime correctement après exécution.

J'ai également essayé comme ceci au cas où :

Code :

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

1
2
3
4
5
Set WshNetwork = CreateObject("WScript.Network" ) 
WshNetwork.SetDefaultPrinter "EPSON Mono-Laser Series2"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Users\Default\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\imprimante.vbs")

Mais le résultat est le même, je ne comprends pas d'où peut provenir le problème en utilisant mes connaissances limités en développement.

Y aurait il une âme charitable avec un avis éclairé ?

D'avance merci.

Mathieu

[l_autodidacte]

J'ai positionné ce script dans le menu démarrage.....

Si tu mets un raccourci vers ce script au lieu du script lui-même tout en mettant imprimante.vbs dans le même dossier que ce script, quel est le résultat ?

[mat76]

Pardon je me suis mal exprimé, en fait il n'y a qu'un seul script.
imprimante.vbs est contient le code que j'ai afficher et qui doit mettre l'imprimante par défaut puis se supprimer à la fin d'exécution.

Mais peut-être que je m'y prends pas mal ? Faudrait il deux petits scripts ?

Un pour définir l'imprimante puis un pour supprimer le script de définition de l'imprimante ?

Merci

[l_autodidacte]

Salut

Dans un tel cas, ajoute à la fin de ton fichier script un code tel que :

Code :

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

1
2
3
4
 
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.GetFile(Wscript.scriptfullname)
f.Delete

De cette façon, tu n'as pas à fournir le nom et/ou le chemin du fichier à supprimer.

Et tu peux mettre le fichier lui-même dans le dossier Démarrage(Startup). Avec ma configuration(Win Home SP3), ça marche sans problème.

[mat76]

C'est exactement ça.
Cela fonctionne parfaitement.

Je vous remercie pour votre aide.

Je conserve précieusement ce morceau de code qui , je n'en doute pas , me servira à nouveau dans le futur

Mathieu